Задания по Паскалю

program Project1;
var
  a: array [1..10,1..10] of integer; // Переменная для хранения матрицы.
  i,j: integer;  // Вспомогательные переменные для организации циклов.
  k: integer;    // Переменная для хранения значения множителя.
  n: integer;    // Переменная для хранения значения размерности матрицы.
begin
  write('Введите размерность матрицы (не более 10): ');
  Readln(n);
  for i:= 1 to n do
    for j:= 1 to n do
      begin
        write('Введите элемент ',i,' строки ',j,' столбца: ');
        Readln(a[i,j]);  // Ручной ввод значений в матрицу.
      end;
  writeln('Исходная матрица: ');
  for i:= 1 to n do
    begin
      for j:= 1 to n do
        Write(a[i,j]:5); // Вывод элементов матрицы на экран.
      writeln;
    end;
  write('Введите значение множителя: ');
  Readln(k);             // Ввод множителя в компьютер.
  for i:= 1 to n do
    for j:= 1 to n do
       a[i,j]:= k*a[i,j];   //  Умножение элементов матрицы на заданное число.
  writeln('Матрица, умноженная на число ',k);
  for i:= 1 to n do
    begin
      for j:= 1 to n do
        Write(a[i,j]:5);    // Вывод элементов перемноженной матрицы на экран.
      writeln;
    end;
 
  Readln;
end.

program Project1;
var
  a: array [1..10,1..10] of real; // Переменная для хранения матрицы.
  i,j: integer;  // Вспомогательные переменные для организации циклов.
  k: integer;    // Переменная для хранения значения множителя.
  n: integer;    // Переменная для хранения значения размерности матрицы.
begin
  write('Введите размерность матрицы (не более 10): ');
  Readln(n);
  for i:= 1 to n do
    for j:= 1 to n do
      begin
        write('Введите элемент ',i,' строки ',j,' столбца: ');
        Readln(a[i,j]);  // Ручной ввод значений в матрицу.
      end;
  writeln('Исходная матрица: ');
  for i:= 1 to n do
    begin
      for j:= 1 to n do
        Write(a[i,j]:7:2); // Вывод элементов матрицы на экран.
      writeln;
    end;
  write('Введите значение множителя: ');
  Readln(k);             // Ввод множителя в компьютер.
  for i:= 1 to n do
    for j:= 1 to n do
       a[i,j]:= k*a[i,j];   //  Умножение элементов матрицы на заданное число.
  writeln('Матрица, умноженная на число ',k);
  for i:= 1 to n do
    begin
      for j:= 1 to n do
        Write(a[i,j]:7:2);    // Вывод элементов перемноженной матрицы на экран.
      writeln;
    end;
 
  Readln;
end.

program Project1;
var
  x,y,z: real; // Переменные для хранения аргументов функции.
  a,b: real;   // Переменные для хранения результатов вычисления функции.
begin
  writeln('Enter argument values:');
  write('x = ');
  Readln(x);      // Ввод значения переменной x.
  write('y = ');
  Readln(y);      // Ввод значения переменной y.
  write('z = ');
  Readln(z);      // Ввод значения переменной  z.
  a:= z + 10/x*x + abs(y*y/(y + x*x)) + y; // Вычисление результата для переменной а.
  b:= sqr(1 + cos(z/2)*cos(z/2));          // Вычисление результата для переменной b.
  writeln('Calculation result:  a = ',a:0:4,';   b = ',b:0:4);
  Readln;
end.

program Project1;
uses
  CRT;
var
  a: array [1..5,1..5] of integer; // Переменная для хранения матрицы.
  b: array [1..100] of integer;  // Переменная для хранения результирующего массива.
  i,j,k,d: integer;  // Вспомогательные переменные для организации циклов.
  h: integer;      // Вспомогательная переменная для организации счета.
  n: integer;    // Переменная для хранения значения размерности матрицы.
  flag: boolean; // Переменная для регистрации события найденного совпадения.
begin
 
  write('Введите размерность матрицы (не более 10): ');
  Readln(n);
  for i:= 1 to n do
    for j:= 1 to n do
      begin
        write('Введите элемент ',i,' строки ',j,' столбца: ');
        Readln(a[i,j]);  // Ручной ввод значений в матрицу.
      end;
  writeln('Исходная матрица: ');
  for i:= 1 to n do
    begin
      for j:= 1 to n do
        Write(a[i,j]:5); // Вывод элементов матрицы на экран.
      writeln;
    end;
  h:= 0;                 // Установка счетной переменной в ноль.
  for i:= 1 to n do      // Циклы для перебора индексов элементов.
    for j:= 1 to n do
      begin
        flag:= true;       // Установка регистрационного флага в начальное состояние.
        for k:= 1 to n do   // Циклы для перебора индексов элементов.
          for d:= 1 to n do
            begin
              if (i <> k) or (j <> d) then  // Условие для того, чтобы не проверялись элементы с одинаковыми индексами.
                if (a[i,j] = a[k,d]) then   // Условие проверки на повторяемость.
                   flag:= false;            // Регистрация пройденной проверки.
            end;
        if flag then                       // Проверка на регистрацию найденного повторения.
          begin
            inc(h);         //   Увеличение счетчика.
            b[h]:= a[i,j];      //  Присвоение значения результирующему массиву.
          end;
      end;
  writeln;
  writeln('Не повторяющиеся элементы: ');
  for i:= 1 to h do
    begin
     Write(b[i]:5);    // Вывод выбранных элементов на экран.
     if i mod 10 = 0 then
       writeln;
    end;
 
  Readln;
end.