KAŻDA ZMIENNA PRZED UŻYCIEM W PROGRAMIE MUSI BYĆ WCZEŚNIEJ ZADEKLAROWANA.
Deklaracja Stałych Const
abc=500;
Deklaracja Zmiennych Var
abc:byte;
x:string;
Const e=500;
Var abc:byte;
Begin abc:=123 Writeln(4*8);
Writeln(e);
Writeln(‘tekst’,e,abc);
End.
READ pozwala na wprowadzenie do zmiennej wartość podawaną z klawiatury w czasie działania programu:
Var a:String;
b:Word;
Begin Read(a);
Read(b);
Read;
Writeln(a:15,b:17);
End.
Za każdym argumentem możemy umieścić dwukropek, a za nim dowolną wartość, będącą liczbą całkowitą.
Określi ona w polu jakiej długości ma być umieszczony argument (Będzie on wyrównany do lewej strony tego pola)
Do przechowywania liczb całkowitych:
Integer - od -32768 do 32767,
Word - od 0 do 65535,
ShortInt od -128 do 127,
Byte - od 0 do 255,
Do przechowywania liczb rzeczywistych
Real
Single
Boolean - dla wartości logicznych, np. True, False,
Char - jako jeden znak, np. 'A'
String - jako ciąg znaków, np. 'słowo', 'abcdef' DIV - wartość całkowita dzielenia
MOD – reszta z dzielenia Var
a,b,reszta,wynik:Integer Begin
Readln(a);
Readln(b);
wynik:=a div b;
reszta:=a div b;
Writeln(wynik:15,reszta:17);
End.
If (Warunek) Then
Blok1; { Instrukcje wykonywane kiedy Warunek wynosi True }
Var a:byte Begin
Writeln(‘Podaj hasło’);
Readln(a);
If (a=123) then begin
Writeln(‘weryfikacja OK’);
end Else
Writeln(‘kiszka’);
End.
var lit: Char;
begin
Read(lit);
if (lit = 'a') or (lit = 'e') or (lit = 'i') or (lit = 'o') or (lit = 'u') or (lit = 'y') then
Write('Samogloska')
else
Write('Spolgloska');
end.
var a, b, c: Longint;
begin
Read(a, b, c);
if (a = b) and (b = c) then {jezeli wszystkie boki sa rowne (oczywiscie, gdy a=b i b=c, to musi byc c=a)}
Write('Rownoboczny') else
if (a = b) or (a = c) or (b = c) then {jezeli jakiekolwiek dwa boki sa rowne}
Write('Rownoramienny')
else {juz zadne dwa boki nie sa rowne}
Write('Roznoboczny');
end.
program srednia;
var a, suma: Real;
i, ile: Integer;
begin
suma := 0.0;
Read(ile);
for i := 1 to ile do begin
Read(a);
suma := suma + a;
end;
Writeln((suma / ile):0:3);
end.
