W tej czΩ╢ci kursu napiszemy program, kt≤ry bΩdzie liczy│ sumΩ i r≤┐nicΩ dw≤ch liczb mieszanych tak d│ugo, a┐ zrezygnujesz z pracy poprzez wprowadzenie liczby 0.

Na pocz▒tek wpiszmy u┐ywane przez w tym programie modu│y. W naszym przypadku tylko jeden - "crt".

USES crt;

Teraz kolejno wypiszmy u┐ywane zmienne oraz s│owo kluczowe, rozpoczynaj▒ce dzia│anie programu.

VAR x,y:real;
BEGIN

NastΩpnie wpiszmy:

REPEAT {...powtarzaj}
clrscr; {To ju┐ znamy} BEGIN
write('Podaj pierwsza liczbe '); readln(x);
{Wczytuje pierwsz▒ liczbΩ, jako zmienn▒ "x"}

write('Podaj druga liczbe '); readln(y);
writeln('======================================');
write('Suma liczb wynosi ',x+y:10:2);
write(''a ich roznica ', z-y:10:2);

writeln('Jesli chcesz zrezygnowaµ z pracy, wcisnij klawisz 0');
UNTIL readkey= #38;
END.

Maciej Kunowski