Практическая работа
Программирование разветвляющихся алгоритмов
Наберите текст программ в 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.
Электронная тетрадь по информатике 8...
Информатика и ИКТ 11 класс (к учебнику...
Видеоуроки по информатике 6 класс (к...
Электронная тетрадь по информатике 5...
Информатика 10 класс ФГОС
Электронная тетрадь по информатике 9...
Информатика 4 класс ФГОС
Информатика 3 класс
© 2019, Ларская Юлия Валерьевна 1651 62
Рекомендуем курсы ПК и ППК для учителей
Похожие файлы