Основы программирования на языке Turbo Pascal. Беляева И.В. - 170 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

170
if IsSoglasn(w[1]) and IsSoglasn(w[2]) then
newstr := newstr + WordWithoutGlasn(w) {К строке
прицепляем слово без гласных букв}
else
newstr := newstr + w; {Иначе – прицепляем
неизмененное слово}
I := beg + len; {Поиск очередного слова начнем
с символа, следующего за концом этого слова}
end;
DeleteGlasn := newstr; {Возвращаем созданную новую строку}
end;
{Тело программы}
var
s : string; {трока}
begin
s := 'В словах удалить все гласные буквы';
s := DeleteGlasn(s);
writeln(s); {Будет выведено 'В слвх удалить вс глсн буквы'}
end.

Страницы