> 1 <

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

Lucky

Members


Статус

3 сообщений

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

#716   2009-11-14 01:42 GMT+3 часа(ов)      
Программа вычисляет неэлементарные функции. Ввод-вывод функций и интервалов через файлы. В файле input.txt задаётся x и интервалы, а в файле infunc.txt - соответствующие интервалам выражения. Всё в префиксной форме в виде списков.
///////////////////////////////////////////////////////////////////////////////////

(setq instream( open "C:\\input.txt" :direction :input ))
(setq infunc( open "C:\\func.txt" :direction :input ))
(setq outstream( open "C:\\output.txt" :direction :output ))
(setq x (read instream))
(setq y1 (eval(read infunc)))
(setq y2 (eval(read infunc)))
(setq y3 (eval(read infunc)))
(cond
((eval(read instream)) (print y1 outstream))
((eval(read instream)) (print y2 outstream))
((eval(read instream)) (print y3 outstream))
)

(close outstream)
(close instream)
///////////////////////////////////////////////////////////////////////////////////

Нужно построить функциональную схему. С лета курсовик висит. Я в тупике (((

Alex

Members


Статус

54 сообщений

Где: Belarus Александранск
Род занятий:
Возраст: 30

#717   2009-11-14 03:16 GMT+3 часа(ов)      
Какую функциональную схему, лол? Ты же не определяешь ни одной своей функции. Если считать саму программу как функцию, то она определяется через функции setq, open, read, eval, print и close, которые являются базовыми функциями. Вроде всё

Lucky

Members


Статус

3 сообщений

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

#718   2009-11-14 15:41 GMT+3 часа(ов)      
Вот то-то и оно. Это и надо построить)

Alex

Members


Статус

54 сообщений

Где: Belarus Александранск
Род занятий:
Возраст: 30

#719   2009-11-14 18:15 GMT+3 часа(ов)      
прога.lisp
|
|--> setq
|--> open
|--> read
|--> eval
|--> print
|--> close

Построил

Lucky

Members


Статус

3 сообщений

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

#721   2009-11-14 20:27 GMT+3 часа(ов)      
Хм, к сожалению, схема, которую требует препод, выглядит по-другому))
> 1 <


Онлайн :

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




Реклама на сайте: