OberonCore

(* Русский перевод операторов Компонентного Паскаля. Версия 19.03.09 Бетта*)

(* Переменные *)
CONST         ПОСТОЯННЫЕ

BOOLEAN              ЛОГИЧЕСКАЯ (* ЛОГИЧЕСКИЕ *)
FALSE         НЕТ
FALSE         ЛОЖЬ
TRUE          ДА
TRUE          ПРАВДА
TRUE                        ИСТИНА

VAR                ПЕРЕМЕННЫЕ  (* секция переменных*)

(*Описание переменных процедуры*)
VAR         ПЕРЕМ
VAR         ЧТЕНИЕ_ЗАПИСЬ,(* ВХ_ВЫХ?*)
IN         ЗАПИСЬ, (* ТОЛЬКО_ЗАПИСЬ, ВХ *) В??  -??- см. IN принадлежность множеству
OUT         ЧТЕНИЕ, (* ТОЛЬКО_ЧТЕНИЕ, ВЫХ *), ИЗ

NIL         ПУСТО

BYTE         БАЙТ
SHORTINT      ЦЕЛОЕ_МАЛОЕ
INTEGER      ЦЕЛОЕ
INTEGER      ЦЕЛ
LONGINT      ЦЕЛОЕ_ БОЛЬШОЕ

SET          ЦЕЛЫЕ_ДО , МНОЖЕСТВО  (ПОДМНОЖЕСТВО 0-31)

REAL         ВЕЩЕСТВЕННАЯ
SHORTREAL   ВЕЩЕСТВЕННАЯ_МАЛАЯ

CHAR      СИМВОЛ_УНИКОД
SHORTCHAR   СИМВОЛ_Latin1

POINTER              УКАЗАТЕЛЬ  (*проблемное место из зи слова ТО в цикле FOR*), ДОСТУП (* глагол*)
POINTER_TO      УКАЗАТЕЛЬ_НА (*  замена в 2-е строки *) 
POINTER TO       POINTER_TO   (* замена в 2-е строки (2-й проход??) *) ДОСТУП К (*глагол *)

TO                            К (*из Глагола*)

ARRAY         МАССИВ  (* МАССИВ_ИЗ*) (* *)
OF                 ИЗ

(* Типы и объекты *)

TYPE         ТИПЫ  (* секция объявления типов*)

WITH      ЕСЛИ_ТИП, ПРОВЕРИТЬ_ТИП
INC         ПРОВЕРИТЬ_ТИП , РАВЕН_ТИПУ

RECORD      ЗАПИСЬ

NEW         СОЗДАТЬ   (* создать объект *)
NEW         НОВЫЙ    (* атрибут метода *)
ANYREC      ПЕРЕОПРЕДЕЛЯЕМЫЙ_ТИП
ANYPTR      ЛЮБОЙ_УКАЗАТЕЛЬ_НА_ЗАПИСЬ???

(*атрибуты записи*)

ABSTRACT      ДЛЯ_НАСЛЕДОВАНИЯ
EXTENSIBLE      ПЕРЕОПРЕДЕЛЯЕМЫЙ, РАСШИРЯЕМЫЙ
LIMITED         ВНУТРИ_МОДУЛЯ
EMPTY         ПУСТОЙ   

Логические операции
OR         ИЛИ
&         И
~         НЕ
IN                    В
IS         ЯВЛЯЕТСЯ, ИЗ??, ЭЛЕМЕНТ?, ИЗ_СПИСКА, ЯВЛЯЕТСЯ_ ЭЛЕМЕНТОМ (*принадлежность множеству*) (*конфликт с   ARRAY OF - МАССИВ ИЗ*)

Математические операции
DIV         ЦЕЛАЯ_ЧАСТЬ
MOD         ОСТАТОК
ABS         ПО_МОДУЛЮ

(* Описания Процедур И МОДУЛЕЙ *)

MODULE         МОДУЛЬ

BEGIN          ИНИЦИАЛИЗАЦИЯ_МОДУЛЯ     (*синоним*), ПРИ_ЗАГРУЗКЕ_МОДУЛЯ
CLOSE         ЗАКРЫТИЕ_МОДУЛЯ

IMPORT         ДОБАВИТЬ, ДОБАВИТЬ_МОДУЛИ

PROCEDURE      ПРОЦЕДУРА
BEGIN         НАЧАЛО
END                 КОНЕЦ
RETURN         ВЫЙТИ

Ветвления

IF         ЕСЛИ
THEN         ТО
ELSE         ЕСЛИ
ELSIF      А_ЕСЛИ

CASE      ВЫБРАТЬ

(* Циклы *)

FOR         ОТ (* ДЛЯ *)
TO         ДО
BY         С_ШАГОМ?, ПО?

LOOP      ПОВТОРЯТЬ, КОЛЬЦО (*глагол*)
DO         ВЫПОЛНИТЬ

REPEAT      ВЫПОЛНЯТЬ , ПОВТОРЯТЬ?  (*глагол*)
UNTIL      ПОКА, ДО?  (*глагол*)

WHILE      ПОКА
DO         ВЫПОЛНИТЬ
RETURN      ВЫЙТИ, ВОЗВРАТ??

EXIT         ВЫХОД

Процедуры-функции

SHORT      ТОЖДЕСТВЕННО?
LONG      ТОЖДЕСТВЕННО?

MAX         МАКС
MIN         МИН

LEN         ДЛИНА
ASH         АРИФМЕТИЧЕСКИЙ_СДВИГ
BITS         БИТ???
CHR         СИМВОЛ
CAP   
ODD         ЧЁТНОСТЬ   (*ЧЁТНЫЙ - НЕЧЁТНЫЙ*)
ORD         НОМЕР_БУКВЫ

HALT         ОСТАНОВИТЬ_ПРОГРАММУ
ASSERT      ОСТАНОВИТЬ_ПРОГРАММУ_ЕСЛИ


DEC         УМЕНЬШИТЬ  /  --
INC         УВЕЛИЧИТЬ   /  ++

ENTIER      МАКС_ЦЕЛОЕ

EXCL       ИСКЛЮЧИТЬ
INCL         ВКЛЮЧИТЬ , ДОБАВИТЬ

SIZE         РАЗМЕР
INF

MODULO Ekzemplo;
TIPO
     Dato =  RIKORDO
                jaro  : ENTJERO;
                monato: ENTJERO;
                tago  : ENTJERO;
             FINO;
     Datoj = TABELO DE Dato;
     RefDatoj = REFERENCO Datoj;

VARIABLO  s:TABELO 20 DE LITERO; f:VERECO; r: REELO;

PROCEDURO Stulta(d:Datoj;);
VARIABLO  i: ENTJERO;  a, b: ARO;
STARTO
 r := 0;
 POR i := 0 LIMO LONGO(a)-1 FARI
   SE NEPARA(d[i].tago) DO 
      ALDONI(a, d[i].tago)
   ALIE 
      ALDONI(b, d[i].tago)
   FINO;
 FINO;
 i := 31
 DUM (i > 0) KAJ (NE i EN a) FARI
   i := i - 1;
 FINO;
FINO DE Stulta.

FINO DE Ekzemplo.