Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Запись данных в файл
Автор: lexus27 19.05.2007 3:56
Имеется программа: (задание прикреплено)
Цитата
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.
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 19.05.2007 5:33
Программа работает правильно? как задано в условии? как я понял тебе надо выводимую матрицу записать в новый файл?
Автор: мисс_граффити 19.05.2007 6:51
нужно просто заменить вывод на экран на вывод в файл?
тогда так:
{твои переменные}
f: file of real;
begin
assign(f,'failik.dat'); {указываешь путь. можно попросить, чтобы пользователь ввел}
rewrite(f); {можно добавить проверку, не был ли он создан ранее-возможно, надо будет сохранить данные}
{твоя программка}
write(f,x[i,j]);
{еще кусок твоей программки}
close(f);
end.
а можно сделать (хоть это и не особо хорошо)
f: file of mas;
и писать туда массив целиком.
понятно или написать подробнее?
а деньги можешь на счет форума кинуть ;)
http://forum.pascal.net.ru/index.php?showtopic=9779&hl=%F1%F7%E5%F2%E0
Автор: volvo 19.05.2007 6:55
Цитата
понятно или написать подробнее?
Написать подробнее... Я вот например не понял, как это ты в типизированный файл пишешь черезwrite(f,x[i,j]:8:4);
Кстати, автору неплохо было бы уточнить, на самом деле - с каким файлом работаем?
Автор: мисс_граффити 19.05.2007 7:23
скопировала лишнее.
спасибо, исправила.
Автор: lexus27 19.05.2007 11:27
Цитата(Rom1k @ 19.05.2007 2:33) 
Программа работает правильно? как задано в условии? как я понял тебе надо выводимую матрицу записать в новый файл?
ага, только вот точно не знаю в какой именно файл...наверное, в двоичный типизированный
Добавлено через 9 мин.
мисс_граффити, большое спасибо! но если не трудно, то хотелось бы подробнее...
