Строки, вроде не сложно, но что-то не выходит :( Опции

[Гость]

Две вот таких задачки:

1. Дан текст. Заменить на пробелы слово введённое пользователем. В противном случае вывести сообщение о том, что его нет;

2. В заданном предложении найти самое короткое и самое длинное слова.

[Bokul]

Дан текст. Заменить на пробелы слово введённое пользователем. В противном случае вывести сообщение о том, что его нет;

первый способ:

function inverse(s:string):string;
var buf:string;
    i,j:byte;
begin
j:=0;
buf:='';
for i:=length(s) downto 1 do
    begin
         inc(j);
         buf:=buf+s[i];
    end;
inverse:=buf;
end;

var i:byte;
    source,find,buf:string;  b:boolean;
begin
writeln('Enter text');
readln(source);
writeln('Enter word to find');
readln(find);

buf:='';
b:=false;
for i:=length(source) downto 1 do
    begin
         if source[i]=' ' then
            begin
                 if inverse(buf)=find then
                    begin
                         delete(source,i+1,length(buf));
                         insert(' ',source,i+1);
                         b:=true;
                    end;
                 buf:='';
            end
         else
             buf:=buf+source[i];
     end;
if b then
   writeln(source)
else
   writeln('The word ',find,' was not found');
readln;
end.

второй:

var i,temp:byte;
    source,find,buf:string;  b:boolean;
begin
writeln('Enter text');
readln(source);
writeln('Enter word to find');
readln(find);

b:=false;
while pos(concat(' ',find,' '),source)<>0 do
      begin
           b:=true;
           i:=pos(concat(' ',find,' '),source);
           delete(source,i+1,length(find));
           insert(' ',source,i+1);
      end;
if b then
   writeln(source)
else
   writeln('The word ',find,' was not found');
readln;
end.

Сообщение отредактировано: volvo - 3.11.2006 20:19