IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> типизированный файл, assign,write,rewrite
сообщение
Сообщение #1


Гость






привет всем! очень нужна помощь! написала программу, а теперь ее результат нужно вписать в текстовый файл. очень прошу помочь. сама программа:

Program proced;
uses crt;
Type ar=array[1..30] of real;
var Z,T,U:ar;
i,j,k:byte;
y,yz,yt,yu,nz,nt,nu,nk:byte;
f:file of real;
f1:text;
procedure analiz(var N:byte; Z:ar);
var i,k:byte;
begin
k:=0;
for i:=1 to N do
begin
if z[i]>0 then write(' El# ',i:3,' - pol;');
if z[i]<0 then write(' El# ',i:3,' - otr;');
k:=k+1;
if k>2 then
begin
writeln;
k:=0;
end;
end;
end;
Procedure WaitSpace;
Var ch : char;
Begin
writeln('Dlia prodolgeniya nagmite SPACE');
Repeat
ch:=ReadKey;
Until ord(ch)=32;
End;
BEGIN
ClrScr;
nz:=30;
writeln('Massiv Z');
for i:=1 to nz do
begin
z[i]:=sin(1.5*i)+3*(cos(2*i));
write(Z[i]:8:3);
end;
writeln;
analiz (Nz,Z);
writeln;
WaitSpace;
Clrscr;
nt:=20;
writeln('Massiv T');
for j:=1 to nt do
begin
t[j]:=j*cos(1.5*j+2);
write(T[j]:8:3);
end;
writeln;
analiz(Nt,T);
writeln;
WaitSpace;
ClrScr;
nk:=25;
writeln('Massiv U');
for k:=1 to nk do
begin
U[k]:=sin(2*k)*cos(2.5*k);
write(U[k]:8:3);
end;
writeln;
analiz(Nk,U);
writeln;
WaitSpace;
end.

 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

Репутация: -  11  +


blink.gif
У меня работает отлично, вот полный пример

Type
ar=array[1..30] of real;

procedure WriteArray(Const mas:ar; Var f:text; Const n:byte);
var i:byte;
begin
for i:=1 to n do
writeln(f,mas[i]);
end;


procedure WriteResult(Const A,B,C:ar; Const path:string; Const n:byte);
var f:text; i:byte;
begin
assign(f,path);
{$I-}
rewrite(f);
{$I+}
if IoResult<>0 then begin
writeln('Cannot create file');
readln;
exit;
end;

WriteArray(A,f,n);
WriteArray(B,f,n);
WriteArray(C,f,n);
close(f);
end;


var A,B,C:ar;
begin
WriteResult(A,B,C,'c:\res.txt',30);
end.



Создаваемый файл: Прикрепленный файл  res.txt ( 1.67 килобайт ) Кол-во скачиваний: 448


--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Юлия   типизированный файл   8.01.2007 21:31
polic   код в теги для начала занеси Для таких замечаний …   8.01.2007 21:36
polic   для этого используется процедура outdata вот так в…   8.01.2007 22:00
Гость   для этого используется процедура outdata вот так …   8.01.2007 23:41
volvo   polic, а тебя, кстати, теги тоже касаются... Устно…   8.01.2007 22:03
polic   я поэтому и пишу чтоб самому тож не забыть про тэг…   8.01.2007 22:07
polic   ты пишеш сначало куда поместить например assign …   8.01.2007 23:54
polic   мою прогу там тож надо вывести в файл позырь ,мож…   9.01.2007 0:07
Юлия   а ты не мог бы с мою прогу поделать? просто я уже …   9.01.2007 0:26
Bokul   Вот: procedure WriteResult(Const A,B,C:ar; Const…   9.01.2007 0:38
Bokul   С текстовыми: Type ar=array[1..30] of real; p…   9.01.2007 0:52
Гость   там где записываем в файл массивы WriteArray(A,f…   9.01.2007 1:45
Bokul   :blink: У меня работает отлично, вот полный приме…   9.01.2007 1:54
Гость   работает! но выводит сам массив. а как вывести…   9.01.2007 2:27
polic   if IoResult<>0 then begin не известен ко…   9.01.2007 2:29
klem4   Чтоже за компилятор то у тебя такой ... попробуй п…   9.01.2007 2:40
Bokul   А как ты хочешь их выводить? Отдельно положител…   9.01.2007 2:45
Юлька@   я прикрепила свою программу. как в ней выводятся, …   9.01.2007 2:59
Bokul   Type ar=array[1..30] of real; procedure Write…   9.01.2007 3:11
Юлька@   Bokul,огромное спасибо! у меня все работает…   9.01.2007 4:33


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 18:27
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name