fork download
copy 
  1. program MatrixOperations;
  2.  
  3. uses
  4.   SysUtils;
  5.  
  6. var
  7.             A: array[1..3, 1..4] of Integer;
  8.             C: array[1..3, 1..4] of Real;
  9.   i, j, count: Integer;
  10.            zv: string = '****************************************';
  11.  
  12. begin
  13.   Writeln('Лабораторная работа №12, 13');
  14.   Writeln('Выполнили: Ахматянов Дамир');
  15.   Writeln('группа 731-311');
  16.   Writeln(zv);
  17.   // Ввод матрицы A
  18.   for i := 1 to 3 do
  19.   begin
  20.     for j := 1 to 4 do
  21.     begin
  22.       Write('Введите элемент A[', i, ',', j, ']: ');
  23.       Readln(A[i, j]);
  24.     end;
  25.   end;
  26.  
  27.   // Строим матрицу C по формуле
  28.   for i := 1 to 3 do
  29.   begin
  30.     for j := 1 to 4 do
  31.     begin
  32.       C[i, j] := Sin(A[i, j]);
  33.     end;
  34.   end;
  35.  
  36.   // Выводим матрицу C на экран
  37.   Writeln('Матрица C:');
  38.   for i := 1 to 3 do
  39.   begin
  40.     for j := 1 to 4 do
  41.     begin
  42.       Write(C[i, j]:0:2, ' ');
  43.     end;
  44.     Writeln;
  45.   end;
  46.  
  47.   // Определяем количество элементов dij>0.1
  48.   count := 0;
  49.   Writeln('Элементы dij>0.1:');
  50.   for i := 1 to 3 do
  51.   begin
  52.     for j := 1 to 4 do
  53.     begin
  54.       if C[i, j] > 0.1 then
  55.       begin
  56.         Write('C[', i, ',', j, ']: ', C[i, j]:0:2, ' ');
  57.         Inc(count);
  58.       end;
  59.     end;
  60.   end;
  61.   Writeln;
  62.   Writeln('Количество элементов dij>0.1: ', count);
  63.  
  64.   // Меняем местами 1-й и 4-й столбцы матрицы A
  65.   for i := 1 to 3 do
  66.   begin
  67.     A[i, 1] := A[i, 1] + A[i, 4];
  68.     A[i, 4] := A[i, 1] - A[i, 4];
  69.     A[i, 1] := A[i, 1] - A[i, 4];
  70.   end;
  71.  
  72.   // Выводим измененную матрицу A на экран
  73.   Writeln('Измененная матрица A:');
  74.   for i := 1 to 3 do
  75.   begin
  76.     for j := 1 to 4 do
  77.     begin
  78.       Write(A[i, j], ' ');
  79.     end;
  80.     Writeln;
  81.   end;
  82.  
  83. end.
Success #stdin #stdout 0s 5304KB
comments (?)
stdin
copy 
7 21
1 2 547152
1 3 509157
1 4 539282
1 5 541645         
1 6 458433
1 7 385173

2 3 131528
2 4 92735
2 5 150511
2 6 94440
2 7 194542
3 4 216600
3 5 272401
3 6 157176
3 7 124077
4 5 57785
4 6 97323
4 7 242232
5 6 136663
5 7 283862
6 7 147426
stdout
copy 
Лабораторная работа №12, 13
Выполнили: Ахматянов Дамир
группа 731-311
****************************************
Введите элемент A[1,1]: Введите элемент A[1,2]: Введите элемент A[1,3]: Введите элемент A[1,4]: Введите элемент A[2,1]: Введите элемент A[2,2]: Введите элемент A[2,3]: Введите элемент A[2,4]: Введите элемент A[3,1]: Введите элемент A[3,2]: Введите элемент A[3,3]: Введите элемент A[3,4]: Матрица C:
0.66 0.84 0.84 0.84 
0.84 0.84 0.84 0.91 
0.91 0.91 0.91 0.91 
Элементы dij>0.1:
C[1,1]: 0.66 C[1,2]: 0.84 C[1,3]: 0.84 C[1,4]: 0.84 C[2,1]: 0.84 C[2,2]: 0.84 C[2,3]: 0.84 C[2,4]: 0.91 C[3,1]: 0.91 C[3,2]: 0.91 C[3,3]: 0.91 C[3,4]: 0.91 
Количество элементов dij>0.1: 12
Измененная матрица A:
1 1 1 7 
2 1 1 1 
2 2 2 2
https://ideone.com/2bF08n
language:
Pascal (fpc 3.0.4)
created:
18 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!