[levik]

Добрий вечер.

У меня есть такая задача: Написать програму котрая при вводе строки в следушем виде шитала би суму и заносила результат в файл следушим образом.)

Вот что я написал по етому поводу. Ну что - то я не могу догнать она не чево не хочет записивать.
Вот текст програми :

Код:

[Выделить все]

;;void read(void)
;;{
(
 	defun vvod()
  	(textscr)
  	(setq error "\n Error Input !!!!")
  	(prompt "\n Input name fail : = ")
  	(
	 	setq form (read-line)
		Zn (read form)
		flags (vl-string-Search "+" Zn)
	)
  
  	(if ( = flags 0)
  		(
		 	progn
		  	(alert error)
		  	(exit))
		)
	(setq form1 (substr form 3 ))
)
;;}

;;void test(void)
;;{
(
 	defun test()
  	(setq n strlen form 1)
  	i 0
  	sum 0
  	(while ( > = n 1))
  	(setq s (read form1)
  		sum  (+ sum s)
  		form1 (substr form1 3)
  		n (strlen form 1 )
	)
)

; void write(void)
;{
(
 	defun write(/ sk)
  	(
	setq f (open "form.txt","a")
	  	sk (streat "(" form ")="
		(rtos sum))
	)
	(write-line sk f)
	(close f)
 
)



;;}



;;void main (void)
;;{
	(vvod)
	(test)
	;(write)

;;}

[vasilyis]

levik, что раздел форума Программирование закрыли? Здесь хоть и бывают программисты, но отвечают по другим вопросам.

[Кулик Алексей aka kpblc]

Тема перемещена. Тэги заменены.
А то, что автор с Украины, можно было и сразу указать.

[levik]

Сообщение от Кулик Алексей aka kpblc А то, что автор с Украины, можно было и сразу указать.

Ты что - то и меш против этого ?

Сообщение от vasilyis что раздел форума Программирование закрыли?

Да просто случайно на писал с юда.

ПС :
А будут ответи по существу...

[Кулик Алексей aka kpblc]

levik, советую прочитать http://forum.dwg.ru/showpost.php?p=359468&postcount=5. Только очень внимательно. Тогда поймешь почему я написал #3.

[Александр Ривилис]

Сообщение от levik А будут ответи по существу...

А по существу в функции write у тебя полная ерунда. Ты путаешь синтаксис C и LISP. Посмотри внимательно.
P.S.: И, пожалуйста, не позорь Украину - пиши грамотно.

[levik]

Сообщение от Александр Ривилис А по существу в функции write у тебя полная ерунда. Ты путаешь синтаксис C и LISP. Посмотри внимательно.

Я пишу на LISP а то что на писано на С это просто коменти чтобы бистре вспомнить что и как.)

А что там не так в функции write ??? можно поподробнее ?

[nik_mb]

Сообщение от levik А что там не так в функции write ??? можно поподробнее ?

Проще работать в редакторе VisualLisp - он сразу покажет ошибки.
(open "form.txt","a") - запятая лишняя, streat -такой фунции нет, а есть strcat

[levik]

Сообщение от nik_mb (open "form.txt","a") - запятая лишняя, streat -такой фунции нет, а есть strcat

Да на щет заметил спс.)

Ну это еще не все. Прога компилитса выдает сообщение введите путь я ввожу <путь> потом пишет ошибку ; error: bad argument type for compare: #<SUBR @05c4f6b8 => #<SUBR @05b97208 STRLEN> Это как я уже понимаю в функицие test надо смотреть ?

[nik_mb]

Скобок в функции test нехватает - бросается в глаза. А vvod - вообще непонятно что. Тщательнее надо бы.

[Vov.Ka]

Код:

[Выделить все]

(arxload "geomcal.arx")
(defun test (/ Expression Result OutFile)
  (if (and (setq Expression (getstring "\nExpression: " t))
	   (setq Result (cal Expression))
	   (setq OutFile (open "form.txt" "a"))
      )
    (progn (princ Expression OutFile)
	   (princ Result OutFile)
	   (close OutFile)
    )
  )
)