Исходное сообщение
"Компилятор GnuCOBOL достиг зрелости. Первый выпуск среды раз..." Отправлено Минона, 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.

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, [email protected] (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> 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.
	Введите код, изображенный на картинке: