|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.04.2008, 15:52 | #1 |
Регистрация: 01.04.2008
Сообщений: 3
|
Решите пожалуйста задания на Pascal'e! Темы: Рекурси и списки.
Здраствуйте, не могу решить (точнее незнаю) , а сдавать надо (ну не программист и не кодер я). Добрые программеры помогите...
№1 Рекурси. const n=40; type vector=array[1..n] of real; Описать функцию min(x) для определения минимального элемента вектора x, введя вспомогательную рекурсивную функцию min1(k), находящую минимум среди последних элементов вектора x, начиная с k-го. №2 Списки. Описать процедуру или функцию, которая добавляет в конец списка L1 все элементы списка L2. Надеюсь надежда есть... Можно прокомментировать еще Спасибо за внимание.. Последний раз редактировалось FLINT; 01.04.2008 в 15:54. |
03.04.2008, 12:43 | #2 |
Пользователь
Регистрация: 03.04.2008
Сообщений: 11
|
uses crt;
const n=40; type vector=array[1..n] of real; var x:vector; i:integer; function min(k:integer):integer; var min1:integer; begin if k=1 then {это условие завершения рекурсии} {при первом вызове функции k=40} {при последующих вызовах к уменьшается на 1} min:=x[1] else begin min1:=min(k-1); if x[k]<min1 then min:=x[k] else min:=min1 end end; begin randomize;clrscr; for:=1 to 40 do begin x[i]:=random(400)-200; write(x[i]:8) end; writeln; writeln('min=',min(40):4) end. |
03.04.2008, 14:24 | #3 |
Регистрация: 01.04.2008
Сообщений: 3
|
Спасибо, ток не компилирует, кто подскажет...
|
03.04.2008, 14:40 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Никто, потому как телепаты отдела распознавания ошибок методом Ктулху сегодня в гостях у друидов. И их сейчас лучше не беспокоить.
А если вообще то вот хотя бы тут есть косяк for:=1 to 40 do без переменной-счетчика не работает
I'm learning to live...
Последний раз редактировалось Stilet; 03.04.2008 в 14:44. |
03.04.2008, 14:44 | #5 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
подтверждаю, решение от pil69 верное.
(ну, только тип Integer надо было заменить на real и в цикле заполнения массива пропущена переменная цикла i чуть-чуть подправил (чтобы рекурсия проходила среди оставшихся элементов массива (вроде по заданию так более верно) Код:
|
03.04.2008, 16:32 | #6 |
Регистрация: 01.04.2008
Сообщений: 3
|
Ну этот вариант уже компилирует, и выдает результат! Спасибо вам! Йиха!
Извините, а вторую задачку не кто не смотрел?? Последний раз редактировалось Alex21; 06.04.2008 в 22:16. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Решите пожалуйста на Паскале | Bagsi | Помощь студентам | 4 | 30.10.2007 22:36 |
Решите пожалуйста | Bagsi | Помощь студентам | 1 | 28.10.2007 20:58 |
Решите пожалуйста две задачи. | Bagsi | Помощь студентам | 5 | 26.10.2007 10:46 |