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
[ Poprzednia strona ]
[ Następna strona ]
|