Forum programmazione

[Fabriz]

Code: Select all

Program eqsecondo;
//By JSBach
type
    vett=array[1..3] of integer;
var a:vett;
    sol1,sol2:real;
procedure carica(var x:vett);
var i:byte;
begin
     for i:=1 to 3 do
                     begin
                          write('Coefficente ',i,': ');
                          readln(x[i]);
                     end;
end;
function discrim(x:vett):real;
begin
     discrim:=sqr(x[2])-4*x[1]*x[3];
end;
begin
     carica(a);
     sol1:=(-a[2]+sqrt(discrim(a)))/2;
     sol2:=(-a[2]-sqrt(discrim(a)))/2;
     writeln('Le soluzioni: ',sol1:4:2,sol2:4:2);
     readln;
end.