15.05.2008, 19:03
|
|
Новичок
Регистрация: 29.04.2008
Сообщений: 2
Провел на форуме:
12663
Репутация:
1
|
|
Сообщение от Stillik
Помогите плз! Нада решить задачу:
Составить программу, которая вводит предложение и заменяет все четырёхбуквенные слова на первый символ из этих слов!
Заранее Спасибо!
De-visible:Может ЯП уточнишь?
Sorre, забыл, Pascal
Кому интересно, я узнал как она решается!
Код:
program slova;
Uses Crt;
var
stroka, slovo,s : string;
i, max : integer;
begin
ClrScr;
WriteLn('введите текст с любыми разделителями ');
TextColor(Cyan);
ReadLn(stroka);
stroka:=stroka + '.';
i:= 1; TextColor(LightGreen);
while Length(stroka) <> 0 do
begin
if pos(copy(stroka,i,1),' ,.?!-:;') <> 0
then begin
slovo := copy(stroka,1,i-1);
if length(slovo)=4 then
begin
s:=s+' '+slovo[1];
end
else s:=s+' '+slovo;
delete(stroka,1,i);
i := 1;
end
else i := i+1;
end;
writeln(s);
ReadLn;
end.
De-visible: Не забывай теги [code]
Последний раз редактировалось De-visible; 15.05.2008 в 19:36..
|
|
|