Из данного предложения вычеркнуть слова, содержащие заданную букву. - 17 Мая 2012 - Блог

Главная » » Из данного предложения вычеркнуть слова, содержащие заданную букву.

13:30

Из данного предложения вычеркнуть слова, содержащие заданную букву.

программа на Паскале (pascal)

Из данного предложения вычеркнуть слова, содержащие заданную букву.

uses crt;
const
   SymbolWord :set of char = ['A'..'Z','a'..'z','0'..'9','а'..'я','А'..'Я','-'];

   Function GetTextFromUslovie(s:string;Charvalue:Char):string;
   var x:integer;
       s2:string;
       L:integer;
       start:integer;
       chr:boolean;
   begin
     s2:='';
     l:=length(s);
     start:=1; // начала слова
     chr:=true;
     while x<l do begin
        if s[x] in SymbolWord then begin
        if s[x]=Charvalue then chr:=false;
        s2:=s2+s[x];
        end else begin
           if not chr then begin
            delete(s,start,x-start);
            x:=x-start;
           end;
           chr:=true;
           start:=x;
           s2:='';
        end;
     x:=x+1;
     end;
     result:=s;
   end;

begin
    writeln(GetTextFromUslovie('Из данного предложения вычеркнуть слова, содержащие заданную букву.','с'));

end.

Просмотров: 1598 | Добавил: NetSoftWare | Рейтинг: 0.0/0

Всего комментариев: 0

Delphi заготовки

Меню сайта

Поиск по сайту

Контакты

Наш опрос

Добавить

Календарь

Архив

Полезные ссылки

Теги

Статистика

Архив записей

Число on-line

Поддержка сайта