Составить программу вычисления корней квадратного уравнения по данным значениям его коэффициентов

1 ответ

Посмотреть ответы

DevAdmin

1685

Var
a,b,c,d:real;
begin
writeln('a,b,c ?');
readln(a,b,c);
d:=sqr(b)-4*a*c;
if d<0 then writeln('d<0');
if d>0 then
writeln('x1= ',((-b)+sqrt(d))/(2*a),' x2= ',((-b)-sqrt(d))/(2*a)) ;
if d=0 then
writeln('x1= ',(-b)/(2*a));
end.

Хороший ответ

12 декабря 2022 22:08

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Какие команды присваивания составлены правильно? а) А:=В б) А=В в) А=В+1 г) А+1:=А 2. Сколько промежуточных переменных потребуется для того,чтобы пере... Что такое div и mod в информатике и как их использовать в программе КуМир?... Построить логическую схему, соответствующую логическому выражению. Определить значение логического выражения F, построив таблицу истинности для заданн... Какая команда присвоения должна следовать за командами А:= А + В и В:= А - В, чтобы последовательное выполнение всех трех команд вело к обмену значени... БЛ, ДА ПОМОГИТЕ ЖЕ!(( Двухканальная (стерео) запись имеет информационный объём 900 Кбайт, полученный при частоте дискретизации 51200 Гц и разрешении 8...