[malenka]

Задано кілька числових списків. Обчислити максимальний і мінімальний модулі різниці двох чисел, перше з яких береться з першого списку (нехай його порядковий номер у цьому списку - це число n), а друге - теж n-ий елемент із одного з інших списків. Списки та їх кількість повинні задаватися із командної стрічки AutoCAD. (Програма повинна викликатися командою із середовища AutoCAD).

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

Правила форума, раздел 5.

[VVA]

Перевел гуглом

Задано несколько числовых списков. Вычислить максимальный и минимальный модули разности двух чисел, первое из которых берется из первого списка (пусть его порядковый номер в списке - это число n), а второе - тоже n-ый элемент из одного из других списков. Списки и их количество должны задаваться с командной строки AutoCAD. (Программа должна вызываться командой из среды AutoCAD.

[Alan]

Студенческая задача. Причем номер пока 12, будут еще 11,10,9,....,1

[malenka]

Сообщение от Alan Студенческая задача. Причем номер пока 12, будут еще 11,10,9,....,1

Шкільна... А 12 - номер білету! забула стерти!

[Do$]

Ну и халявщики же эти студенты...

[malenka]

ДЯКУЮ!

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

mapcar function lambda abs will helps
方法については、その数とそれらの重要性のリストを要求すると聞いて - このタスクは、著者を決めるようになります。

[Vov.Ka]

Сообщение от malenka Шкільна...

І це ж де є така школа? = И где это есть такая школа?
Ти вчителька чи учениця ? = Ты учительница или ученица?

[malenka]

Сообщение от Vov.Ka І це ж де є така школа? = И где это есть такая школа? Ти вчителька чи учениця ? = Ты учительница или ученица?

Учениця! в мене клас з інформатичним нахилом

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

I thought, that my answer (*8) should be sufficient to begin self-education. I was mistaken?

[Vov.Ka]

Сообщение от Кулик Алексей aka kpblc I thought, that my answer (*8) should be sufficient to begin self-education. I was mistaken?

yes you were
нужно было написать "мапкар функтіон лямбда абс"

зи бідні діти, забивать їм голову в школі всіляким непотребом...

[malenka]

Сообщение от Кулик Алексей aka kpblc I thought, that my answer (*8) should be sufficient to begin self-education. I was mistaken?

Та ні, просто потрібно терміново, частину програми вже склала, але працює не так, як хотілось

[Yuzer]

Offtop: прикольно, на английском люди понимают, а словянский ни в дугу... парадокс....

моГет привинтить на форум гугл-переводчик?

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

Ниче, японский тоже никто не понял. malenka, еще раз повторяю - прочти правила форума!

[malenka]

[E-degtyarev]

malenka, - это было бы очень смешно, если б не было так печально.

[VVA]

malenka,
Правила форума пункт 5

5.1 Для общения на форуме используйте русский, а в случае плохого владения русским - английский язык. 5.2 Использование других языков не рекомендуется, так как нет гарантии, что большинство участников форума смогут понять эти сообщения. В случае использования другого языка рекомендуется продублировать текст сообщения на русском или английском языке, полученный посредством машинного перевода.

Это закон здесь. Об этом тебе постоянно напоминают.
По поводу твоего вопроса. Пробуй этот лисп

Код:

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

(defun C:TEST ()
  (initget 7)
  (setq Count (getint "\nВведите количество списков ( Введіть кількість списків ): "))
  (setq i   0
        lst nil
  ) ;_ end of setq
  (repeat Count
    (setq str (getstring t
                         (strcat "\nВведите через пробел значение ( Введіть через пробіл значення ) "
                                 (itoa (setq i (1+ i)))
                                 "-го списка ( -го списку): "
                         ) ;_ end of strcat
              ) ;_ end of getstring
    ) ;_ end of setq
    (setq str (read (strcat "(" str ")")))
    (setq tmp nil)
    (foreach item str
      (if (numberp item)
        (setq tmp (cons (fix item) tmp))
      ) ;_ end of if
    ) ;_ end of foreach
    (setq lst (cons (reverse tmp) lst))
  ) ;_ end of repeat
  (setq lst (reverse lst))
  (setq i 0)
  (princ
    "\n============= Введенные списки ( Введені списки ) ======================"
  ) ;_ end of princ
  (foreach item lst
    (princ "\nСписок ")
    (princ (setq i (1+ i)))
    (princ " -> ")
    (princ item)
    (if (> i 1)
      (progn
;;; Вычисляем модуль разности
        (setq tmp (mapcar 'abs (mapcar '- (car lst) item)))
        (princ " Модули разности ( Модулі різниці ) Min: ")
        (princ (apply 'min tmp))
        (princ " Max: ")
        (princ (apply 'max tmp))
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of foreach
  (textscr)
  (princ)
) ;_ end of defun

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

malenka, поделись секретом в каком городе есть такая замечательная спецшкола? Только ли AutoLISP у вас учат или ObjectARX тоже?

[mmax]

Сообщение от Александр Ривилис С учетом того, что обучение в школах сейчас только на украинском языке, сейчас крайне сложно найти молодого человека (моложе 25...30 лет), который бы умел более-менее грамотно писать по-русски. В лучшем случае в семье говорят по-русски и он (молодой человек) может говорить, но не писать.

но наши языки так похожи. Есть переводчики.
Например я при общении с "бандеровцами" на их форуме использую http://translate.google.ru, так мне однажды сказали что я на том форуме намного грамотнее некоторых настоящих бандеровцев.