Оператор ветвления на Паскале

Составной оператор ветвления
Решение задач

присваивает значение 10 и выводит это значение на экран. Отладить

созданную программу.

Вариант №2 на 5-ку

Заданы величины X, Y действительного типа. Написать программу для обмена значений величин. Протестировать алгоритм для X=-3 и Y=8.

x :integer;
begin
write('x= '); read(x);
writeln('rez= ',x);
end.
Вариант №2

на 5-ку

program var1;
var x, y, t :real;
begin
write('x= '); read(x);
write('y= '); read(y);
t:=x; x:=y; y:=t;
writeln('x=',x);
writeln('y=',y);
end.

(описаний)
Const имя=значение;
Var имя,

имя: тип1;
имя, имя: тип2;
III. Тело программы
Begin
операторы
End.

в зависимости от результата проверки условия.

else оператор2
условие - это переменная типа boolean или логическое выражение,

которое может быть простым или сложным:
оператор 1 и оператор 2 - любой оператор (Writeln, Readln, оператор присваивания, if и т.д.)
Неполная форма условного оператора:
if условие then оператор

Перед else знак «;» не ставится.

!

В. Определить большее из них. Результат положить в ячейку –

Х.
Аргументы – А, В
Результаты – Х

Program pr1;
Var a,b,Х :integer;
Begin
Write ('a='); Readln (a);
Write ('b='); Readln (b);
IF a>=b THEN Х:=a ELSE Х:=b;
Writeln (‘Х=',Х);
End.

Результат положить в ячейку – Х
Аргументы – А, В,

С
Результаты – Х

Пример решения задачи – БИТ на неполный условный оператор

Решение

b: real;
begin
readln (a, b);
write ('Введите значение точки');
readln

(x);
if (x>=a) and (x<=b)
then writeln (' принадлежит отрезку')
else writeln (' не принадлежит отрезку')
еnd.

можно использовать только один оператор.
Если в условном операторе после

then или после else
нужно выполнить несколько операторов, то
используют составной оператор – конструкцию вида:
begin <последовательность операторов> end

Операторными скобками называется пара зарезервированных слов
"begin ... еnd"

оператор 1;
оператор 2
end
else begin
оператор 1;
оператор 2
end;

Составной оператор

x2:=(-b-sqrt(d))/2/a;
writeln ('Корни уравнения:');

writeln ('x1=', x1:9:3);
writeln ('x2=', x2:9:3)
end

begin
x:=-b/2/a;
writeln ('Корень уравнения x=', x:9:3)
end

program kvur;
var a, b, c, d, x, x1, x2: real;
begin
readln (a, b, c);
d:=b*b-4*a*c;
if d<0 then writeln ('Корней нет')
else
if d=0 then

else

end.

Решение квадратного уравнения

Решение

real;
begin
readln (a, b, c);
d:=b*b-4*a*c;
if d

('Корней нет');
if d=0 then begin
x:=-b/2/a;
writeln ('Корень уравнения x=', x:9:3)
end;
if d>0 then begin
x1:=(-b+sqrt(d))/2/a;
x2:=(-b-sqrt(d))/2/a;
writeln ('Корни уравнения:');
writeln ('x1=', x1:9:3);
writeln ('x2=', x2:9:3)
end;
end.

Решение квадратного уравнения
2 способ

Решение

begin end
Полная форма
Неполная форма
Составной оператор