[Atij]

Помогите, добрые люди несчастному нюбу.
Всем-всем: добрый вечер, день, утро. ПОжалуйста помогите написать код для следующей програмки. Дело в том что я только начинаю, и мну в гимназии грузанули, помогит разобраться, плз.
ПРограмма должна делать следующее: вводим кол-во вводимых чисел, потом из всех введённых прога должнеа находить самое большое чётное и самое большое не чётное числа, и затем поменять порядок их ввода.
Большое спасибо!

[ilka_t]

Помочь не помогу, не разбираюсь в этом
а вот Москва пишется по другому Moscow или можно так Moskva, а не как у вас Moskow, на сколько я помню английский со школы

[fixo]

Учи рекурсию, newbee

Код:

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

; #31.  ВЫДЕЛЕНИЕ ЧЕТНЫХ ЭЛЕМЕНТОВ СПИСКА  :

(defun evenp (lst)
(if (car lst)
   (if (zerop (rem (car lst) 2)) 
      (cons (car lst)(evenp (cdr lst)))
      (evenp (cdr lst)))
    )
  )
;CaLL : (evenp lst)

; #32.  ВЫДЕЛЕНИЕ НЕЧЕТНЫХ ЭЛЕМЕНТОВ СПИСКА  :

(defun oddp (lst)
(if (car lst)
   (if (equal 1 (rem (car lst) 2)) 
      (cons (car lst)(oddp (cdr lst)))
      (oddp (cdr lst)))
    )
  )
;CaLL : (oddp lst)

;; ~~~~~~~~~~~~~~  main part  ~~~~~~~~~~~~~~~ ;;

(defun C:test ()
  (while (setq num (getint "\nEnter a number (Enter to stop input) : "))
    (setq lst_num (cons num lst_num)))
    (setq odds (oddp lst_num)
	evens (evenp lst_num))

  (alert (strcat "Extreme odd number is: \n" (itoa (apply 'max odds))))
  (alert (strcat "Extreme even number is: \n" (itoa (apply 'max evens))))
  (princ)
  )
(C:test)

~'J'~

[Atij]

Пасиб, вам мужики, но я к тому времени как почту перепроверил, уже сам справился, да кстати, то что написанно вами, Fatty, я там не одного слова не понял, но это только минус мне), я на qbasice всё выполнил. Большое всем спасибо, обязательно с вопросами буду обращаться по этой ссылке.
С огромным уважением, Atij.

[Fogel]

Fatty молодец! Еще круче мог бы выглядеть только ассемблер

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

Пошла, похоже, вторая (или какая там?) волна невольных раскопок... Fogel, на дату #4 глянь для ради интересу...

[maksimys]

Кулик Алексей aka kpblc,
+ 5 а я и не заметил
Atij, - уже наверное диплом получил, или сапоги носит...

[Солидворкер]

Интересно, почему некоторые топики самопроизвольно всплывают наверх?

[Елпанов Евгений]

Да простит меня Олег, я тоже решил выложить по теме программку, мне кажется, что все надо делать за один цикл - будет проще, нагляднее и быстрее. Стиль сохранил...

Код:

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

(defun max-2 (i1 i2 lst)
 (if lst
  (max-2 (if (and (null (zerop (rem (car lst) 2))) (> (car lst) i1))
          (car lst)
          i1
         ) ;_  if
         (if (and (zerop (rem (car lst) 2)) (> (car lst) i2))
          (car lst)
          i2
         ) ;_  if
         (cdr lst)
  ) ;_  max-2
  (alert
   (strcat "Extreme odd number is: " (itoa i1) "\nExtreme even number is: " (itoa i2))
  ) ;_  alert
 ) ;_  if
) ;_  defun
;; Проверка:
(defun C:test (/ lst)
 (while (car (setq lst (cons (getint "\nEnter a number (Enter to stop input) : ") lst))))
 (max-2 nil nil (cdr lst))
) ;_  defun