Помощь - Поиск - Пользователи - Календарь
Полная версия: Запись данных в файл
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.


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

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

а можно сделать (хоть это и не особо хорошо)
f: file of mas;

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

а деньги можешь на счет форума кинуть ;)
Счета форума
volvo
Цитата
понятно или написать подробнее?
yes2.gif Написать подробнее... Я вот например не понял, как это ты в типизированный файл пишешь через
write(f,x[i,j]:8:4);


Кстати, автору неплохо было бы уточнить, на самом деле - с каким файлом работаем?
мисс_граффити
blink.gif скопировала лишнее.
спасибо, исправила.
lexus27
Цитата(Rom1k @ 19.05.2007 2:33) *

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

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

Добавлено через 9 мин.
мисс_граффити, большое спасибо! но если не трудно, то хотелось бы подробнее...smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.