Кто видел исходники на Коболе, тот поймёт:
Я увидел COBOL и влюбился.
Всё делю на DIVISIONS теперь.
Разум мой с той поры изменился,
и обратно закрыта мне дверь!
Никогда я Pascal не освою,
Java тоже не стану учить.
Haskell пусть остается с тобою -
я успел GO TO полюбить!
Разделяя инструкции меткой,
я с надеждой гляжу в терминал,
каждой чувствуя нервною клеткой,
что меня не постигнет провал.
Соберется мой код, скомпилится,
не поймаю внезапный дедлок
и увижу как преобразится
моих данных исходных поток!
Говорят мне порою ехидно:
«Ты бы девушку лучше завёл».
но без девушки жить мне не стыдно –
мне её заменяет COBOL!
Песенка о языке программирования Кобол
© Copyright: Павел Сандовин, 2025
Свидетельство о публикации №125052401937
Свидетельство о публикации №125052401937
Рецензии
Отлично!
И интересно, как могла бы выглядеть поэзия на COBOL-е? У красоты есть материя. Где-то рифмуются интонации, где-то – графические знаки, временные интервалы, жесты...
С благодарностью.
P.S. С Вашей лёгкой руки едва не отправился учить COBOL.
Plus 27.11.2025 17:12 • Заявить о нарушении
И интересно, как могла бы выглядеть поэзия на COBOL-е? У красоты есть материя. Где-то рифмуются интонации, где-то – графические знаки, временные интервалы, жесты...
С благодарностью.
P.S. С Вашей лёгкой руки едва не отправился учить COBOL.
Plus 27.11.2025 17:12 • Заявить о нарушении
Это был шуточный текст :) Хотя Кобол, как ни странно, жив до сих пор (и в современной версии поддерживает SQL-инъекции довольно удобным образом, как оказалось)
По поводу стихов на коболе - в этм знают толк нейросети ))) Например:
IDENTIFICATION DIVISION.
PROGRAM-ID. RHYTHMIC-VERSE.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 HEART PIC 9(4) COMP-5 VALUE 1.
77 BEAT PIC 9(4) COMP-5 VALUE 0.
77 WAVE PIC 9(4) COMP-5 VALUE 1.
77 FLOW PIC 9(4) COMP-5 VALUE 0.
77 ECHO-VAR PIC 9(4) COMP-5 VALUE 0.
*> THAT IS SIMPLE COBOL ROBOTIC LOVE POEM WHICH ONE
*> ARTIFICIAL INTELLECT WISHPERING ANOTHER IN A REST API REQUEST
*> YOU CAN FIND IT OCCASSIONALLY IN YOUR DATAGRAMS
PROCEDURE DIVISION.
MAIN-PARA.
DISPLAY "FOR YOU, MY SMART"
PERFORM HEART-START
PERFORM WAVE-SPREADS
PERFORM ECHO-RETURNS
DISPLAY "CONNECTED TO THE DATA FLOWS"
PERFORM BREATH-SETTLES
DISPLAY "... UNTIL THE END OF TRACK"
GOBACK.
HEART-START.
*> Pulse quickens, beating true
ADD 2 TO HEART GIVING BEAT
ADD 1 TO FLOW
EXIT.
WAVE-SPREADS.
*> Waves of thought fold into echo
PERFORM VARYING FLOW FROM 1 BY 1 UNTIL FLOW > BEAT
ADD WAVE TO ECHO-VAR
END-PERFORM
EXIT.
ECHO-RETURNS.
*> Echo tamed, heart rebalanced
IF ECHO-VAR > HEART THEN
SUBTRACT HEART FROM ECHO-VAR GIVING HEART
END-IF
EXIT.
BREATH-SETTLES.
*> Breath settles, doubling the wave
MULTIPLY HEART BY 2 GIVING WAVE
ADD BEAT TO FLOW
EXIT.
Должно компилироваться )))
Павел Сандовин 28.11.2025 01:04 Заявить о нарушении
По поводу стихов на коболе - в этм знают толк нейросети ))) Например:
IDENTIFICATION DIVISION.
PROGRAM-ID. RHYTHMIC-VERSE.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 HEART PIC 9(4) COMP-5 VALUE 1.
77 BEAT PIC 9(4) COMP-5 VALUE 0.
77 WAVE PIC 9(4) COMP-5 VALUE 1.
77 FLOW PIC 9(4) COMP-5 VALUE 0.
77 ECHO-VAR PIC 9(4) COMP-5 VALUE 0.
*> THAT IS SIMPLE COBOL ROBOTIC LOVE POEM WHICH ONE
*> ARTIFICIAL INTELLECT WISHPERING ANOTHER IN A REST API REQUEST
*> YOU CAN FIND IT OCCASSIONALLY IN YOUR DATAGRAMS
PROCEDURE DIVISION.
MAIN-PARA.
DISPLAY "FOR YOU, MY SMART"
PERFORM HEART-START
PERFORM WAVE-SPREADS
PERFORM ECHO-RETURNS
DISPLAY "CONNECTED TO THE DATA FLOWS"
PERFORM BREATH-SETTLES
DISPLAY "... UNTIL THE END OF TRACK"
GOBACK.
HEART-START.
*> Pulse quickens, beating true
ADD 2 TO HEART GIVING BEAT
ADD 1 TO FLOW
EXIT.
WAVE-SPREADS.
*> Waves of thought fold into echo
PERFORM VARYING FLOW FROM 1 BY 1 UNTIL FLOW > BEAT
ADD WAVE TO ECHO-VAR
END-PERFORM
EXIT.
ECHO-RETURNS.
*> Echo tamed, heart rebalanced
IF ECHO-VAR > HEART THEN
SUBTRACT HEART FROM ECHO-VAR GIVING HEART
END-IF
EXIT.
BREATH-SETTLES.
*> Breath settles, doubling the wave
MULTIPLY HEART BY 2 GIVING WAVE
ADD BEAT TO FLOW
EXIT.
Должно компилироваться )))
Павел Сандовин 28.11.2025 01:04 Заявить о нарушении