Модули (дело жизни и смерти) Опции

[-Sergeant-]

1. Составить подпрограмму для расчёта квадратного корня из суммы положительных элементов массива X(m,n), используя модуль.
2. Написать программу решения следующей задачи, используя модуль: Ёмкость цилиндрического конденсатора с длиной l и радиусами внутреннего и внешнего цилиндров, равными r1 и r2, вычисляется по формуле . Найти общую ёмкость трёх параллельно соединённых цилиндрических конденсаторов, если для каждого из них известны значения l, r1, r2, a =8.85*10-12

[Гость]

И мне можно?
Написать программу решения следующей задачи, используя модуль: Для каждой из матриц A(N,N) и B(M,M) найти целочисленные элементы верхней треугольной матрицы.

uses CRT;
type MAS = array [1..50, 1..50] of real;
var  A, B: MAS;
procedure RMAS(N: integer; var A: MAS);
var I, J: integer;
begin
     for I:=1 to N do
         begin
              for J:=1 to N do
                  begin
                       A[I, J]:=Random(50)/5;
                       write(A[I, J]:6:2,' ');
                  end;
              writeln;
         end;
     writeln;
end;
procedure CEL(A: MAS; N: integer);
var I, J: integer;
begin
     for I:=1 to N do
         for J:=I+1 to N do
             begin
                  if A[I, J]=int(A[I, J]) then
                     write(A[I, J]:6:2,' ');
             end;
end;
begin
     ClrScr;
     Randomize;
     RMAS(5, A);
     RMAS(6, B);
     CEL(A, 5);
     CEL(B, 6);
     readkey;
end.