Kurs Pascal'a część 4

    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 ]

______________________________ 040 ______________________________

Copyrigt(C) '2001 Maciej Kunowski