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

Uses crt;

Var x,y:integer;

Begin clrscr;

Writeln(‘Введи аргумент x’);

Readln(x);

If x>0 then Y:=-4*sqr(x)+8

Y:=sqr(x)+3*x+4

Y:=-4*sqr(x)+8

else Y:=sqr(x)+3*x+4;

writeln(‘Y=’,y);

readln;

end.

Задание 8. Даны три вещественных числа a,b,c. Проверить выполняется ли неравенство a<b<c.

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

uses crt;

var a,b,c:integer;

begin clrscr;

writeln(‘Введи три числа’);

readln(a,b,c);

if (a<b) and (b<c) then writeln(‘верно’)

else writeln(‘не верно’);

readln;

end.

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

Ответ: выполняется

Задание 9.Даны три вещественных числа. Определить, имеется ли среди них хотя бы пара равных между собой чисел

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

Uses crt;

Var a,b,c:integer;

Begin clrscr;