[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, так мне однажды сказали что я на том форуме намного грамотнее некоторых настоящих бандеровцев.

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

Сообщение от mmax но наши языки так похожи.

В этом как раз основная проблема.

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

Блин! mmax, форум вне политики!

[Гобар]

Сообщение от Кулик Алексей aka kpblc форум вне политики

Offtop: Однако ж человек перед тем как темку создать прошел через Форум DWG.RU > Программное обеспечение > Программирование > Опции раздела > Создать новую тему. Ну и там по тексту. А значит руский понимает.

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

Offtop: Читать и понимать не означает уметь писать. Хотя malenka в данном случае защищать не буду. Считаю, что лучше было написать как умеет, но обязательно сделать извиняющуюся приписку по этому поводу. Тем более, что она не просто пришла на этот форум "поболтать", а просит помощи.

[mmax]

Сообщение от Александр Ривилис Читать и понимать не означает уметь писать

Offtop: Опять же.
если перевести электронным переводчиком с української мови на русский язык, а потом полученный вариант обратно на украинский, то в итоге получим 100% первоначальный исходный текст. Русский и украинский различаются только словами, все правила русского языка распространяются на украинский.
А если учесть тот факт, что автор хоть и маленький школьник, но если уж начали изучать LISP, то электронные переводчики это давно пройденный этап и он должен уметь ими пользоваться.

Например с английским языком такой финт не прокатит. Там нужно переводить не только слова, но еще и смысл, а этого переводчики делать не умеют.

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

Offtop:

Сообщение от mmax Русский и украинский различаются только словами, все правила русского языка распространяются на украинский.

Не выдавай желаемое за действительное - не зря я учил в школе 9 лет украинский язык и 10 лет русский. Завязываем с оффтопом. Тем более, что ТС в теме уже давно не появлется и ей все наши филологические выкладки ни к чему.

Думаю, что самым правильным будет игнорирование всех сообщений с призывами о помощи в этом разделе в случае если их авторы настойчиво игнорируют правила форума. Обидно, что в 99.9% случаев это игнорирование демонстрируют мои земляки. Как на этом форуме, так и на caduser'е.

[Vov.Ka]

Offtop:

Сообщение от Александр Ривилис Обидно, что в 99.9% случаев это игнорирование демонстрируют мои земляки. Как на этом форуме, так и на caduser'е.

Можна все на світі вибирати, сину.
Вибрати не можна тільки Батьківщину (С) Симоненко

[mmax]

Сообщение от Александр Ривилис Обидно, что в 99.9% случаев это игнорирование демонстрируют мои земляки

И не только на CAD-форумах.
Мне кажется что здесь политика замешана.

[gomer]

Вы, господа хорошие, просто не можете ответить на такой простой вопрос... И флудите

Кстати, стрiчка - это лента по русски, а строка - строка... Так, что я вообще не в теме...

[mmax]

кстати вот тут более охотно отвечают на вопросы студентов и школьников
http://www.progz.ru/forum/index.php?showforum=11

Здесь все взросые умные люди халявщиков нелюбят. Даже если бы автор не был таким упертым и написал бы на русском ему бы сказали: "иди учиться" и все равно никтобы ниего.....

[malenka]

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

Lviv area. AutoLISP and Prolog

[alex_bay]

Сообщение от malenka Lviv area. AutoLISP and Prolog

Пож. переведи. (хотя бы на на любой человеческий)

[malenka]

thank you, VVA!!!!!!!!!!!!!!

[alex_bay]

И я тебя ...

[malenka]

Сообщение от alex_bay Пож. переведи. (хотя бы на на любой человеческий)

ШКОЛА НАХОДИТСЯ ВО ЛЬВОВСКОЙ ОБЛАСТИ. ИЗУЧАЕМ (точнее, изучали) PROLOG И AUTOLISP

[alex_bay]

это в средней школе или где PROLOG изучают? (особенно LISP)
Offtop: Щас на в личку отправят

[malenka]

10 class we divided into two areas: natural and humanitarian. also took the work of the new teacher - that he gave us some fundamentals of programming languages

[alex_bay]

Ето http://translate.google.ru дает :

10 класс мы разделили на два направления: естественные и гуманитарные. также принял к работе новый учитель, - что он дал нам некоторые основы программирования Языки

Ни фига не понял... и в чем беда то???? (If the transfer - ask)

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

alex_bay, с указанием номеров собственных постов и переводом их на русский язык - ко мне в личку. Утомил(а)!