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

[Гость]

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

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

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

[Bokul]

Строки, вроде не сложно, но что-то не выходит

Что у тебе не выходит? Пользоваться поиском? Вторая задача не раз решалась.

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

В каком виде дан текст? Файл, строка?

[Гость]

Строка

[Bill Gates]

Первая задача (строка):

program z1;
var
    textStr,str:string;
    i:integer;
begin
    writeln('Введите строку:');
    readln(textStr);
    writeln('Введите слово для удаления');
    readln(str);
    for i:=1 to length(textStr)-length(str) do
         if copy(textstr,i,length(str)) = str then
         begin
          delete(textstr,i,length(str));
          insert(' ',textstr,i);
         end;
    writeln(textstr);
    readln;
end.

[volvo]

Bill Gates, если бы все было так просто ...
Вводи строку: starting star text
и слово star

и наслаждайся результатом...

И, заодно, учти, что

7. Проверяйте программы перед тем, как разместить их на форуме!!!

относится и к тебе тоже. А тестировать - это не только соизволить проверить, нет ли синтаксических ошибок, но и прежде всего внимательно прочесть задание, и прогнать ХОТЯ БЫ десяток разных тестов...

Намек ясен?

[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 - 4.11.2006 0:19

[volvo]

Bokul, я бы все-таки делал так:

...
b := false;
repeat
  i := pos(' ' + find + ' ', ' ' + source + ' ');
  if i > 0 then begin
    b := true;
    delete(source, i, length(find));
    insert(' ', source, i);
  end;
until i = 0;
...

, иначе последнее слово ты не ловишь ...