From: Sergey Matveev <stargrave@stargrave.org>
Date: Wed, 19 Oct 2022 10:10:15 +0000 (+0300)
Subject: Советские языки программирования
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=a527c928b769b8d56fc414416b9125f8df490e55;p=stargrave-blog.git

Советские языки программирования

https://habr.com/ru/company/ruvds/blog/692594/
Язык Робик:

    ВКЛЮЧИТЬ ОБХОДЧИК;
    ЗАПОМНИТЬ ПРОЦЕДУРУ ПРОВЕРКА_СТЫКА;
        ЕСЛИ ОБХОДЧИК.СТЫК = "НЕИСПРАВЕН" ТО ОТМЕНИТЬ СТЫК;
        ВПЕРЕД 24М;
    ЗАКОНЧИТЬ;
    ПОКА ОБХОДЧИК.ВПЕРЕДИ = "СВОБОДНО" ПОВТОРЯТЬ ПРОВЕРКА_СТЫКА;
    ПОКА ОБХОДЧИК.СЗАДИ = "СВОБОДНО" ПОВТОРЯТЬ НАЗАД 24М;
    ВЫКЛЮЧИТЬ ОБХОДЧИК;

РАПИРА:

    ПРОЦ СТАРТ();
        ВЫВОД: "ЗДРАВСТВУЙ, МИР!";
    КНЦ;

    ЕСЛИ А > В ТО
    1 -> А; ВЫВОД: В;
    ИНАЧЕ
    1 -> В; ВЫВОД: А;
    ВСЕ;

РАЯ (Русский Алгоритмический Язык). Ага, как же, поверим что это не
ответ на язык "Ада":

    алг Сумма квадратов (арг цел n, рез цел S)
       дано | n > 0
       надо | S = 1*1 + 2*2 + 3*3 + … + n*n
    нач цел i
    |  ввод n; S:=0
    |  нц для i от 1 до n
    |  |  S := S + i * i
    |  кц
    |  вывод "S = ", S
    кон
---