Оператор if выбирает между двумя вариантами развития событий:
if <условие> then <один_оператор> [else <один_оператор>]; Оператор IF имеет вид if … then … else … (если … то … иначе …) или if … then …
Допустим для проведения научного эксперимента необходимо отобрать собак с длиной хвоста не более 30 и не менее 20 сантиметров. В качестве примера решения такой задачи приведена программа “DOGS”.
Пример программы№1
Program CATS;
var a: real;
const b=20; c=30;
begin
writeln ( 'Vvedite dlinu hvosta' );
read (a);
if a>30 then writeln ( 'Eta koshka ne podhodit' )
else if a<20 then writeln ( 'Eta koshka ne podhodit' )
else if a>=20 then writeln ( 'Koshka podhodit' );
end.
Пример программы№2
В качестве примера приведем программу вычисления наибольшего из значений функции y1=x2+1, y2=7-x2 или y=x+1 для любого x .
program razvetvl ; {программа разветвляющейся структуры} var x , y1 , y2 , y3 , max : real; begin writeln ('Введите x'); readln (x); y1:=x*x+1; y2:=7-x*x ; y3:=x+1; if y1> y2 then max:=y1 else max:=y2; if y3 > max then max:=y3; writeln (' y1=',y1: 6:2' y2=',y2: 6:2, ' y3=',y3: 6:2,); writeln ('при x=',x: 6:2,' наибольшее значение функций=',max: 6:2); end.
Пример программы№3
разработать программу нахождения величины Y в зависимости от различных условий определения величины X:
Program Primer;
Var
х, у: real;
Begin
write('х: = '); readln(х);
if х <= 0 then y: = 0
else y: = x* x* x;
writeln(y)
End.
