Сформировать файл по следующему принципу... |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Сформировать файл по следующему принципу... |
Юлька |
Сообщение
#1
|
Гость |
Сформировать символьный файл f. Переписать компоненты файла в файл g, заменив при этом:
а)каждую из групп стоящих рядом точек одной точкой; б)каждую из групп стоящих рядом точек многоточием (то есть тремя точками). Т.е. как я поняла, должно получится что-то вроде:Запускаем прогу. Выходит вопрос - "Создать символьный файл Y/N ?" Если Отвечаем 'N' выходим из программы, если "Y" - создается символьный файл f, на экране появляется набор случайных символов, например из 100 штук (буквы, точки, цифры). Далее спрашивает: 1. Заменить каждую из групп стоящих рядом точек одной точкой. 2. Заменить каждую из групп стоящих рядом точек троеточием. При нажатии на 1, программа создает файл g, состоящий из тех же символов, но только рядом стоящие точки заменяет на одну. Т.е. все буквы, цифры, и.т.д. оставляет как есть, а точки если они рядом стоят заменяет на одну точку. При нажатии на 2 тоже самое, но точки меняются на три точки. Может я не так поняла... Сделайте кто-нибудь (( |
Ivs |
Сообщение
#2
|
Бывалый Группа: Пользователи Сообщений: 209 Репутация: 0 |
Хех...:-)
И все равно мне эта бредовая идея по формированию файла из случайных символов не нравиться 8-I, ну да ладно. Вот переписал как просила, и вроде файл формируется и вроде Pos , Delete используются и все такое, даже проверял на TP 6.0 :-) Код program Ten_ten_ten; var F,G : Text; i,j : Integer; n,Poz : Integer; S,newStr : String; Ten : String[3]; Ch : Char; begin Assign(F,'f.txt'); Rewrite(F); Assign(G,'g.txt'); Rewrite(G); repeat write('Сформировать файл ? (y/n): '); readln(Ch); Ch:=UpCase(Ch); until (Ch='Y') or (Ch='N'); if Ch = 'N' then Exit; for i:=1 to 20 do begin for j:=1 to 20 do write(F,Chr(Random(8)+40)); writeln(F); end; Close(F); Assign(F,'F.txt');Reset(F); writeln('1 - . ten'); writeln('2 - ... ten'); write('Input: '); repeat readln(n); until (n=1) or (n=2); if n=1 then Ten:='.' else Ten:='...'; while not(Eof(F)) do begin readln(F,S); i:=1; newStr:=''; Poz:=1; while (Pos('..',S)>0) do begin Poz:=Pos('..',S); newStr:= newStr + Copy(S,1,Poz-1) + Ten; while (Poz<=length(S)) and (S[Poz]='.') do Delete(S,Poz,1); Delete(S,1,Poz-1); end; if newStr='' then writeln(G,S) else writeln(G,newStr+S); end; Close(F); Close(G); end. P.S : И где это интересно такие задачки интересные задают :-? -------------------- Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
|
Текстовая версия | 29.03.2024 22:15 |