Matematické Fórum

Ahoj, potřeboval bych trochu pomoct. Udělal jsem proceduru na výpočet... , ale profesor nechce aby načtení bylo jako procedura. Chce asi jen výpočet determinantu jako proceduru. A já nevím jak to mám upravit aby to fungovalo.Děkuji každému kdo mi poradí díky

{2.  SESTAVTE PROCEDURU PRO VYPOCET HODNOTY DETERMINANTU DRUHEHO RADU A POUZIJTE
    JI PRO RESENI SOUSTAVY DVOU LINERARNICH ROVNIC O DVOU NEZNAMYCH. ZVOLTE DVE
    SOUSTAVY.}


type promenna=array [1..2]of real;

var x,y,v:promenna;
    a,b,d,DX,DY:real;

procedure nacti (var v:promenna);
  var i:integer;
  begin
    for i:=1 to 2 do
      begin
        if i=1 then
          begin
            write('Pro 1. rovnici: ');
            readln(x[i]);
          end;
        if i=2 then
          begin
            write('Pro 2. rovnici: ');
            readln(x[i]);
          end;
      end;
  end;
procedure det (x,y:promenna; var D:real);
   begin
    D:=x[1]*y[2]-x[2]*y[1];
  end;

begin
  writeln ('Program pomoci procedury vypocita determinan a nasledne pomoci Cramerova');
  writeln ('pravidla vypocita soustavu rovnic o dvou neznamych');
  writeln('*******************************************************************************');
  writeln;
  writeln('Zadejte X-ove hodnoty nejprve pro prvni rovnici a pak pro druhou: ');
  nacti (x);
  writeln;
  writeln('Zadejte Y-ove hodnoty nejprve pro prvni rovnici a pak pro druhou: ');
  nacti (y);
  writeln;
  writeln('Zadejte vysledne hodnoty nejprve pro prvni rovnici a pak pro druhou: ');
  nacti (v);
  det (x,y,D);
  det (v,y,DX);
  det (x,v,DY);
  a:=DX/D;
  b:=DY/D;
  writeln ('Vase promenna X=',a:3:0);
  writeln ('Vase promenna Y=',b:3:0);
  readln;
  writeln;
end.