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

для второй задачи формулы есть?

Попробую описать это так:

C:= 2*pi*E0*E*(1/ln(r1/r2))

Можно задать известные l, r1, r2

E0*E=8.85*E-12

А то, что их три и они параллельно, какая будет конечная формула?

А в чем будет заключаться твоя роль в решении задачи? Написать Begin ... End ?

Для конденсаторов, соединенных параллельно общая емкость вычисляется по формуле:
Нажмите для просмотра прикрепленного файла

В данном случае формула електроемкоть С вычисляется по формуле, которую я привел выше, попробую прикрепить файл ворда

Тяжеловат файл Хотя это и не важно - формула почти школьная, сложность в самой программе - в модуле ;)

Я вообще-то зашел на форум Паскаля, а не физики...

Че гость хотел? Модуль? вот с модулем бы и помог...

Pangolin, помочь и сделать работу _полностью_ это разные вещи, гостю дали формулы нужные для расчетов. Если он не знает как работать с модулями ... об этом написано практически в любом учебнике по паскалю, если нет учебника, то на форуме есть поиск, в котором нужно всего-лишь набрать слово 'модуль'.

И мне можно?
Написать программу решения следующей задачи, используя модуль: Для каждой из матриц 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. 

ведь нужно создать модуль???
тогда это делается так
unit imya_modulya;
interfase{описание интерфейса}
function 1(<передаваемые параметры>):<возращаемое значение>
...........................
function n(<передаваемые параметры>):<возращаемое значение>
implementation{раздел обьявления }
function 1(<передаваемые параметры>):<возращаемое значение>
begin
...................
end;
....................................................
function n(<передаваемые параметры>):<возращаемое значение>
begin
...................
end;

end.
Ну наверно я на песал ни по руски поетому даюпример модуля