2000 · BASIC, Pascal un olimpiādes

Krievu Pascal

Translators, kas ļāva rakstīt Pascal krieviski, — iespēja sākt tiem, kuri nezināja angļu valodu. Atslēgvārdi nāca no rediģējamas vārdnīcas, tāpēc derētu jebkura valoda; krievu identifikatori tika automātiski transliterēti; << un >> aizstāja begin un end, un bija iekļautie makro. Tas pieslēdzās Borland Pascal IDE kā karstais taustiņš izvēlnē Tools: Shift+F9 pārtulkoja failu, nokompilēja to ar paša Borland kompilatoru un palaida. Neliela rezidenta programma izcēla krievu atslēgvārdus tieši Borland redaktorā.

PascalBorland Pascal

Tā laika pirmkods

FIRST.PAS

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

Versija 0.1, 2000. gada 11. oktobris: pirmā programma, uzrakstīta krieviski.

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

Par ko RP.EXE to pārvērta, pirms nodot Borland kompilatoram. Atslēgvārdi nāk no vārdnīcas; nezināmi vārdi tiek transliterēti — задержка (aizture) kļuva par _aderzka.

FIRST.PAS

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

Versija 1.0, 2000. gada 28. oktobris: makro (макро … все) tiek ielīmēti kodā, nevis izsaukti, un << >> aizstāj begin/end.