Question

Тема Паскаль, нужно решить две задачи

Answer 1

Ответ:

192.

abs(x) - Вычисление модуля x

sqr(x) - Извлечение квадратного корня из x

sqrt(x) - Возведение x в квадрат

random(x) - Получение случайного числа.

193.

var a,b,c,d: integer;

x1, x2:real;

begin

writeln('Квадратное уравнение вида: ax² + bx + c = 0');

writeln('Введите a, b, c: ');

read(a,b,c);

d := b*b - 4*a*c;

writeln('D = ', d);

if d < 0 then

writeln('D < 0, уравнение не имеет смысла')

else

if d = 0 then

begin

x1 := -b/(2*a);

writeln('x = ', x1);

end

else

begin

x1 := (-b + sqrt(d)) / (2*a);

writeln('x1 = ',x1);

x2 := (-b - sqrt(d))/(2*a);

writeln('x2 = ',x2);

end;

end.

(Код из интернета)