Тема: Глагол
Показать сообщение отдельно

  #3  
Старый 19.12.2005, 09:56
Qsc
Новичок
Регистрация: 18.12.2005
Сообщений: 4
Провел на форуме:
46982

Репутация: 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: www@glagol.nad.ru