типизированный файл, 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. |
Bokul |
Сообщение
#2
|
Гуру Группа: Пользователи Сообщений: 1 117 Пол: Мужской Реальное имя: Богдан Репутация: 11 |
Вот:
Цитата ее результат нужно вписать в текстовый файл не заметил -------------------- Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее. |
Текстовая версия | 10.11.2024 10:13 |