Пример 1. program Primer; {вычисление суммы двух чисел}

program Primer; {вычисление суммы двух чисел}

var x,y,s: integer;

begin

WriteLn('Введите через пробел два числа ');

ReadLn(x,y);

s:= x + y;

WriteLn('Сумма чисел равна ',s);end.

Данная программа запрашивает с клавиатуры два числа, находит их сумму и выводит ответ. Теперь сделаем так, чтобы программа сначала очищала экран, выполняла свои действия, а в конце работы позволяла пользователю посмотреть результат, ожидая его нажатия клавиши.

Пример 2

program Primer; {вычисление суммы двух чисел}

uses Crt; {подключение модуля, необходимого для процедур очистки экрана и задержки}

var x,y,s: integer;

begin

ClrScr; {очистка экрана}

WriteLn('Введите через пробел два числа ');

ReadLn(x,y);

s:= x + y;

WriteLn('Сумма чисел равна ',s);

ReadKey; {ожидание нажатия клавиши}end.

В общем случае структура опер-ра IF…THEN выглядит так:

IF условие

THEN

BEGIN

Оператор 1;

Оператор 2;

.......

Оператор_последний;END;

Конструкция IF..THEN..ELSE: общую форму оператора IF..THEN,содержащего ELSE-ветвь, м. з. так:

IF условие

THEN BEGIN

Оператор_ ветви_Если_То_1;

Оператор_ветви_Если_То_2;

........................

Оператор_ветви_Если_То_последний;

END

ELSE

BEGIN

Оператор_ветви_Если_Иначе_1;

Оператор_ветви_Если_Иначе_2;

…….. ……..

Оператор_ветви_Если_Иначе_последний; END;

Пр-р: каким классом траспорт-х ср-в Вы имеете право управлять?(Кодировка ответов: водительские права: 1-есть, 0-нет; класс С: 1-да; 0-нет)

PROGRAM IF THEN ELSE;

VAR Priviledge, Class_C, Bicycle: BYTE;

BEGIN

WRITE(‘Есть ли у вас водит права(0-нет/ 1-есть)?’);

Readln(Priviledge);

IF Priviledge = 1

THEN Begin

Write (‘Класс С(0-нет/1-да)?‘);

Readln(Class_C);

END

ELSE

BEGIN

WRITE(‘Есть ли у вас велосипед (0-нет/ 1-есть)?’);

Readln(Bicycle); END; END.