Saya sedang membuat program matriks 100 x 100, yang hasilnya akan di simpan ke dalam file.
Bagaimana caranya agar pada saat perintah writeln setiap baris dapat terisi 100 kolom?
if SaveFile.Execute then
begin
sp:=' ';
AssignFile(F, SaveFile.Filename);
Rewrite(F);
for n:=0 to nt do
begin
nStr:=FormatFloat('00',n);
for i:=0 to it do
begin
TStr[n,i]:=FormatFloat('00.000',T[n,i]);
end;
Writeln (F,nStr,sp,TStr[n,0],sp,TStr[n,1],sp,.....,TStr[n,it]);?????
end;
CloseFile(F);
0 komentar:
Posting Komentar