Калькулятор

@Doctor_ · Регистрация: 03.02.2011

Author24 — интернет-сервис помощи студентам

Функция 'CALC' ввод двух чисел и операции между ними, выход из функция словом 'konec'
Например:
>(calc)
Vvedite vashy chisla i operaciju: 4 + 1
5
Vvedite vashy chisla i operaciju: 5 - 1
4
Vvedite vashy chisla i operaciju: konec
T
>

Не использовать optional

Добавлено через 1 минуту
Надо как можно проще..

@Catstail · 09.01.2013, 21:15

Сообщение от Doctor_

Не использовать optiona

- дались они тебе...

Вот без особых изысков... Но вводимое нужно заключать в скобки:

Lisp

(defun calc Nil
  (let ((a 0) (b 0) (op nil) (cmd nil))
   (loop
     (printsline "Введите команду в виде (Число Операция Число)")
     (setq cmd (read))
     (when (EQ cmd 'quit) (return 'ok))
     (setq a  (car cmd))
     (setq op (cadr cmd))
     (setq b  (caddr cmd))
     (print a)
     (prints " ")
     (print op)
     (prints " ")
     (print b)
     (prints " =")
     (printline (apply op (list a b))))))
         
 
==> calc
 
(calc)
Введите команду в виде (Число Операция Число)
(8 + 7)
8 + 7 =15
Введите команду в виде (Число Операция Число)
(5 * 6)
5 * 6 =30
Введите команду в виде (Число Операция Число)
quit
 
==> ok

@Catstail · 09.01.2013, 21:23

Для Common-Lisp:

Lisp

(defun calc Nil
  (let ((a 0) (b 0) (op nil) (cmd nil))
   (loop
     (print "Введите команду в виде (Число Операция Число)")
     (setq cmd (read))
     (when (EQ cmd 'quit) (return 'ok))
     (setq a  (car cmd))
     (setq op (cadr cmd))
     (setq b  (caddr cmd))
     (print (apply op (list a b))))))

@Nameless One · 10.01.2013, 12:32

Сообщение от Catstail

Но вводимое нужно заключать в скобки:

Lisp

(defun calc ()
  (loop
     (format t "> ")
     (finish-output)
     (let ((op (read)))
       (when (eq op 'quit)
         (return))
       (format t "~A~%" (funcall (read) op (read))))))

Но все же лучше вручную разбирать ввод.

@_sg · 10.01.2013, 13:20

Lisp

(defun  calculate (&aux cmd)
   (loop (print "Enter: Number Operator Number")
         (setq cmd (read-from-string
                    (concatenate 'string "(" (read-line) ")")))
         (when (eql (car cmd) 'quit) (return 'ok))
         (print (eval `(,(cadr cmd) ,(car cmd) ,(caddr cmd))))))
 
> (calculate)
"Enter: Number Operator Number" 2 + 3
5 
"Enter: Number Operator Number" quit
OK

@Catstail · 11.01.2013, 19:23

Калькулятор - так калькулятор!

Кликните здесь для просмотра всего текста

Lisp

//
//  Программа отображения диалога _Dlg_
//
(prog nil
      (try (dlgDestroy '_Dlg_) except Nil)
      (dlgCreate '_Dlg_ 511 274 "Калькулятор" &H8000000F)
      (dlgAddControl '_Dlg_ '_LBL_1 _LABEL 18 15 466 23 '("Tahoma" 14,25 1 0 0) "Вводите формулу в алгебраической записи:" 2 &H80000012 &H8000000F)
      (dlgAddControl '_Dlg_ '_TXT_1 _TEXT 17 51 469 68 '("Tahoma" 12 1 0 0) "" 0 &H80000008 &H80000005)
      (dlgAddControl '_Dlg_ '_BUT_2 _BUTTON 107 181 139 51 '("Tahoma" 8,25 1 0 0) "Вычислить")
      (dlgPutPicture '_BUT_2 7)
      (dlgAddControl '_Dlg_ '_LBL_2 _LABEL 24 132 457 43 '("Tahoma" 14,25 1 0 0) "" 0 &HFF0000 &H8000000F)
      (dlgAddControl '_Dlg_ '_BUT_3 _BUTTON 287 181 139 51 '("Tahoma" 8,25 1 0 0) "Закрыть")
      (dlgPutPicture '_BUT_3 36)
      //
      // Пролог загрузки диалога _DLG_
      //
      (Prog () 
      )
      //
      // Обработчик события CLICK для кнопки _BUT_2
      //
      (defun _BUT_2_Click  Nil 
       (let* (
                (frm-e (dlgGetText '_TXT_1))
                (frm-i (parse frm-e))
                (frm-v (inf2pref frm-i))
                (val   (eval frm-v))
             )
             (dlgPutText '_LBL_2 (output val)) 
        ))
      //
      // Обработчик события CLICK для кнопки _BUT_3
      //
      (defun _BUT_3_Click  Nil 
        (dlgHide '_DLG_)
        (dlgDestroy '_DLG_) 
       )
      //
      //   Назначение процедуры-события _BUT_2_Click  контролу _BUT_2
      //
      (dlgSetEvent '_BUT_2 '_BUT_2_Click )
      //
      //   Назначение процедуры-события _BUT_3_Click  контролу _BUT_3
      //
      (dlgSetEvent '_BUT_3 '_BUT_3_Click )
      //
      //   Отображение диалога _Dlg_
      //
      (dlgShow '_Dlg_)
)

Выглядит так:

@Doctor_ 238 / 237 / 142 Регистрация: 03.02.2011 Сообщений: 1,437
		1
	Калькулятор 09.01.2013, 20:05. Показов 4044. Ответов 5 Метки нет (Все метки) Функция 'CALC' ввод двух чисел и операции между ними, выход из функция словом 'konec' Например: >(calc) Vvedite vashy chisla i operaciju: 4 + 1 5 Vvedite vashy chisla i operaciju: 5 - 1 4 Vvedite vashy chisla i operaciju: konec T > Не использовать optional Добавлено через 1 минуту Надо как можно проще.. 0

	11.01.2013, 19:23