The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]



Вариант для распечатки  
Пред. тема | След. тема 
Форум Разговоры, обсуждение новостей
Режим отображения отдельной подветви беседы [ Отслеживать ]

Оглавление

Компилятор GnuCOBOL достиг зрелости. Первый выпуск среды разработки SuperBOL, opennews (??), 18-Мрт-24, (0) [смотреть все]

Сообщения [Сортировка по времени | RSS]


19. "Компилятор GnuCOBOL достиг зрелости. Первый выпуск среды раз..."  +7 +/
Сообщение от Минона (ok), 18-Мрт-24, 14:08 
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INPUT ASSIGN TO 'input.txt'
ORGANIZATION SEQUENTIAL.
SELECT OUTPUT ASSIGN TO 'output.txt'
ORGANIZATION SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD INPUT.
01 RECORD-INPUT.
02 FIELD-1 PIC X(80).

FD OUTPUT.
01 RECORD-OUTPUT.
02 FIELD-1 PIC X(80).

WORKING-STORAGE SECTION.
01 MSG-1.
02 FIELD-1 PIC X(80) VALUE 'Привет, мир!'.

PROCEDURE DIVISION.
MAIN-PARAGRAPH.
OPEN INPUT INPUT
OPEN OUTPUT OUTPUT
PERFORM READ-INPUT UNTIL END-OF-INPUT
CLOSE INPUT
CLOSE OUTPUT
STOP RUN.

READ-INPUT.
READ INPUT
AT END
MOVE ' ' TO FIELD-1
PERFORM WRITE-OUTPUT
END-READ.

WRITE-OUTPUT.
WRITE RECORD-OUTPUT
END-WRITE.

END PROGRAM HELLO-WORLD.

Ответить | Правка | Наверх | Cообщить модератору

27. "Компилятор GnuCOBOL достиг зрелости. Первый выпуск среды раз..."  +17 +/
Сообщение от Аноним (-), 18-Мрт-24, 14:22 
Ловите пенсионера!

ps код просто впечатляет своей монументальностью, просто на него смотришь и чувствуется "надежность")
чувствуется запах пластиковых бобин и перфолент :D

Ответить | Правка | Наверх | Cообщить модератору

52. "Компилятор GnuCOBOL достиг зрелости. Первый выпуск среды раз..."  +/
Сообщение от tty0 (?), 18-Мрт-24, 16:03 
Вы просто запах перфолент через 30 лет не знаете..
Ответить | Правка | Наверх | Cообщить модератору

54. "Компилятор GnuCOBOL достиг зрелости. Первый выпуск среды раз..."  +3 +/
Сообщение от Аноним (-), 18-Мрт-24, 16:15 
Ну почему же, если хранить в сухом отапливаемом месте...
Хотя может и подзабыл. Да и не осталось их уже.

А вот перфокарты не пробитые еще есть.
Удобная штука - хороший картон, можно всякие записи на них делать.
Пойти что ли понюхать их и вспомнить?))

Ответить | Правка | Наверх | Cообщить модератору

33. "Компилятор GnuCOBOL достиг зрелости. Первый выпуск среды раз..."  +3 +/
Сообщение от Анонус (?), 18-Мрт-24, 14:44 
> VALUE 'Привет, мир!'

А там точно что-то кроме ASCII поддерживается?

Ответить | Правка | К родителю #19 | Наверх | Cообщить модератору

134. "Компилятор GnuCOBOL достиг зрелости. Первый выпуск среды раз..."  +3 +/
Сообщение от _ (??), 19-Мрт-24, 01:01 
Ну если реально на мэнфрейме ... "какой такой ASCII?!?!"(C)
;-)
Ответить | Правка | Наверх | Cообщить модератору

92. "Компилятор GnuCOBOL достиг зрелости. Первый выпуск среды раз..."  +/
Сообщение от Аноним (85), 18-Мрт-24, 18:04 
А приведите примеры из веб- проектов для ясности. В интернете, в репозиториях можно найти.
Ответить | Правка | К родителю #19 | Наверх | Cообщить модератору

