Составить программу, использующую процедуры и функции модуля System: Exit, Chr, Abs, ArcTan, Dec, Random - Turbo Pascal

Формулировка задачи:

Составить программу, которая использует следующие процедуры и функции модуля System: Exit, Chr, Abs, ArcTan, Dec,Random

Решение задачи: «Составить программу, использующую процедуры и функции модуля System: Exit, Chr, Abs, ArcTan, Dec, Random»

Листинг программы

uses crt;
const nmax=20;
var a:array[1..nmax] of integer;
    i,n,k,t:integer;
begin
 clrscr;
  repeat
   write('n=');
   readln(n);
  until n in [1..nmax];
  writeln('ГЊГ*Г±Г±ГЁГў ,Г§Г*ГЇГ®Г«Г*ГҐГ* ГґГіГ*ГЄГ¶ГЁГҐГ© random ');
  for i:=1 to n do
   begin
    a[i]:=random(255);
    write(a[i]:4);
   end;
 writeln;
  writeln('Г’Г®ГІ Г¦ГҐ Г¬Г*Г±Г±ГЁГў ,ГІГ®Г«ГјГЄГ® ГҐГЈГ® ГЅГ«ГҐГ¬ГҐГ*ГІГ» ГўГ®Г§Г°Г*Г№Г*ГѕГІ Г±ГЁГ¬ГўГ®Г« Г± ГЄГ®Г¤Г®Г¬ ГЂГ±ГЄГЁГЁ');
   writeln(' Г± ГЇГ®Г¬Г®Г№ГјГѕ ГґГіГ*ГЄГ¶ГЁГЁ chr');
   for i:=1 to n do
    write(chr(a[i]):4);
 writeln;
   write('Г‚ГўГҐГ¤ГЁГІГҐ i=');
    readln(i);
 writeln('Arctg (',a[i],') = ',arctan(a[i]):0:2);
  write('Г‚ГўГҐГ¤ГЁГІГҐ Г«ГѕГЎГ®ГўГҐ Г·ГЁГ±Г«Г® k=');
   readln(k);
   t:=k;
   dec(t);
  writeln('ГЏГ°ГҐГ¤Г»Г¤ГіГ№ГҐГҐ Г·ГЁГ±Г«Г® ,Г·ГЁГ±Г«Г* ',k,' = ',t);
 writeln('ГђГ*Г§Г*Г®Г±ГІГј Arctg (',a[i],') ГЁ Г·ГЁГ±Г«Г® k=',k,',ГўГ®Г§ГјГ¬ГҐГ¬ ГЇГ® Г¬Г®Г¤ГіГ«Гѕ ',abs(arctan(a[i])-k):0:2);
 readkey;
end.

Объяснение кода листинга программы

Используется модуль System, который содержит функции и процедуры Exit, Chr, Abs, ArcTan, Dec, Random.
Создается переменная nmax, которая имеет максимальное значение 20.
Создается массив a, который может содержать до 20 чисел.
Задаются переменные i, n, k, t.
Выполняется цикл, в котором запрашивается число n и записывается в массив a.
Выполняется цикл, в котором вычисляется арктангенс числа a[i] и сравнивается с числом k.
Выводится результат сравнения.
Выводится сообщение о том, что используется функция Random.
Выполняется цикл, в котором вычисляется абсолютное значение разности арктангенса числа a[i] и k.
Выводится результат вычисления.
Выводится символ перевода строки.
Выполняется цикл, в котором считывается число k.
Вычисляется значение переменной t.
Выводится результат вычисления.
Выводится символ перевода строки.
Выполняется цикл, в котором вычисляется значение функции abs(арктангенс числа a[i] - k).
Выводится результат вычисления.
Считывается символ, который будет использован как символ перевода строки.
Выполняется цикл, в котором считывается число k.
Выводится результат вычисления.