Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Строки

Автор: Гость 15.06.2006 21:27

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

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

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

Автор: Bokul 15.06.2006 23:07

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

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

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

Автор: Гость 15.06.2006 23:31

Строка smile.gif

Автор: Bill Gates 15.06.2006 23:41

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

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 15.06.2006 23:47

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

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

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

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

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

Намек ясен?

Автор: Bokul 16.06.2006 11:16

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

первый способ:
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 16.06.2006 12:09

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;
...
, иначе последнее слово ты не ловишь ...