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

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

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 тоже самое, но точки меняются на три точки.


Может я не так поняла... Сделайте кто-нибудь sad.gif((
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #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
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 





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