работа со строками

@stan__ · Регистрация: 10.12.2009

Студворк — интернет-сервис помощи студентам

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

за рание спасибо.

@yanyk1n · 13.12.2009, 15:13

Pascal

program kkk;
uses crt;
const gl:set of char=['a','o','i','u','y','e','A','O','I','U','Y','E'];
var count,i:integer;
    st,stnew,buf:string;
    slova:array[1..100]of string;
begin
 clrscr;
 readln(st);
 count:=1;
 repeat
  if (st[1]=' ') or (length(st)=1) then while st[1]=' ' do delete(st,1,1)
  else
  begin
   while (st[1]<>' ') and (length(st)>1) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
  slova[count]:=buf;
  buf:='';
  inc(count);
  end;
 until (length(st)=1) and (length(buf)=0);
 
 stnew:=''
 for i:=1 to count-1 do if slova[i][1] in gl then stnew:=stnew+slova[i]+' ';
 writeln(stnew);
 readln;
end.

@stan__ 1 / 1 / 1 Регистрация: 10.12.2009 Сообщений: 9
		1
	работа со строками 13.12.2009, 15:00. Показов 999. Ответов 1 Метки нет (Все метки) Помогите. Задача Ввести строку, содержащую только символы латинского алфавита.Построить результирующую строку, содержащую толькослова из исходной строки, начинающиеся с гласных букв. за рание спасибо. 0

	13.12.2009, 15:13

Опции темы

работа со строками

Решение