Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Модули (дело жизни и смерти)

Автор: -Sergeant- 15.06.2006 21:02

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

Автор: Pangolin 15.06.2006 21:09

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

Автор: Гость 15.06.2006 21:25

Цитата(Pangolin @ 15.06.2006 17:09) *

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

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

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

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

E0*E=8.85*E-12

Автор: Pangolin 15.06.2006 22:49

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

Автор: volvo 15.06.2006 23:25

Цитата(Pangolin @ 15.06.2006 18:49)
А то, что их три и они параллельно, какая будет конечная формула?
А в чем будет заключаться твоя роль в решении задачи? Написать Begin ... End ?

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

Автор: Гость 15.06.2006 23:38

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

Автор: Гость 15.06.2006 23:51

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

Автор: Pangolin 16.06.2006 0:20

Цитата(volvo @ 15.06.2006 20:25) *

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


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

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

Автор: klem4 16.06.2006 1:02

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


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

Автор: -Snake- 17.06.2006 18:05

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

Автор: Гость 17.06.2006 19:46

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

Автор: WishMaster 18.06.2006 1:52

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

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


Прикрепленные файлы
Прикрепленный файл  LAB1.PAS ( 753 байт ) Кол-во скачиваний: 197