Zdravím, chtěl bych požádat o radu. Mam kod na výpočet rovcni pomocí Cramerova pravidla. Čtení ze souboru. Vypíše mi to výsledek, ale já bych rád, aby mi to do pole vypsalo i zadaná čísla rovnice. Zkoušel jsem už mnoho způsobů, i nadefinovat pole matice a pak čísla vypsat, ale evypisovaly se po řádcích, ale pod sebou.
Děkuji za radu.
program Project;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a1,a2,a3,b1,b2,b3,DetA,DetA1,DetA2:real;
f:text;
procedure Cramerovo_pravidlo(x1,x2,y1,y2:real;var
rovnice:real);
begin
rovnice:=x1*y2-x2*y1;
end;
begin
writeln('Vypocet soustavy linearnich rovnic pomoci Cramerova pravidla');
writeln('************************************************************');
writeln;
assign(f,'zadani.txt');
reset(f);
readln(f,a1,a2,a3);
readln(f,b1,b2,b3);
Cramerovo_pravidlo(a1,a2,b1,b2,DetA);
Cramerovo_pravidlo(a3,a2,b3,b2,DetA1);
Cramerovo_pravidlo(a1,a3,b1,b3,DetA2);
writeln('Vysledek');
writeln('********');
writeln;
writeln('x=',DetA1/DetA:4:0);
writeln('y=',DetA2/DetA:4:0);
close(f);
readln;
end.