Оператор ветвления
If. . . Then. . . Else. . . • Формат описания: • If <логическое выражение> Then <инструкция 1> Else <инструкция 2>;
• Формат описания: If <логическое выражение> Then begin <инструкция 1>; . . . <инструкция n> end Else begin <инструкция 1'>; . . . <инструкция m'> end
Краткая форма записи оператора If … Then … Else … • Формат описания: If <логическое выражение> Then <инструкция 1>; If <логическое выражение> Then begin <инструкция 1>; . . . <инструкция n> end;
Пример: Ввести число. Если оно неотрицательно, вычесть из него 50, в противном случае прибавить к нему 100 Var a : integer; Begin writeln(‘Enter number’); readln(a); if (a>=0) then a: =a-50 else a: =a+100; writeln(‘Rez ’, a) end.
Вложенные операции ветвления
Var a, b, c : integer; Begin write(‘Enter a’); readln(a); write(‘Enter b’); readln(b); write(‘Enter c’); readln(c); if (a>b)and(a>c) then writeln(‘max number is ’, a) else begin if b>c then writeln (‘max number is ’, b) else writeln (‘max number is ’, c) end.
Var a, b, c, d : integer; Begin write(‘Enter a’); readln(a); write(‘Enter b’); readln(b); write(‘Enter c’); readln(c); if (a>=b) then d: =a else d: =b; if c>=d then d: =c; writeln(‘max number is ’, d) end.
Задачи Задание 1 Если целое число m делится нацело на целое число n, то вывести на экран частное от деления, в противном случае вывести сообщение "m на n нацело не делится". Задание 2 Дано пятизначное число. Выяснить, является ли оно палиндромом ("перевертышем"), то есть таким числом, десятичная запись которого читается одинаково слева направо и справа налево. Задание 3 Определить максимальное и минимальное значение из трех различных вещественных чисел. Задание 4 В некотором учебном заведении действуют следующие правила приема. Абитуриенты сдают три экзамена. Если они набирают не менее 13 баллов, то это дает право поступить на дневное отделение, от 10 до 12 - на вечернее, от 8 до 9 на заочное; ниже 8 баллов означает отказ в приеме на учебу. Написать программу, которая в зависимости от набранных баллов сообщает абитуриенту его права на поступление. Задание 5 Год является високосным, если его номер кратен 4, однако из кратных 100 високосными являются лишь кратные 400 (например, 1700, 1800 и 1900 невисокосные года, 2000 - високосный). Дано натуральное число n. Определить, является ли високосным год с таким номером.