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

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

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

Uses crt;

Var a,b:integer;

Max:integer;

Begin clrscr;

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

Readln(a,b);

Max:=b

Max:=a

If a>b then max:=a else max:=b;

Writeln(‘Максимально=’,max);

Readln;

End.

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

Ответ: 6

Задание 2.Известны стороны треугольника, определить равны ли его стороны (равноб) или разносторон.

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

uses crt;

var a,b,c:integer;

begin clrscr;

writeln('Введи стороны ');

readln(a,b,c);

if (a=b) or (a=c) or (c=b) Да Нет

then writeln('равноб.') else writeln

('разност.');

readln;

end.

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

Ответ: Равноб.