Napiszemy program, który będzie liczył sumę i różnicę dwóch wprowadzonych liczb
całkowitych.
PROGRAM liczydlo;
{Instrukcja tam umożliwia wpisanie nazwy programu *}
USES crt;
VAR {Instrukcja, w której zadeklarujemy rodzaj zmiennych **}
liczba_1, liczba_2: : integer;
{Dwie liczby , na których będziemy wykonywać działania to liczby całkowite. Średnik na końcu.}
BEGIN
write ('Podaj pierwsza liczbe => ');
readln(liczba_1);
{Polecenie dla programu - czytaj oraz zapamiętaj to co wpisał użytkownik. Proszę zwrócić uwagę, że to polecenie
jest trochę inne: READLN, a nie READ. Dodanie do polecenia: WRITE oraz READ końcówki LN powoduje przejście
do kolejnego wiersza.}
write('Podaj druga liczba =>');
readln(liczba_2);
writeln('Suma dwoch liczb wynosi: ',liczba1+liczba2,' a ich roznica: ',liczba1-liczba2);
{Polecenie dla programu by wpisał tekst (to co w nawiasie i w apostrofach). Program ma wykonać dwa działania.
Pierwszą część zdania oddzielamy przecinkiem i polecamy, by program wykonał działanie na dwóch liczbach
całkowitych. Działanie oddzielamy przecinkiem i w apostrofach wpisujemy dalszą część zdania.}
readln;
END.
{* - zmienne są to wartości jeszcze niezadeklarowane podczas włączania programu, ale dopiero w trakcie
jego działania}
{** - UWAGA! Nazwę należy wpisać bez nazwy i jak każde inne polecenie musi być zakończone średnikiem}
Kliknij aby zobaczyć źródło programu - program2.pas
Kliknij aby zobaczyć gotowy program - program2.exe
Maciej Kunowski
[ Poprzednia strona ]
[ Następna strona ]
|