Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.06.2011, 01:51   #1
Katonka
Новичок
Джуниор
 
Регистрация: 16.06.2011
Сообщений: 10
По умолчанию Текстовые файлы и Turbo Pascal: Напечатать все слова, которые встречаются в заданной последовательности по одному разу

Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 прописных латинских букв; между соседними словами - запятая, за последним словом - точка. Напечатать все слова, которые встречаются в последовательности по одному разу.

Выполнение:
Код:
uses crt;
var s : array [1..30] of String[5];
    i,j,n:byte;
    c:char;
    b:boolean;
begin
     ClrScr;
     n:=1;
     write('Enter string: ');
     while (n<30)and(c<>'.') do
     begin
          c:=readkey;
          if c=#27 then halt else
          if (c in ['A'..'Z'])and(j<5) then
          begin
               s[n]:=s[n]+c;
               write(c);
               inc(j);
          end else
          if (c in [',','.'])and(j>0) then
          begin
               write(c);
               inc(n);
               j:=0;
          end else
          if (c='.')and(j=0) then c:=#0 else
     end;
     writeln;
     writeln('Result:');
     for i:=1 to n do
     begin
          b:=true;
          for j:=1 to n do
          if (i<>j)and(s[i]=s[j])then
          begin
               b:=false;
               break;
          end;
          if b then writeln(s[i]);
     end;
     readln;
end.
Нужно в етот код внести добавления, чтобы выполнить задание:

Реализовать ввод из текстового файла и обработку символьных последовательностей состоящих из любых символов. В программе должны быть предусмотрены соответствующие процедуры и функции, корректно обрабатывающие входные данные. Результат должен запоминаться тоже в текстовом файле и в понятном для интерпретации виде.

Заранее большое и человеческое спасибо!

Последний раз редактировалось Katonka; 17.06.2011 в 08:25.
Katonka вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Напечатать слова, в которые не входит ни одна из букв первого слова abakuz Помощь студентам 0 30.05.2011 23:07
из строки вывести на экран те символы, которые встречаются только по 1 разу Andrey770 Паскаль, Turbo Pascal, PascalABC.NET 4 29.03.2011 19:08
В строке символов определить символы, которые встречаются по одному разу Andrey770 Паскаль, Turbo Pascal, PascalABC.NET 12 27.03.2011 00:08
Напечатать множество слов,которые встречаются в каждом из двух заданных предложений. masjanja55 Помощь студентам 2 08.02.2011 12:38