![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
superseal |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 4 Пол: Женский Реальное имя: Анастасия Репутация: ![]() ![]() ![]() |
помогите решить задачу, или подскажите
смысл. дан список слов, максимум слов может быть 60. и в зависимости оттого есть ли в слове сочетание букв ова нужно записать слова в таком порядке например: список который задан немцова корова оваоова овал результат немцова _корова ____оваоова оваоова ____овал только вместо '_' будет пробел максимальная длина рядка например 170 заранее спасибо |
Lapp |
![]()
Сообщение
#2
|
|||
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
в зависимости оттого есть ли в слове сочетание букв ова нужно записать слова в таком порядке Правильно я понимаю, что слова, в которых нет этого семпла, нужно опускать?В любом случае, задача не из самых простых. Делать нужно в два прохода, поскольку заранее неизвестен максимальный индент. Так что надо сначала все просмотреть и определить его. А потом на втором проходе уже печатать. Я написал полное решение. Там, правда только английские буквы, русских нет. Работает вот так: Type in a text: abcdef snabcsnnn abchjhjhhjhjhjhjh mnabcnmabcnmabcnmabcnm asdabc Настя, как у тебя с Паскалем дела? Можешь начать это делать? Я не хочу давать тебе полное решение, ведь ты же так ничему не научишься - верно? Могу подкинуть тебе для затравки некоторое начало, в котором есть function for getting next word из заданной строки. Попробуешь продолжить? 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;
...
Все, что непонятно - спрашивай.
-------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
|||
superseal |
![]()
Сообщение
#3
|
Группа: Пользователи Сообщений: 4 Пол: Женский Реальное имя: Анастасия Репутация: ![]() ![]() ![]() |
спасибо, попробую уже додумать
сорри что заголовок такой, просто учусь не в России,на чешском, и для меня проблематично некоторые вещи корректно перевести на русский |
Unconnected |
![]()
Сообщение
#4
|
![]() mea culpa ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 372 Пол: Мужской Реальное имя: Николай Репутация: ![]() ![]() ![]() |
А можно пояснить, от чего зависит количество пробелов перед словами с нужным сочетанием? Что-то из примера в первом посте не понял..
-------------------- "Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
|
superseal |
![]()
Сообщение
#5
|
Группа: Пользователи Сообщений: 4 Пол: Женский Реальное имя: Анастасия Репутация: ![]() ![]() ![]() |
А можно пояснить, от чего зависит количество пробелов перед словами с нужным сочетанием? Что-то из примера в первом посте не понял.. в первом слове ова-эт о последние три буквы последущие слова мы записываем так, что бы ова были все время под собой. а пробелы занимают то пространство на которое подвинули слово. я может не оч корректно выражаюсь, но это аля кросворда,который выглядит так _____ова___ _____ова_ ова____ _____ова _____ова___ (ова в один столбик записаны) где за ___ ты вставляешь недостающие буквы,котторые нам известны Сообщение отредактировано: superseal - 5.12.2010 14:36 |
klem4 |
![]()
Сообщение
#6
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Хотелось бы уточнить, в каком виде стоит ожидать ввод слов ? Надо понимать это файл ? В строку Pascal 60 слов поместится не очень длинных)
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Lapp |
![]()
Сообщение
#7
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
Разговор про решение за один просмотр выделен в отдельную тему: Интересный аспект решения задачи о позиционном выводе слов
-------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
superseal |
![]()
Сообщение
#8
|
Группа: Пользователи Сообщений: 4 Пол: Женский Реальное имя: Анастасия Репутация: ![]() ![]() ![]() |
задача была решина.
спасибо за помощь, и за советы, они мне действительно помогли усвоить и понять где делала ошибки в своем решение |
Lapp |
![]()
Сообщение
#9
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
задача была решина. спасибо за помощь, и за советы, они мне действительно помогли усвоить и понять где делала ошибки в своем решение Хорошо. Заходи еще. На всякий случай выкладываю свое решение (только для английских букв). 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.
-------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
![]() ![]() |
![]() |
Текстовая версия | 17.07.2025 23:51 |