Глагол

Discussion in 'Безопасность и Анонимность' started by Qsc, 18 Dec 2005.

  1. Qsc

    Qsc New Member

    Joined:
    18 Dec 2005
    Messages:
    4
    Likes Received:
    0
    Reputations:
    0
    Язык программирования, родственный языкам Паскаль и Оберон, использующий русские служебные слова - Глагол. Официальный сайт: http://glagol.nad.ru
     
  2. Qsc

    Qsc New Member

    Joined:
    18 Dec 2005
    Messages:
    4
    Likes Received:
    0
    Reputations:
    0
    Используется для создания консольных приложений Windows.
     
  3. Qsc

    Qsc New Member

    Joined:
    18 Dec 2005
    Messages:
    4
    Likes Received:
    0
    Reputations:
    0
    Хотя возможностей у языка не много, недостающие функции можно осуществить при помощи ассемблера NASM. Прекрасно подходит для обучения, так как не требуется запоминать непонятные комбинации латинских букв, используются только русские служебные слова. В архиве с ним прилагается комплект различных исходников (игры (консольные - тетрис, шашки и крестики-нолики), простые примеры вывода текста, работы с файлами и др., вычисления и прочее). Понятная, хорошо оформленная документация. Вот пример простенького приложения:

    (******************************************************************************)
    (**) ОТДЕЛ ЧислоПи+; (**)
    (******************************************************************************)
    (* НАЗНАЧЕНИЕ: приближенное вычисление числа "Пи" *)
    (* АЛГОРИТМ: *)
    (* Пи/4 = 1 - 1/3 + 1/5 - 1/7 + ... (медленная сходимость) *)
    (******************************************************************************)

    ИСПОЛЬЗУЕТ
    Вывод ИЗ "...\Отделы\Обмен\",
    Матем ИЗ "...\Отделы\Числа\";

    ПОСТ
    ТОЧНОСТЬ=1.E-6; (* приблизительно *)

    (******************************************************************************)
    ЗАДАЧА Голова;
    (* Расчет по алгоритму и вывод ответа на экран *)
    ПЕР
    сумма,слагаемое:ВЕЩ;
    знаменатель,знак:ЦЕЛ;
    УКАЗ
    Вывод.Цепь("^Расчет суммы: 1 - 1/3 + 1/5 - 1/7 + ... ");
    сумма:=0;
    знаменатель:=1;
    знак:=1;
    ПОВТОРЯТЬ
    слагаемое:=знак/знаменатель;
    сумма:=сумма+слагаемое;
    УВЕЛИЧИТЬ(знаменатель,2);
    знак:=-знак
    ДО МОДУЛЬ(слагаемое) < ТОЧНОСТЬ;
    Вывод.ЧВещ("(%d слагаемых)^^ %g сумма*4^ %g ПИ^ %g arctg(1)*4^",
    знаменатель/2, сумма*4,Матем.ПИ,Матем.arctg(1)*4)
    КОН Голова;

    УКАЗ
    Голова
    КОН ЧислоПи.

    Так что качайте, учите и обсуждайте.
    Если вы хотите помочь издателю в развитии этого проекта, обращайтесь на официальный сайт на страничку обсуждения либо на его e-mail: [email protected]
     
  4. dinar_007

    dinar_007 Мадемуазель

    Joined:
    18 Jan 2005
    Messages:
    1,019
    Likes Received:
    770
    Reputations:
    97
    Не вижу смысла разработки этого проекта )))
     
  5. Qsc

    Qsc New Member

    Joined:
    18 Dec 2005
    Messages:
    4
    Likes Received:
    0
    Reputations:
    0
    Ну а разве тебя заставляют видеть смысл этого проекта?
    Просто, кто-то его видит, а кто-то нет...