![]() |
В этом форуме Вы можете предложить изменения на форуме или обсудить действия администрации.
![]() ![]() |
![]() |
Катюша |
![]()
Сообщение
#1
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 55 Пол: Женский Репутация: ![]() ![]() ![]() |
Помните, я просила о помощи.. 10 заданий лаб.. + еще какие-то
Получила подтверждение - что поможете, нашла лабы.. Задания показала.. На меня рыкнули - что в топе с заданиями будут флудить.. типа будет много непорядка. Там было 10 штук. Разделила задания.. И что? Если, мне, ламеру, не сделать задания- я кроме слов Бегин и Енд ничего не знаю - кто мне поможет кроме вас? А вы и это не сделали.. Какая разница как размещены задания и в скольких топах? Получилась ситуация, описанная Крыловым.. Может все таки сделаете? Мне еще дофига учить.. А времени осталось мало. Я буду благодарна, если те программы все таки будут написаны полностью.. От первого до последнего символа... -------------------- Удачи.
Катерина |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Цитата(Катюша @ 5.08.05 22:05) Какая разница как размещены задания и в скольких топах? Объяснения по поводу этого ты уже получила. Возможно, ты не читала или НЕ ЗАХОТЕЛА это прочесть, так вот зайди и прочитай еще раз... Это первое... Второе: Цитата(Катюша @ 5.08.05 22:05) А вы и это не сделали.. А мы ОБЯЗАНЫ были это сделать? Решить все ЗА ТЕБЯ? Ты все-таки просила о ПОМОЩИ:Цитата(Катюша @ 5.08.05 22:05) Получила подтверждение - что поможете |
Катюша |
![]()
Сообщение
#3
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 55 Пол: Женский Репутация: ![]() ![]() ![]() |
если вам интересно - то напишете..
а мне сейчас это не интересно, но НАДО.. мне еще к 9ти экзаменам готовится.. и я не могу время тратить на написание лаб.. если мне могут помочь.. я могу найти то, что мне нужно и среди флуда, главное, чтобы оно там было -------------------- Удачи.
Катерина |
volvo |
![]()
Сообщение
#4
|
Гость ![]() |
Цитата(Катюша @ 5.08.05 22:38) если вам интересно - то напишете.. Так вот что я тебе скажу, Катюша !!! Нам это НЕ надо и НЕ интересно !!! Все эти задачи относятся к разряду простейших и пишутся каждая за 10-15 минут максимум. Если на то пошло, ты на посты в "Верфь" потратила ГОРАЗДО больше времени, значит (повторяю еще раз, для ОСОБО ОДАРЕННЫХ), ты ждешь НЕ помощи. Помощь - это исправить программу, дать ход действия, если у тебя что-то застопорилось. Тебе надо все на блюдечке принести !!! Ну что ж ...а мне сейчас это не интересно, но НАДО.. Цитата(Катюша @ 20.07.05 20:55) Третье: Ввести последовательность строк. Удалить из последовательности строки, в которых нет ни одного символа из последней строки, после этого упорядочить последовательность в алфавитном порядке. Последовательность хранить в односвязном списке, элементами которого являются указатели на строки. Перед завершением программы очистить динамическую память с помощью процедуры Dispose. Код type t_string = string[50]; p_string = ^t_string; ptitem = ^titem; titem = object data: p_string; next: ptitem; constructor init(x: t_string; nxt: ptitem); destructor done; end; tlist = object first, last: ptitem; constructor init; destructor done; procedure append(s: t_string); procedure remove_item(p: ptitem); procedure sort; procedure print; end; constructor titem.init(x: t_string; nxt: ptitem); begin new(data); data^ := x; next := nxt end; destructor titem.done; begin dispose(data) end; constructor tlist.init; begin first := nil; last := nil; end; destructor tlist.done; var p, T: ptitem; begin p := first; while assigned(p) do begin T := p; p := p^.next; dispose(T, done) end; end; procedure tlist.append(s: t_string); var p: ptitem; begin new(p, init(s, nil)); if first = nil then first := p else last^.next := p; last := p end; procedure tlist.remove_item(p: ptitem); var r: ptitem; begin r := p^.next; p^.data^ := r^.data^; p^.next := r^.next; dispose(r, done); r := nil end; procedure tlist.sort; var p: ptitem; is_done: boolean; T: t_string; begin repeat p := first; is_done := True; while p^.next <> nil do begin if p^.data^ > p^.next^.data^ then begin T := p^.data^; p^.data^ := p^.next^.data^; p^.next^.data^ := T; is_done := False; end; p := p^.next end; until is_done; end; procedure tlist.print; var p: ptitem; begin p := first; write('(list) <'); while assigned(p) do begin write(p^.data^, ' '); p := p^.next end; writeln('>') end; function check(where, scab: t_string): boolean; var p: longint; i: byte; begin p := 0; for i := 1 to length(scab) do p := p + pos(scab[i], where); check := (p = 0) end; var my_list: tlist; s, last_str: t_string; p: ptitem; begin my_list.init; repeat writeln('next string: '); readln(s); if s <> '' then my_list.append(s); until s = ''; writeln('После ввода данных:'); my_list.print; last_str := my_list.last^.data^; p := my_list.first; while p <> nil do begin if check(p^.data^, last_str) then my_list.remove_item(p) else p := p^.next; end; writeln('После первой проверки:'); my_list.print; my_list.sort; writeln('После сортировки:'); my_list.print; my_list.done; end. Вот тебе помощь... Заметь, НИ ОДИН из пунктов задания не нарушен совершенно!!! Все строго по заданию. Так что... А вот теперь попробуй в этом разобраться. <_< Цитата(Катюша @ 5.08.05 22:38) я могу найти то, что мне нужно и среди флуда, главное, чтобы оно там было Ну, может тебе и нужен флуд, но его вообще не должно быть в тематических разделах. Тема с 10-ю заданиями была закрыта не по причине флуда, если до сих пор не поняла - перечитай мой ответ еще раз... А найти 90% из всех твоих заданий можно и в поиске по форуму... Только для этого надо ИСКАТЬ, а не "ждать помощи".Цитата(Катюша @ 5.08.05 22:38) мне еще к 9ти экзаменам готовится. А вот это уже твои проблемы... Вот тут как раз по басне Крылова (хотя ты НЕ уточнила, какую именно басню ТЫ имела в виду, я говорю вот об этой):Цитата "Попрыгунья стрекоза (далее - по тексту)Лето красное пропела Оглянуться не успела..." |
Катюша |
![]()
Сообщение
#5
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 55 Пол: Женский Репутация: ![]() ![]() ![]() |
мне не нравятся ваши ответы.
Это Ваши личные проблемы... Я не доллар, чтобы всем нравиться !!! если вы можете их написать за 15 минут, то почему мне приходится ждать ответа сутками? Все очень просто - я не ОБЯЗАН никому ничего делать. И если я МОГУ что-то решить, это совсем не значит, что я БУДУ это решать. давно бы уже написали и с этими делами разобрались.. а иначе зачем мне быть на форуме.. какой мне дело тогда до форума? That, detective, is the right question! © "I, Robot" никто не читает то, что я пишу.. и помощи от вас никакой .. просто трата времени.. бесполезная и нерадосная Сообщение отредактировано: volvo - 14.08.2005 16:34 -------------------- Удачи.
Катерина |
klem4 |
![]()
Сообщение
#6
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
;)Зачем закатывать такую истереку ? Volvo решил тебе одну задачу, вот щас накатал решение для задачи с файлами.
program kat_files; и ненадо ругаться и возмщаться, своими словами ты можешь обидеть форумчан, и для тебя это врядли хорошо закончится, могут и забанить. Если надо, могу решить еще одну задачу с числами LongInt которая. Сообщение отредактировано: klem4 - 6.08.2005 19:53 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Катюша |
![]()
Сообщение
#7
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 55 Пол: Женский Репутация: ![]() ![]() ![]() |
Тута задачки на программирование.. все, которые нужны.. те листинги, которые есть - сейчас скопирую, и буду разбираться.
но не удаляйте их пожалуйста, ибо комп может глючить -------------------- Удачи.
Катерина |
Катюша |
![]()
Сообщение
#8
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 55 Пол: Женский Репутация: ![]() ![]() ![]() |
жду еще помощи ))
-------------------- Удачи.
Катерина |
volvo |
![]()
Сообщение
#9
|
Гость ![]() |
Ищи по форуму, в конце-то концов. Сколько можно одно и то же повторять???
Закрыто ! |
![]() ![]() |
![]() |
Текстовая версия | 9.07.2025 9:44 |