Ответы
Ответ дал:
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.
(Код из интернета)
Вас заинтересует
3 месяца назад
3 месяца назад
3 месяца назад
1 год назад
7 лет назад