дядя паскаль

[LethalDoseInjecter]

var

a:string;

i,num:integer;s,OMG:string;

begin

writeln('vvedite predlojenie',a);

num=1;

readln(a);

a:=a+' ';

For i:=1 to length(a) do

begin

if (a(i)=' ') then

begin

s:=copy(a,i-1,1);

If s='d'then

begin

OMG=copy(a,num,i-num)

writeln('slovo okan4ivaysheesa na d:','  ',OMG);

num:=i+1;

end;

end;

end;

if num=1 then

writeln('net slov okan4ivayshihsa na d');

end.

 

Проверь, у меня нет паскаля.

[Sanchoss]

а я не шарю 

[SaNeXx]

Вот мой вариант:

 

var
a:string[255];
len:integer;
s:string;
g:integer;
flag:boolean;
begin
   s:='Good';
   flag:=false;
   writeln('BBeguTe TekcT: ',a);
   readln(a);
   len:=length(a);
   Insert(' ',a,len+1);
   while (flag=false) do
     begin
        g:=pos(' ',a);
        if (a[g-1]='d') then
           begin
             s:=copy(a,1,g-1);
             flag:=true;
           end
        else Delete(a,1,g);
        if (g=len+1) then flag:=true;
     end;
   if (s<>'Good') then
      writeln('CJIOBO OKaH4uBaI-0LLLeec9I d: '+s)
   else
      writeln('Bce nyTeM !!!');
      readln;
end.

 

Только так поиск идет только до первого слова с d; если надо все, я думаю сам переделаешь..

[LethalDoseInjecter]

Вот мой вариант:

 

var
a:string[255];
len:integer;
s:string;
g:integer;
flag:boolean;
begin
   s:='Good';
   flag:=false;
   writeln('BBeguTe TekcT: ',a);
   readln(a);
   len:=length(a);
   Insert(' ',a,len+1);
   while (flag=false) do
     begin
        g:=pos(' ',a);
        if (a[g-1]='d') then
           begin
             s:=copy(a,1,g-1);
             flag:=true;
           end
        else Delete(a,1,g);
        if (g=len+1) then flag:=true;
     end;
   if (s<>'Good') then
      writeln('CJIOBO OKaH4uBaI-0LLLeec9I d: '+s)
   else
      writeln('Bce nyTeM !!!');
      readln;
end.

 

Только так поиск идет только до первого слова с d; если надо все, я думаю сам переделаешь..

 

Delete(a,1,g);

flag:boolean;

 

:iccup: