Лаба. 3 задания, написать для каждого задания отдельную прогу. - Pascal

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

5*.

Известно, что с геометрической точки зрения углы, различающиеся в 2pi n раз, где n целое число, не различимы. Написать программу, находящую для любого угла, соответствующий ему угол из диапазона [0, 2pi).

Найти сумму двух случайных а) целых чисел из диапазона 50 до 100; б) вещественных чисел из диапазона [3.5, 8). Для решения этой задачи понадобится функция, генерирующая псевдослучайные числа. Это стандартная функция random. Разобраться с функцией random по встроенной в систему справке! В этой справке будет непонятное слово «word» и непонятная функция «randomize». С ними тоже разобраться по справке. Процедура Randomize инициализирует генератор случайных чисел текущим временем. Её нужно вызвать 1 раз в начале программы (Randomize. В результате при следующем запуске программы числа будут разные, а если эту процедуру не использовать, то одни и те же.

Дано четырёхзначное целое число (записано в одной переменной). Найти число, полученное перестановкой цифр. Исходный порядок цифр «abcd». Новый порядок цифр по вариантам: 1) bcda, 2) badc, 3) dbca, 4) cdab, 5) acbd, 6) dcab. если есть возможность то для каждого варианта распишите во 2-ом задании

Решение задачи: «Лаба. 3 задания, написать для каждого задания отдельную прогу.»

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

var
 n:integer;
 i,:integer;
 s:string;
 d:string;
function var1(x:string):integer;
  var 
   g:integer; 
 begin
    d:=X[1];
    X[1]:=X[2];
    X[2]:=X[3];
    X[3]:=X[4];
    X[4]:=d;
    var1:=val(x,i,g);
   end; 
function var2(x:stirng):integer;
 var 
  g:integer;
 begin
    d:=X[1];
    X[1]:=X[2]
    X[2]:=d;
    d:=X[3];
    X[3]:=X[4];
    X[4]:=d;
    var1:=val(x,i,g);
   end; 
begin
 Write('Введите 4х-значное число : ');readln(n);
  Str(n,s);
  write(var1(s));
  write(var2(s));
end.

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

В первой функции var1 мы объявляем переменную g, которая будет использоваться для хранения значения, возвращаемого функцией val. Мы также объявляем переменные X[1], X[2], X[3] и X[4], которые будут использоваться для хранения промежуточных значений при выполнении функции val. Значение var1 будет равно значению, возвращаемому функцией val, после того как она будет вызвана с аргументом s.
Во второй функции var2 мы делаем то же самое, что и в первой функции var1, но вместо функции val мы используем функцию val2, которая также будет использовать переменные X[1], X[2], X[3] и X[4]. Значение var2 будет равно значению, возвращаемому функцией val2, после того как она будет вызвана с аргументом s.
В основной части программы мы сначала запрашиваем у пользователя ввод четырехзначного числа. Затем мы преобразуем это число в строку и передаем его в обе функции var1 и var2. Результаты вычислений функций выводятся на экран.