> 1 <

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

Din

Members


Статус

3 сообщений

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

#1139   2010-01-13 23:32 GMT+3 часа(ов)      
Доброго времени суток.
Помогите пожалуйста студенту ничего не понимающего в программировании решить задачку
Буду очень благодарен. Заранее спасибо.

Вычислить произведение элементов списка.

Fallen_s4e

Members


Статус

114 сообщений
http://lisper.ru
Где: Zimbabwe lisper.ru
Род занятий: fallen_s4e
Возраст: 8

#1140   2010-01-13 23:43 GMT+3 часа(ов)      
(apply #'* list)
где list - список
Вас же скорее всего просят написать вот это:
(defun f(x)
(if (null x) 1 (* (car x) (f (cdr x)))))

отредактировал(а) Fallen_s4e: 2010-01-14 00:02 GMT+3 часа(ов)

Din

Members


Статус

3 сообщений

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

#1146   2010-01-14 15:05 GMT+3 часа(ов)      
Цитата
Fallen_s4e :
(apply #'* list)
где list - список
Вас же скорее всего просят написать вот это:
(defun f(x)
(if (null x) 1 (* (car x) (f (cdr x)))))



Большое спасибо.

Din

Members


Статус

3 сообщений

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

#1147   2010-01-14 15:07 GMT+3 часа(ов)      
Есть еще две лабы, может кто нибудь еще поможет?

1. Дана функция y=tg(x)+1. Написать программу для поиска максимального значения y в промежутке x=[2;2.8] с шагом 0,1.

2. Найти: y=max(a,b,c,d)*min(a,b,c,d).

VH

Members


Статус

289 сообщений

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

#1148   2010-01-14 17:31 GMT+3 часа(ов)      
1. Казалось бы, вот оно решение
(defun F (Xmin Xmax dX)
((lambda (curr)
(if (= Xmin Xmax) curr
((lambda (next)
(if (> curr next) curr next))
(F (+ Xmin dX) Xmax dX))))
(+ (tan Xmin) 1)))

но как-то не действует, потому что
> (= 2.3 (+ 2.2 0.1))
NIL
> (- 2.3 (+ 2.2 0.1))
-4.44089e-16
2.
(* (funcall 'max A B C D) (funcall 'min A B C D))
> 1 <


Онлайн :

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