97. "Компилятор GnuCOBOL достиг зрелости. Первый выпуск среды раз..."  –1 +/
Сообщение от Аноним (97), 18-Мрт-24, 18:24 
А на этом языке обязательно КРИЧАТЬ или можно нормально разговаривать?
Ответить | Правка | К родителю #19 | Наверх | Cообщить модератору

104. "Компилятор GnuCOBOL достиг зрелости. Первый выпуск среды раз..."  +2 +/
Сообщение от Аноним (104), 18-Мрт-24, 19:15 
да

       identification division.
       program-id. HelloWorldProgram.

       procedure division.
       display "Hello, World!".
       stop run.

Ответить | Правка | Наверх | Cообщить модератору

166. "Компилятор GnuCOBOL достиг зрелости. Первый выпуск среды раз..."  +2 +/
Сообщение от Аноним (166), 19-Мрт-24, 19:12 
Изначально да, надо было кричать, если не критична поддержка перфокарт (иначе они не слышат от старости) то можно и не кричать...требование смягчили
Ответить | Правка | К родителю #97 | Наверх | Cообщить модератору

98. "Компилятор GnuCOBOL достиг зрелости. Первый выпуск среды раз..."  +/
Сообщение от ptremail (ok), 18-Мрт-24, 18:24 
Вообще-то классический HelloWorld не требует ввода. Он лишь выводит строку и сразу завершается.
Это не считая того, что в коде вообще забыли к MSG-1 обратиться.
Ответить | Правка | К родителю #19 | Наверх | Cообщить модератору

146. "Компилятор GnuCOBOL достиг зрелости. Первый выпуск среды раз..."  +/
Сообщение от Минона (ok), 19-Мрт-24, 08:35 
> Вообще-то классический HelloWorld не требует ввода. Он лишь выводит строку и сразу
> завершается.
> Это не считая того, что в коде вообще забыли к MSG-1 обратиться.

Не, так не монументально. =)

Ответить | Правка | Наверх | Cообщить модератору

105. "Компилятор GnuCOBOL достиг зрелости. Первый выпуск среды раз..."  +2 +/
Сообщение от Аноним (105), 18-Мрт-24, 20:02 
Ни скобочек, ни точек с запятой. Замечательный язык.
Ответить | Правка | К родителю #19 | Наверх | Cообщить модератору

112. "Компилятор GnuCOBOL достиг зрелости. Первый выпуск среды раз..."  +/
Сообщение от _kp (ok), 18-Мрт-24, 21:42 
Точки без запятых там есть.
А как там после этого извращения записывают числа, посмотрите когда станет грустно, оно точно рассмешит, заодно и скобочки найдутся.
Ответить | Правка | Наверх | Cообщить модератору

122. "Компилятор GnuCOBOL достиг зрелости. Первый выпуск среды раз..."  +/
Сообщение от Аноним (122), 18-Мрт-24, 22:34 
Какой приятный глазу язык. Читаю и прям отдушина после всяких JavaScript.
Ответить | Правка | К родителю #19 | Наверх | Cообщить модератору

189. "Компилятор GnuCOBOL достиг зрелости. Первый выпуск среды раз..."  +/
Сообщение от Аноним (189), 20-Мрт-24, 18:16 
TL;DR
Ответить | Правка | Наверх | Cообщить модератору

170. "Компилятор GnuCOBOL достиг зрелости. Первый выпуск среды раз..."  +2 +/
Сообщение от Аноним (170), 19-Мрт-24, 21:36 
Зачем вы врете? Вводите людей в заблуждение.
Hello world на современном COBOL выглядит так:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. hello.
       PROCEDURE DIVISION.
           DISPLAY "Hello World"
           STOP RUN.

Ответить | Правка | К родителю #19 | Наверх | Cообщить модератору

171. "Компилятор GnuCOBOL достиг зрелости. Первый выпуск среды раз..."  +1 +/
Сообщение от Минона (ok), 19-Мрт-24, 21:39 
Слишком просто, на оценят. 😉
Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру