типизированный файл, 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 |
я поэтому и пишу чтоб самому тож не забыть про тэги
и ещё хотел показать на примере как у меня теги раставлены Сообщение отредактировано: polic - -------------------- -------------
избранный.... но не в Паскале..... |
Текстовая версия | 13.12.2024 6:33 |