> 1 <

Автор Сообщение

Настюшка

Members


Статус

8 сообщений

Где: Ukraine
Род занятий:
Возраст: 46

#4882   2011-10-22 21:30 GMT+3 часа(ов)      
помогите написать прогу плиз с комментариями=)

На основе использования функционалов разработать функцию : определить ряд матрицы, который содержит элемент с максимальным значением их суммы. Результат представить в виде (Номер_ряда.Сумма)

VH

Members


Статус

289 сообщений

Где: ---
Род занятий:
Возраст:

#4907   2011-10-24 12:54 GMT+3 часа(ов)      
(defun F (M)
(if M
(let
((sum (apply '+ (car M)))
(result (F (cdr M))))
(cond
((null result) (cons 0 sum))
((> sum (cdr result)) (cons 0 sum))
(T (cons (1+ (car result)) (cdr result)))))))

Элементы списков в LISPе нумеруются с 0(нуля), так что вызов функции (F) возвратит (0 . сумма), если максимальная сумма окажется в первом ряду. Однако можно заменить в определении функции (F) 0 на 1.

отредактировал(а) VH: 2011-11-05 15:57 GMT+3 часа(ов)

Настюшка

Members


Статус

8 сообщений

Где: Ukraine
Род занятий:
Возраст: 46

#4992   2011-11-06 01:15 GMT+3 часа(ов)      
я не могу запустить прогу,выдает ошибку

megamanx

Members


Статус

307 сообщений

Где: Russia
Род занятий:
Возраст:

#4993   2011-11-06 01:21 GMT+3 часа(ов)      
Я давно заметил, что Настюши обычно не в курсе, что перед списком надо ставить кавычку.
I wish I'd made you angry earlier

Настюшка

Members


Статус

8 сообщений

Где: Ukraine
Род занятий:
Возраст: 46

#4994   2011-11-06 01:21 GMT+3 часа(ов)      
не пойму как вставить скрин тут с ошибкой которую выдает

megamanx

Members


Статус

307 сообщений

Где: Russia
Род занятий:
Возраст:

#4995   2011-11-06 01:24 GMT+3 часа(ов)      
Запотси фотку на каком-нибудь хостинге и между тэгами имиджа вставь ссылку.
I wish I'd made you angry earlier

Настюшка

Members


Статус

8 сообщений

Где: Ukraine
Род занятий:
Возраст: 46

#4996   2011-11-06 01:27 GMT+3 часа(ов)      
и когда это я кавычку перед списком не поставила??

megamanx

Members


Статус

307 сообщений

Где: Russia
Род занятий:
Возраст:

#4997   2011-11-06 01:33 GMT+3 часа(ов)      
(F '((1 2 3) (7 8 9) (4 5 6)))

Вопреки всем законам логики работает.
I wish I'd made you angry earlier

Настюшка

Members


Статус

8 сообщений

Где: Ukraine
Род занятий:
Возраст: 46

#4998   2011-11-06 01:40 GMT+3 часа(ов)      
ну это ж не я прогу писала, хотя огромное спасибо тому кто написал,но лично у меня ниче не работает=((

megamanx

Members


Статус

307 сообщений

Где: Russia
Род занятий:
Возраст:

#4999   2011-11-06 01:45 GMT+3 часа(ов)      
А на чём надо писать? Какой интерпретатор? Какой диалект?
I wish I'd made you angry earlier

Настюшка

Members


Статус

8 сообщений

Где: Ukraine
Род занятий:
Возраст: 46

#5000   2011-11-06 01:53 GMT+3 часа(ов)      
о это сложные слова какие то=)
вообще комон лисп

megamanx

Members


Статус

307 сообщений

Где: Russia
Род занятий:
Возраст:

#5001   2011-11-06 01:56 GMT+3 часа(ов)      
Ну на CL работает. Ты в какой программуле запускаешь? И как?
I wish I'd made you angry earlier

Настюшка

Members


Статус

8 сообщений

Где: Ukraine
Род занятий:
Возраст: 46

#5002   2011-11-06 01:59 GMT+3 часа(ов)      
запускаю lisp.bat
потом (load "lab3.lsp")
а потом не загружает файл а выдает текст...и в конце там что то ему не нравится в позиции 33

megamanx

Members


Статус

307 сообщений

Где: Russia
Род занятий:
Возраст:

#5003   2011-11-06 02:12 GMT+3 часа(ов)      
Ого, это какая-то злейшая реализация CL на батниках?)) Попытайся выложить на radical скрин с ошибкой, ага.
I wish I'd made you angry earlier

Настюшка

Members


Статус

8 сообщений

Где: Ukraine
Род занятий:
Возраст: 46

#5004   2011-11-06 02:26 GMT+3 часа(ов)      
ну чему учат..почему была именно эта ошибка я разобралась...путь к файлу должен быть только на английском, теперь пишет an objekt cannot start with #/)
> 1 <


Онлайн :

0 пользователь(ей), 54 гость(ей) :