Запись данных в файл, двумерный массив.... Опции

[lexus27]

Имеется программа: (задание прикреплено)

program lab;
uses crt;
type mas = array [1..5,1..6] of real;
var
x:mas;
i,j,d:integer;
begin
writeln('Vvedite chislo ');
readln(d);
for i:=1 to 5 do begin
for j:=1 to 6 do begin
if i>j+2 then
x[i,j]:=sqr(d)*i+sqrt(0.938*j)
else x[i,j]:= sin((i*pi/j)+0.387)/sqrt(1-sqr(sin((i*pi/j)+0.387)))
end;
end;
if x[2,1] > x[3,1] then
for j:=1 to 6 do
x[2,j]:=x[2,j] + sqrt( sqr(x[2,j]) + 0.98)
else
for j:=1 to 6 do
x[3,j]:=x[3,j] + sqrt( sqr(x[3,j]) + 1.2);
for i:=2 to 3 do begin
for j:=1 to 6 do begin
if j <> 6 then write(x[i,j]:8:4)
else writeln(x[i,j]:8:4)

end;
end;
end.

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

Сообщение отредактировано: lexus27 - 19.05.2007 7:05

[Rom1k]

Программа работает правильно? как задано в условии? как я понял тебе надо выводимую матрицу записать в новый файл?

[мисс_граффити]

нужно просто заменить вывод на экран на вывод в файл?
тогда так:

{твои переменные}
f: file of real;
begin
assign(f,'failik.dat'); {указываешь путь. можно попросить, чтобы пользователь ввел}
rewrite(f); {можно добавить проверку, не был ли он создан ранее-возможно, надо будет сохранить данные}
{твоя программка}
write(f,x[i,j]);
{еще кусок твоей программки}
close(f);
end.

а можно сделать (хоть это и не особо хорошо)

f: file of mas;

и писать туда массив целиком.
понятно или написать подробнее?

а деньги можешь на счет форума кинуть ;)
Счета форума

Сообщение отредактировано: мисс_граффити - 19.05.2007 3:24

[volvo]

понятно или написать подробнее?

Написать подробнее... Я вот например не понял, как это ты в типизированный файл пишешь через

write(f,x[i,j]:8:4);

Кстати, автору неплохо было бы уточнить, на самом деле - с каким файлом работаем?

[мисс_граффити]

скопировала лишнее.
спасибо, исправила.

[lexus27]

Программа работает правильно? как задано в условии? как я понял тебе надо выводимую матрицу записать в новый файл?

ага, только вот точно не знаю в какой именно файл...наверное, в двоичный типизированный

Добавлено через 9 мин.
мисс_граффити, большое спасибо! но если не трудно, то хотелось бы подробнее...