Автор Пользователь удален задал вопрос в разделе Домашние задания
составить прогу для решения квадратного уравнения.в паскаль абц и получил лучший ответ
Ответ от Valera Balberov[гуру]
var a, b, c, D: Integer; x1, x2: Real; begin WriteLn(\'Vvedite a, b, c\'); ReadLn(a, b, c); D := b * b - 4 * a * c; if D > 0 then begin x1 := (-b + Sqrt(D)) / 2 * a; x2 := (-b - Sqrt(D)) / 2 * a; WriteLn(\'x1 = \', x1:6:2); WriteLn(\'x2 = \', x2:6:2); end else if D = 0 then begin x1 := -b / 2 * a; WriteLn(\'x1 = x2 = \', x1:6:2); end else WriteLn(\'Uravnenie ne imeet korney\'); end.
Ответ от Andrushkevich.va@inbox.ru[активный]
А від уравненія задаёт пользователь???
А від уравненія задаёт пользователь???
Ответ от Net[гуру]
как быстро надо решить? если есть пару часов, то без проблем....
как быстро надо решить? если есть пару часов, то без проблем....
Ответ от Георгий Зотиков[гуру]
ответ послал на почту
ответ послал на почту
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: составить прогу для решения квадратного уравнения.в паскаль абц
Помогите составить программу в Pascal ABC
program ok;
var
num:integer;
a,b,c:integer;
begin
readln(num);
a:=num
подробнее...