LINUX.ORG.RU
решено Форум — Talks  

Непонятный код


0

1 
IDENTIFICATION DIVISION.
PROGRAM ID. ADD.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING STORAGE SECTION.
77 IDX PICTURE 9999.
77 SUM PICTURE 999999.
77 X PICTURE X.
PROCEDURE DIVISION.
BEGIN.
           ACCEPT X.
           MOVE ZERO TO IDX.
           MOVE ZERO TO SUM.
           PERFORM ADD UNTTI TDX = 1001.

Что это за код, что за ЯП и что он должен делать? И откуда это?

★★★★★

Последнее исправление: splinter (всего исправлений: 1)
← Биткоин с инфляцией
Gtalk всё? Или это только у меня траблы? →
Ответ на: комментарий от goingUp

Смысл станет ясным когда вы ответите на последний вопрос.

splinter ★★★★★
() автор топика
Ответ на: комментарий от goingUp

Period - это и точка в конце предложения и месячные у женщин. Шутка работает только на английском, очевидно.

alexru ★★★★
()

Я уверен что процентов 80 из здесь присутствующих видели этот код ранее.

splinter ★★★★★
() автор топика 
prog.cbl:     7: error: syntax error, on or before 'Sum'
schizoid ★★★
()
Ответ на: комментарий от PaRuSoft

Нет, курсачом на Си :)

банальщина :)

Меня вот раз напрягли изучить язык SNOBOL. (Это не кобол)
Ну украли где-то компилятор и либы (ЕС ЭВМ), и меня нагнули на это пахабъё.

Самая фишка этого языка в том что можно программой сформиовать текст программы и выполнить его. Вплоть до рекурсии. МРАК!!!!

По окончании изучения я должен был прочитать доклад с примерами программ...
В общем, после доклада меня обильно смазали дерьмом. :) Что и следовало ожидать.

А ты говоришь Си! Вот внуки, сидя у тебя на коленках, потом спросят: - Что интересного у тебя, дедушка, в жизни было? А тебе и вспомнить не чего.
:)

vada ★★★★★
()
Ответ на: комментарий от splinter

Я уверен что процентов 80 из здесь присутствующих видели этот код ранее.

Ага, вот и хинт. Теперь я почти уверен.

baverman ★★★
()
Ответ на: комментарий от snaf

охлол, это моя копипаста, гуглер, на дату посмотри же! я пытался запустить, но там какие-то невнятные сообщения об ошибках. Но да, код в ОП с ошибками.

cdshines ★★★★★
()
Ответ на: комментарий от Spirit_of_Stallman

Rage-driven development. Так половина линуксовых дров написана, только потом регистр символов сменяют перед коммитом.
Вторая половина — это frustration-driven development.

CYB3R ★★★★★
()
Последнее исправление: CYB3R (всего исправлений: 1)
Ответ на: комментарий от goingUp

Переведи «period», у него два значения.

CYB3R ★★★★★
()
Ответ на: комментарий от splinter

Я уверен, что процентов 80 из здесь присутствующих родились, когда кобол уже умер.

CYB3R ★★★★★
()
Ответ на: комментарий от baverman

У нас победитель!

не совсем, прошивка винтовки повстанцев, которая вываливает кобол прямо в прицел снайперу! :-)

splinter ★★★★★
() автор топика
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
← Биткоин с инфляцией
Talks
Gtalk всё? Или это только у меня траблы? →