Программирование разветвляющихся

Исправьте ошибки в приведенном фрагменте программного кода program z1 var a b integer с real

условный оператор
неполный условный оператор
составной оператор
вложенные ветвления

Общий вид условного оператора Перед else знак «;» не ставится

Общий вид условного оператора

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

Полная форма условного оператора:
if <условие> then <оператор_1> else <оператор_2>

Неполная форма условного оператора:
if <условие> then <оператор>

Условный оператор program n_9; var x, a, b: real; begin writeln (‘Определение принадлежности точки отрезку’); write (‘Введите а, b>>’); readln (a, b); write (‘Введите x>>’);…

program n_9;
var x, a, b: real;
begin
writeln (‘Определение принадлежности
точки отрезку’);
write (‘Введите а, b>>’);
readln (a, b);
write (‘Введите x>>’);
readln (x);
if (x>=a) and (x<=b) then
writeln (‘Точка принадлежит отрезку’)
else writeln (‘Точка не принадлежит отрезку’)
еnd.

Неполный условный оператор program n_10; var y, a, b, c: integer; begin writeln (‘Нахождение наибольшей из трёх величин’); write (‘Введите а, b, с>>’); readln (a,…

Неполный условный оператор

program n_10;
var y, a, b, c: integer;
begin
writeln (‘Нахождение наибольшей из трёх величин’);
write (‘Введите а, b, с>>’);
readln (a, b, c);
y:=a;
if (b>y) then y:=b;
if (c>y) then y:=c;
writeln (‘y=’, y)
end.

В условном операторе и после then, и после else
можно использовать только один оператор.

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

Блок-схема решения КВУР Конец Вывод «Корни уравнения: х1=», х1, «х2=», х2 х1:=(-b+sqrt(d))/2/a

Блок-схема решения КВУР

Вывод
«Корни уравнения:
х1=», х1, «х2=», х2

Введите коэффициенты a, b, c

Вывод
«Корень уравнения х=», х

Корни уравнения:’); writeln (‘x1=’, x1:9:3); writeln (‘x2=’, x2:9:3) end begin x:=-b/2/a; writeln (‘Корень уравнения x=’, x:9:3) end program n_11; var a, b, c: real; var…

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

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

program n_11;
var a, b, c: real;
var d: real;
var x, x1, x2: real;
begin
writeln (‘Решение квадратного уравнения’);
write (‘Введите коэффициенты a, b, c >>’);
readln (a, b, c);
d:=b*b-4*a*c;
if d<0 then writeln (‘Корней нет’)
else
if d=0 then

if <условие1> then
if <условие2> then <оператор1>
else <оператор2>
else <оператор3>

else всегда относится к ближайшему оператору if

Решение линейного уравнения

Самое главное При записи на языке

При записи на языке Паскаль разветвляющихся алгоритмов используют условный оператор:
if <условие> then <оператор_1> else <оператор_2>
Для записи неполных ветвлений используется неполный условный оператор:
if <условие> then <оператор>
Если при некотором условии требуется выполнить определённую последовательных операторов, то их объединяют в один составной оператор, имеющий вид:
begin <последовательность операторов> end

Вопросы и задания Как на языке

Как на языке Паскаль записывается полное и неполное
ветвление?

Является ли условным оператором последовательность символов?
а) if x

Что такое составной оператор?
Для чего он используется в условном операторе?

Используя составной оператор, упростите следующий фрагмент программы:
if a>b then c:=1;
if a>b then d:=2;
if a<=b then c:=3;
if a<=b then d:=4

Дано трёхзначное число.
Напишите программу, которая определяет:

есть ли среди цифр заданного целого трёхзначного числа одинаковые;

Пример входных данных

Пример выходных данных

является ли число «перевёртышем», т. е. числом, десятичная запись которого читается одинаково слева направо и справа налево.

Пример входных данных

Пример выходных данных

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

Пример входных данных

Пример выходных данных

Координаты 1-й точки>>1, 2
Координаты 2-й точки>>3, 4

Первая точка ближе

Пример входных данных

Пример выходных данных

Даны три натуральных числа. Напишите программу, определяющую, существует ли треугольник с такими длинами сторон.
Если такой треугольник существует, то определите его тип (равносторонний, равнобедренный, разносторонний).

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

Пример входных данных

Пример выходных данных

Точка лежит под прямой

Точка лежит над прямой

Точка лежит на прямой

Напишите программу, определяющую, лежит ли точка
А(ха, ya):
а) на прямой y = kx + l, над ней или под ней;

Пример входных данных

Пример выходных данных

Напишите программу, которая производит обмен
значений переменных x и y, если x больше y.

Дан условный оператор:
If a<5 then c:=1
else if a>5 then c:=2
else c:=3
Какое значение имеет переменная а, если в результате выполнения условного оператора переменной с присваивается значение 3?