Отчет по практике: Редактирование и отладка программ с помощью Pascal

Readln(a,b,c);

If (a=b) or (a=c) or (b=c) then writeln(‘имеется’)

else writeln(‘не имеется’);

end.

(Вводим значение 5,6,7)

Ответ: не имеется

Задание10.Дано вещественное число. Вывести на экран его абсолютную величину

Program as; Блок-схема

Uses crt;

Var a:real;

Begin clrscr;

Readln(a);

if (a>0) or (a<0)then writeln(abs(a):5:2);

readln;

end.

(Вводим значение 56)

Ответ: получаем абсол. величину.

Задание11. Даны 2 целых числа, определить какое из них меньше

Program as; Блок-схема

Uses crt;

Var a,b:integer;

Min:integer;

Begin clrscr;

Writeln(‘Введи 2 числа’);

Readln(a,b);

min:=b

min:=a

If a<b then min:=a else min:=b;

Writeln(‘Минимальное=’,min);

Readln;