9 (1306)

Aby więc nadać zmiennej Wiek (typu Byte) wartość 29, należy w programie napisać:

program przykład; var

Wiek : Byte;

begin

Wiek 29; end.

Oczywiście możesz także wpisać wyrażenie, które program w czasie wykonywania wyliczy, Może ono zawierać zmienne (także tę, której przypisujesz wartość). Dlatego tak często na początku budzące zdziwienie:

Wiek Wiek + 1;

oznacza po prostu zwiększenie wartości zmiennej Wiek o 1.

■ I C Z E N I E

Wykorzystanie różnych typów

Napisz program, który zapamięta w zmiennych odpowiednich typów jak najwięcej informacji o Tobie.

program cw3_15;

{ Program zapamiętuję dane o osobie w odpowiednich zmiennych }

{ i wyświetla je w sformatowany sposób.    }

{ Katalog r3_04 : 3_15.pas    }

var

Imię, Nazwisko : String [30];

Ulica, Miasto : String [30];

Kod : String [6];

NumerDomu: String [10];

NumerMieszkania : Integer;

Mezczyzna, Kobieta : Boolean;

Wiek : Byte;

begin

Imię := 'Andrzej¹; Nazwisko 'Kierzkowski';

Ulica 'Czekoladowa'; Miasto 'Czekoladowo';

Kod '99-900';

NumerDomu    '15'; NumerMieszkania    6;

Mezczyzna    True; Kobieta False;

Wiek 29;

Writeln ('Imię i nazwisko: ' :17, Imię, ' ', Nazwisko);

Writeln ('Adres: ' :17, Ulica, ' ', NumerDomu, '/',

NumerMieszkania, ', ', Kod, ’ ', Miasto);

Writeln ('Kobieta: ' -.17, Kobieta);

Writeln ('Mezczyzna: ' :17, Mezczyzna);

Writeln ('Wiek: ' :17, Wiek); end.

Zaraz, a dlaczego zmienną NumerDomu zadeklarowano jako String, a nie Integer? Otóż dlatego, że niektóre adresy mogą mieć bardziej skomplikowane numery domu. Na przykład 15a albo 35 - 39. Rodzi się pytanie, co z osobami mieszkającymi w domkach jednorodzinnych i nieposiadającymi w adresie numeru mieszkania? Na razie mogę zaproponować niezbyt zgrabne wyjście: przypisanie zmiennej NumerMieszkania wartości 0 i dość nietypowo wydrukowany adres: ul. Czekoladowa 15/0. Niebawem dowiesz się, jak sprawdzić, czy numer mieszkania nie jest zerowy i wydrukować to ładniej.