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

Практическая работа

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

Наберите текст программ в Pascal ABC, исправьте ошибки в тексте программ, а также выполните их при различных значениях переменных.

1.

program Р1;

var x, a, b: realn;

begin

writeln ('Определение принадлежности

точки отрезку');

write ('Введите а, b');

readln (a, b);

write ('Введите x');

readln (x);

if (x=a) and (xthen

writeln ('Точка принадлежит отрезку')

else writeln ('Точка не принадлежит отрезку')

еnd.

2.

program Р2;

var y, a, b, c: integer;

begin

writeln ('Нахождение наибольшей из трёх величин');

write ('Введите а, b, с');

readln (a, b, c);

y=a;

if (by) then y:=b;

if (cy) then y:=c;

writeln ('y=', y)

end.

3.

program Р3;

var a, b, x: real;

begin

writeln ('Решение линейного уравнения');

write ('Введите коэффициенты a , b')

readln (a, b);

if a0 then

begin

x:=-b/a;

writeln ('Корень уравнения x=, x:9:3)

end

else if b0 then writeln ('Корней нет')

else writeln ('x – любое число');

end.