2000 · BASIC, Pascal и олимпиады

Русский Паскаль

Транслятор, позволявший писать на Паскале по-русски, — помощь тем, кто не знает английского. Ключевые слова брались из редактируемого словаря — так что подошёл бы любой язык; русские идентификаторы транслитерировались автоматически; << и >> заменяли begin и end, были макросы. Он встраивался в среду Borland Pascal горячей клавишей в меню Tools: Shift+F9 транслировал файл, компилировал его родным компилятором Borland и запускал. А маленькая резидентная программа подсвечивала русские ключевые слова прямо в редакторе Borland.

PascalBorland Pascal

Исходник того времени

FIRST.PAS

программа первая;
используется unit1;
переменная
  а,б,в,г:число;
старт
  а:=100;
  в:=0;
  написать(a);
  от б:=1 до а делай в:=в+а;
  задержка(1000);
  написать(в);
финиш

Версия 0.1, 11 октября 2000 года: первая программа, написанная по-русски.

FIRST.RPS

program pervaa;
uses unit1;
var
  a,b,v,g:integer;
begin
  a:=100;
  v:=0;
  writeln(a);
  for b:=1 to a do v:=v+a;
  _aderzka(1000);
  writeln(v);
end.
Copyright IVA vision

Во что RP.EXE превратил её перед тем, как отдать компилятору Borland. Ключевые слова — из словаря, незнакомые слова транслитерируются: задержка стала _aderzka.

FIRST.PAS

программа первая; // демонстрация макросов
используется unit1;
переменная аа:число;
макро вывод(п1,р2:число; с:строка);
<<
  писать(п1:4); // каждое число быдет распологаться в четырех знакоместах
  писать(р2*2:4);
{  писать('(C)>',с);}
>>
все
макро права;
писать('Copyright');
все
старт
  {начало программы}
  написать('1');  задержка(1000);  написать('2');
  от аa:=1 до 10 делай вывод(аа,аa+1,'');  писать('Таблица'); вывод(222,223,'Конец');
  writeln;
  права;
финиш

Версия 1.0, 28 октября 2000 года: макросы (макро … все) вставляются в код, а не вызываются, а << >> заменяют begin/end.