Найти минимальное значение среди корней трех квадратных уравнений

@LesnikZar · Регистрация: 03.07.2009

Author24 — интернет-сервис помощи студентам

Помогите, плиз, с задачей! Заданы три квадратных уравнения(любые). Найти минимальное значение среди корней этих уравнений. Вычисления нужно оформить ввиде процедуры или функции.

Добавлено через 1 час 0 минут

Pascal

program koren;
uses crt;
var max,X1,X2,X3,X4,X5,X6,q,w,e:real;
t,y:array[1..6] of real;
i:integer;
procedure zoom(A,B,C:real;  var Y1,Y2:real);
var D:real;
    begin
     D:=B*B-4*A*C;
    Y1:=(-B+SQRT(D))/(2*A);
    Y2:=(-B-SQRT(D))/(2*A);
   end;
begin
clrscr;
     begin
       for i:=1 to 3   do
   read(q,w,e);
   zoom(q,w,e,X1,X2);
   t[i]:=X1;    y[i]:=X2;
   end;
   begin
   for i:=1 to 3 do
   writeln('  X1= ',t[i]:2:2,'  X2= ',y[i]:2:2);
   if max<t[i]   then   max:=t[i];
   if max<y[i]    then   max:=y[i];
   end;
   writeln('max= ',max:2:2);
  readkey;
End.

Подскажите почему программа работает неправильно!!!

Добавлено через 2 минуты

Pascal

program koren;
uses crt;
var max,X1,X2,X3,X4,X5,X6,q,w,e:real;
t,y:array[1..6] of real;
i:integer;
procedure zoom(A,B,C:real;  var Y1,Y2:real);
var D:real;
    begin
     D:=B*B-4*A*C;
    Y1:=(-B+SQRT(D))/(2*A);
    Y2:=(-B-SQRT(D))/(2*A);
   end;
begin
clrscr;
     begin
       for i:=1 to 3   do
   read(q,w,e);
   zoom(q,w,e,X1,X2);
   t[i]:=X1;    y[i]:=X2;
   end;
   begin
   for i:=1 to 3 do
   writeln('  X1= ',t[i]:2:2,'  X2= ',y[i]:2:2);
   if max<t[i]   then   max:=t[i];
   if max<y[i]    then   max:=y[i];
   end;
   writeln('max= ',max:2:2);
  readkey;
End.

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

	28.04.2010, 03:10