Основы применения вычислительной техники и программирование. Беспалов В.В. - 21 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

если вместо оператора1 или оператора2 следует серия операторов,
то эту серию операторов необходимо заключить в операторные скобки
begin … end.
Обратить внимание, что перед словом else точка с запятой не
ставится.
Пример 2.5. Составить программу, которая запрашивает возраст
ребенка и затем выдает решение о приеме ребенка в школу (возраст от 7
до 16 лет).
Решение:
program sh;
var v: integer;
begin
Write(‘Введите возраст ребенка’);
Readln(v);
if (v>=7)and(v<=16)
then writeln(‘Принимаем в школу’)
else writeln (‘Не принимаем в школу’);
end.
Пример 2.6. Даны два числа. Меньшее из этих чисел заменить
суммой данных чисел, большее – произведением.
program sh;
var x, y,s,p: integer;
begin
Write(‘Введите 2 числа’);
Readln(x, y);
s:=x+y; p:=x*y;
if x>=y then begin y:=s; x:=p; end
else begin x:=s; y:=p; end;
writeln(‘x=’, x);
writeln(‘y=’, y);
end.
Если оператор if обеспечивает выбор из двух альтернатив, то
существует оператор, который позволяет
сделать выбор из произволь-
ного числа вариантов.
2.7.2. Оператор выбора
Он организует переход на один из нескольких вариантов действий
в зависимости от значения выражения, называемого селектором.
22

Страницы