Написать программу на языке pascal для решения любого квадратного уравнения.

218

436

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

Ответы на вопрос:

rakitina03

Информатика

4,5(16 оценок)

Var a,b,c,x1,x2,d: integer; begin readln(a,b,c): if a=0 then writeln('уравнение не квадратное') else begin d: =sprt(b*b-4*a*c); if d< 0 then writeln('корней нет') else if d=0 then x1: =(-1*b)/(2*a); writeln(x1) else if d> 0 then x1: =(-1*b-d)/(2*a); x2: =(-1*d+d)/(2*a); writeln(x1,' ',x2); end; end.

nfyrb2014

Информатика

4,4(64 оценок)

известный ученый, информатик, , логистик, основоположник кибернетики, теории об искусственном интеллекте. создал уравнение виннера-хоппа, написал множество трудов по теории вероятностей, статистике, интегралам, логарифмам и пр. сильно военным, созданием системы пво.