IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Модули (дело жизни и смерти)
сообщение
Сообщение #1


Гость






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


Новичок
*

Группа: Пользователи
Сообщений: 24
Пол: Мужской

Репутация: -  0  +


для второй задачи формулы есть?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






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

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

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

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

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

E0*E=8.85*E-12
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 24
Пол: Мужской

Репутация: -  0  +


А то, что их три и они параллельно, какая будет конечная формула?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






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

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


Гость






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


Гость






Тяжеловат файл smile.gif Хотя это и не важно - формула почти школьная, сложность в самой программе - в модуле ;)
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 24
Пол: Мужской

Репутация: -  0  +


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

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


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

Че гость хотел? Модуль? вот с модулем бы и помог...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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


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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Гость






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


Гость






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


Новичок
*

Группа: Пользователи
Сообщений: 47
Пол: Мужской
Реальное имя: Юрий

Репутация: -  0  +


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

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


Прикрепленные файлы
Прикрепленный файл  LAB1.PAS ( 753 байт ) Кол-во скачиваний: 84
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 19.10.2017 3:23
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"