Презентация на тему Управляющие конструкции языка Паскаль, условный оператор

за другим

(ветвление) и изменяет порядок выполнения операторов
в зависимости от

истинности или ложности некоторого условия.

1> else;

и краткая форма:
if then;
Если

(IF) условие истинно, тогда (THEN) выполняется оператор1, иначе (ELSE) выполняется оператор2.

операторными скобками Begin и End. В этом случае данная

группа операторов, состоящая из произвольного количества любых операторов, воспринимается компилятором как один оператор.

Begin
Write (‘Текущее сообщение’);
z:=l;
d:=d+l;
End;

If х>=0 then
begin
write (‘Контрольное число положительно’);
z:=z+l;
d:=d-1;
x:=x+10;
end
else
begin
write (‘Контрольное число отрицательно’);
z:=z-l;
d:=d+l;
x:=x-10;
end.

real;
x1, x2 : real;
D : real;
Begin
Writeln('Решение

квадратного уравнения');
Write('введите коэффициент а:',a);
Readln(a);
Write('введите коэффициент b:', b);
Readln(b);
Write('введите коэффициентc:', c);
Readln(c);
D:=b*b-4*a*c;
If D>0 then
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
Writeln('Первый корень уравнения:', x1);
Writeln('Второй корень уравнения:', x2);
end;
If D=0 then
begin
x1:=-b/(2*a);
Writeln('Уравнение имеет один корень:' , x1);
end;
If D<0 then
Writeln('Уравнение корней не имеет');
Readln;
End.

ах + bх + с = 0

2

D=b - 4a*c

2

D>0

D=0

D<0 уравнение корней не имеет

if x-20 then
begin
y:=sqrt(x+5)/(x-2);

write(y);
end
else writeln('нет решения')
else writeln('нет решения')
End.