типизированный файл, assign,write,rewrite |
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. |
polic |
Сообщение
#2
|
гений чегото Группа: Пользователи Сообщений: 108 Пол: Мужской Репутация: -1 |
для этого используется процедура outdata вот так выводятся файлы для примера
....... Код procedure outdata; var g:text; begin assign(g,'output.txt'); rewrite(g) close(g) end; ..... Сообщение отредактировано: polic - -------------------- -------------
избранный.... но не в Паскале..... |
Гость |
Сообщение
#3
|
Гость |
для этого используется процедура outdata вот так выводятся файлы для примера ....... Код procedure outdata; var g:text; begin assign(g,'output.txt'); rewrite(g) close(g) end; ..... т.е. я открываю новую процедуру? я правильно поняла? но тогда даже не появляется текстовый документ. |
Текстовая версия | 15.10.2024 20:21 |