Презентация на тему Сложные условия на Паскале

Составить схему и объяснить что будет напечатано программой, если в качестве исходных данных будет выведено значение 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

Program a1;
Var x,y:integer;
Begin
Read(x);
If x<5 then y:=-1
else If x>5 then y:=0 else y:=1;
Writeln(‘y=‘,y)
End.
x>5
x<5
X
y

Определить значение переменной z
Z:=2
Z:=-1
Вывод Z
Z:=0
Z>2
Z<2
Да
Да
Нет
Нет
Z=2

Составить алгоритм который определит какой четверти принадлежит точка с заданными координатами X,Y
X
Y
(X>0)and(Y>0)
(X<0)and(Y>0)
(X<0)and(Y<0)
(X>0)and(Y<0)
If (X>0)and(Y>0)then writeln(‘1четверть’)else if (X<0)and(Y>0) 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 (‘неверно’)

Даны коэффициенты квадратного уравнения a,b,c найти корни
a,b,c
D:=b*b-4*a*c
Да
Да
Нет
Нет

Обратите внимание!!! При проверке второго условия по ветке «Да» и по ветке «Нет» должно быть выполнено несколько действий!!!
Для реализации таких ситуаций на Паскале использую операторный скобки
begin оператор1;оператор2;……….end;

Program korni;
Var a,b,c,d,x1,x2,x:?????;
Begin writeln(‘введи коэффициенты’);
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.