Форум программистов, вебмастеров, пользователей

RUSSTUDENT · 2010-01-24 21:25:24

Удалить из текста слова, совпадающие с конечным отрезком латинского алфавита: z, yz, xyz и т.д. до uvwxyz.

StalkerKG · 2010-01-25 10:27:03

RUSSTUDENT, исходничег накидайте а там, поможем... только не кусочек выкладывайте а весь код, пожалуйста...

RUSSTUDENT · 2010-01-25 10:44:48

var e,s:string;i:integer;b:boolean;
begin {$o-}
s:='dont use ucoz und Nimbuzz ';e:='';
i:=1;while(i<=length(s)) do begin
if s[i]<>' ' then begin
e:=e+s[i];
b:=(pos(s[i],'uvwxyz')<>0);
end else begin
if not b then write(e+' ');
e:='';
end;
inc(i);
end;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

А ТАК ПРАВИЛЬНО?

RUSSTUDENT · 2010-01-25 10:51:56

КТО-НИБУДЬ ОТВЕТЬТЕ ПОЖАЛУЙСТА В 12:00 ЛАБОРАТОРНУЮ НАДО СДАВАТЬ

StalkerKG · 2010-01-25 11:16:55

Ну в принципе правильно, только сделай чтобы s вводил пользователь...

Форум программистов, вебмастеров, пользователей

#1 2010-01-24 21:25:24

Пжалуйста поиогите решить задачу со STRING'ом.

#2 2010-01-25 10:27:03

Re: Пжалуйста поиогите решить задачу со STRING'ом.

#3 2010-01-25 10:44:48

Re: Пжалуйста поиогите решить задачу со STRING'ом.

#4 2010-01-25 10:51:56

Re: Пжалуйста поиогите решить задачу со STRING'ом.

#5 2010-01-25 11:16:55

Re: Пжалуйста поиогите решить задачу со STRING'ом.

Board footer