Вариант 1
If <логическое выражение1> Then
If <логическое выражение2> Then <оператор1>
Else <оператор2>
Else <оператор3>;
Вариант 2
If <логическое выражение1> Then <оператор>
Else If <логическое выражение1> Then <оператор2>
Else <оператор3>;
Вариант 3
If <логическое выражение1> Then
If <логическое выражение2> Then <оператор1>
Else <оператор2> ;
Следует знать:
При вложенности операторов каждое else относится к тому then, которое непосредственно ему предшествует;
В условных операторах часто используют составной оператор begin…end. Если между ними находится только одна конструкция, слова begin…end лучше не писать;
В условных операторах (;) не ставится после then и перед else.
Примеры задач Программа 1
Написать программу вычисления корней квадратного уравнения
program KvadUravn;
var
a,b,c:real; {коэффициенты уравнения}
d,x1,x2:real;{вспомогательные переменные}
begin {начало программы}
writeln; {пропуск строки на экране}
writeln('введи a,b,c'); read(a,b,c);{ввод данных}
d:=b*b-4*a*c;{дискриминант}
if d<0 then {если d<0, то }
write('корней нет'); {печатать}
else {иначе}
begin {начало серии команд}
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);{вычисляем корни}
write('x1=',x1,'x2=',x2); {печать корней}
end; {конец серии команд}
end.
Программа 2
Составить программу, которая определяет длину общей части двух отрезков числовой оси, заданных координатами своих концов соответственно а, b и с, d (а < b, с< d). Если отрезки имеют общую часть, то левая координата общей части отрезков m равна максимальному из чисел а и с, а правое n – минимальному из чисел b и d.
Программа 2
program cross;
var a,b,c,d,m,n,l:real;
begin
writeln(`введите координаты концов отрезков'; read(а,b,с,d);
wгiteln;
if а<с then m:=с еlsе m:=a;
if b<d then n:=b efse n:=d;
if m<n then l:=n-m е1sе l:=0;
writeln(`длина общей част; отрезков',1:6:2)
end.
Программа 3
Составить программу, которая проверяет на четность введенное число
Программа 2
Program chet ;
var a:integer;
begin
writeln(`введите целое число'); readln(а);
wгite(‘число’,a,’-‘);
if а mod 2=0 then
writeln(`четное') else writeln(`нечетное');
end.
Для проверки на нечетность можно использовать функцию odd:
If odd(a) then writeln(`нечетное') else writeln(`четное');
Задание к работе
Задание 1
Разработать алгоритм решения в соответствии с заданием.
Составить программу решения задачи.
Пример выполнения работы
Задание 1
Составить программу для вычисления функции
Схема алгоритма представлена на рис. 3.
Рис.3.
program cross;
var x,a,b,z:real;
begin
wгite(‘введите a,b,x)’;
read(a, b, x)
if x<=a then z:=sin(x);
else if x>b then z:=sin(x)/cos(x)
else z:=cos(x);
writeln(`z=',z)
end.