Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 14.12.2011
Сообщений: 9
1

принципом модульности

13.01.2012, 14:32. Показов 1353. Ответов 1
Метки нет (Все метки)

помогите пожайлуста)
 Комментарий модератора 
Прикрепляйте изображения к теме, нечего гонять по ссылкам.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Миниатюры
принципом модульности  
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2012, 14:32
Ответы с готовыми решениями:

Выполнение алгоритмов и программ в соответствии с принципом модульности.
Помогите. Не каких решений нет. Задание : Для заданной матрицы найти наибольший элемент М,...

Составление, ввод, отладка и выполнение алгоритмов в соответствии с принципом модульности
Для заданной матрицы найти столбцы, для которых среднее арифметическое их элементов имеет...

Составление, ввод, отладка и выполнение алгоритмов и программ в соответствии с принципом модульности
Найти нормы матрицы A размера 3x5 и матрицы B размера 4x4. Использовать модуль вычисления нормы...

Принцип модульности в программе созданной на VB
Слышал, что можно как то организовать модульность программ. Что можно подключать и отключать...

1
Модератор
64058 / 47473 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
13.01.2012, 15:00 2
Лучший ответ Сообщение было отмечено chuvados как решение

Решение

Текст модуля.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
unit Integral2;
interface
type func=function(x:real):real;
function F1(x:real):real;
function F2(x:real):real;
implementation
function F1(x:real):real;
begin
F1:=3*x-sin(2*x);
end;
function F2(x:real):real;
begin
F2:=exp(-2*x)-2*x-1;
end;
function Sum(a,b:real;n:integer;f:func):real;
var k:integer;
    h,s:real;
begin
h:=(b-a)/n;
s:=0;
for k:=0 to n-1 do
s:=s+f(a+k*h);
Sum:=(b-a)*s/n;
end;
end.
Текст программы
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses Integral2;
var q,q1,q2:real;
    n:integer;
begin
write('Количество разбиений n=');
read(n);
q1:=Sum(pi,2*pi,n,F1);
writeln('q1=',q1:0:3);
q2:=Sum(0,pi,n,F2);
writeln('q2=',q2:0:3);
q:=q1-q2;
write('Q=',q:0:3);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.01.2012, 15:00

Задача на решение принципом Дирихле
Добрый вечер. Прошу помочь мне в решении одной задачи по принципу Дирихле. Другие решить сама...

Что называется NULL-принципом?
Очень подозреваю, что знаю сам принцип и его плюсы. Но уверенно связать свои знания с этим...

Дизайн в соответствии с принципом единственной ответственности
Учу SOLID. Вопрос касательно первого принципа, но также буду рад любым другим поправкам. ...

Написать программу с принципом работы, как в банкомате.
Использую перечень номиналов ассигнаций (5000,1000,500,100,50,10) запрограммировать жадный алгоритм...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.