Презентация на тему СЛОЖНЫЕ УСЛОВИЯ НА ПАСКАЛЕ

если в качестве исходных данных будет выведено значение a)0,b)5,c)10
Program

a1;
Var x,y:integer;
Begin
Read(x);
If x<5 then y:=1 else y:=2;
If x>5 then y:=3 else y:=4;
Writeln(‘y=‘,y)
End.

x>5

x<5

X

y

x>5 then y:=0 else y:=1;
Writeln(‘y=‘,y)
End.



x>5
x

с заданными координатами X,Y
X
Y
(X>0)and(Y>0)
(X0)
(X0)then writeln(‘1четверть’)else if (X0) then

writeln(‘2четверть’) else if (X<0)and(Y<0) then writeln(‘3четверть’) else writeln(‘4четверть’)

чисел a,b равно 0
If (a=0) or (b=0) then

writeln(‘верно’) else writeln (‘неверно’)

«Да» и по ветке «Нет» должно быть выполнено несколько

действий!!!

Для реализации таких ситуаций на Паскале использую операторный скобки
begin оператор1;оператор2;……….end;

readln(a,b,c);
d:=sqr(b)-4*a*c;
If

d <0 then writeln(‘нет корней’)
else if d=0 then begin X:=(-1*b)/(2*a);
writeln(‘два равных корня’,x) end
else begin x1:=(-1*b+sqrt(d))/(2*a);
x2:=(-1*b-sqrt(d))/(2*a);
writeln(‘первый корень’,x1,’второй
корень’,x2) еnd end.