помогите решить задачу, или подскажите
смысл.
дан список слов, максимум слов может быть 60.
и в зависимости оттого есть ли в слове сочетание букв ова нужно записать слова в таком порядке
например:
список который задан
немцова
корова
оваоова
овал
результат
немцова
_корова
____оваоова
оваоова
____овал
только вместо '_' будет пробел
максимальная длина рядка например 170
заранее спасибо
Type in a text: abcdef snabcsnnn abchjhjhhjhjhjhjh mnabcnmabcnmabcnmabcnm asdabc
Type in a sample: abc
abcdef
snabcsnnn
abchjhjhhjhjhjhjh
mnabcnmabcnmabcnmabcnm
mnabcnmabcnmabcnmabcnm
mnabcnmabcnmabcnmabcnm
mnabcnmabcnmabcnmabcnm
asdabc
Hit Enter..
const
Letters: set of char= ['A'..'Z']+['0'..'9'];
var
s: string;
function GetNextWord: string;
var
w: string;
begin
while (Length(s)>0) and not (UpCase(s[1]) in Letters) do Delete(s,1,1);
w:= '';
while (Length(s)>0) and (UpCase(s[1]) in Letters) do begin
w:= w+s[1];
Delete(s,1,1)
end;
GetNextWord:=w
end;
var
Text,Sample,w,v: string;
p,Max,i: integer;
begin
Write('Type in a text: ');
ReadLn(Text);
Write('Type in a sample: ');
ReadLn(Sample);
s:= Text;
Max:=0;
repeat
w:=GetNextWord;
...
М | На будущее: делай нормальный заголовок |
спасибо, попробую уже додумать
сорри что заголовок такой, просто учусь не в России,на чешском, и для меня проблематично некоторые вещи корректно перевести на русский
А можно пояснить, от чего зависит количество пробелов перед словами с нужным сочетанием? Что-то из примера в первом посте не понял..
Хотелось бы уточнить, в каком виде стоит ожидать ввод слов ? Надо понимать это файл ? В строку Pascal 60 слов поместится не очень длинных)
Разговор про решение за один просмотр выделен в отдельную тему: http://forum.pascal.net.ru/index.php?act=ST&f=12&t=26978
задача была решина.
спасибо за помощь, и за советы, они мне действительно помогли усвоить и понять где делала ошибки в своем решение
const
Letters: set of char= ['A'..'Z']+['0'..'9'];
var
s: string;
function GetNextWord: string;
var
w: string;
begin
while (Length(s)>0) and not (UpCase(s[1]) in Letters) do Delete(s,1,1);
w:= '';
while (Length(s)>0) and (UpCase(s[1]) in Letters) do begin
w:= w+s[1];
Delete(s,1,1)
end;
GetNextWord:=w
end;
var
Text,Sample,w,v: string;
p,Max,i: integer;
begin
Write('Type in a text: ');
ReadLn(Text);
Write('Type in a sample: ');
ReadLn(Sample);
s:= Text;
Max:=0;
repeat
w:=GetNextWord;
while Pos(Sample,w)>0 do begin
p:=Pos(Sample,w);
if p>Max then Max:=p;
w[p]:=#0
end
until w='';
s:=Text;
repeat
w:=GetNextWord;
v:=w;
while Pos(Sample,w)>0 do begin
p:=Pos(Sample,w);
w[p]:=#0;
for i:=1 to Max-p do Write(' ');
WriteLn(v)
end
until w='';
WriteLn('Hit Enter..');
ReadLn
end.