Помощь - Поиск - Пользователи - Календарь
Полная версия: Строки
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Гость
Две вот таких задачки:

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

2. В заданном предложении найти самое короткое и самое длинное слова.
Bokul
Цитата
Строки, вроде не сложно, но что-то не выходит

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

В каком виде дан текст? Файл, строка?
Гость
Строка smile.gif
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
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;
...
, иначе последнее слово ты не ловишь ...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.