Помогите, пожалуйста! Составите задачу в Pascal ABC и блок-схему: "Определить среди корней квадратного уравнения (вида ax^2+bx+c=0) наибольший и возвести его в квадрат. Приэтом необходимо найти сами корни уранения." Заранее спасибочки:)
Answers & Comments
rus10011111
Vara, b, c, x, x1, x2, d, max: real;beginwrite('Введите a:');readln(a);write('Введите b:');readln(b);write('Введите c:');readln(c);d := b * b + 4 *a * c;if d > 0 then begin x1 := (-b + sqrt(d))/(2 * a); x2 := (-b - sqrt(d))/(2 * a); if x1 > x2 then max := x1 else max := x2; end else if d = 0 then max := -b /(2 * a);if ( d < 0) then writeln('Корней нет')else writeln(max * max); end.
Answers & Comments