Глагол

[Qsc]

Язык программирования, родственный языкам Паскаль и Оберон, использующий русские служебные слова - Глагол. Официальный сайт: http://glagol.nad.ru

[Qsc]

Используется для создания консольных приложений Windows.

[Qsc]

Хотя возможностей у языка не много, недостающие функции можно осуществить при помощи ассемблера 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: www@glagol.nad.ru

[dinar_007]

Не вижу смысла разработки этого проекта )))

[Qsc]

Ну а разве тебя заставляют видеть смысл этого проекта?
Просто, кто-то его видит, а кто-то нет...