Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
fialka1617
0 / 0 / 1
Регистрация: 17.10.2010
Сообщений: 21
#1

Модули

15.02.2011, 20:20. Просмотров 286. Ответов 0
Метки нет (Все метки)

подскажите как написать эту программу через модули. Заранее спасибо))

Решить с помощью подпрограмм с параметрами процедурного типа:
С погрешностью 0.001 вычислить по методу прямоугольников

Модули


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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
program Method_Prm;
const
   e = 0.001;
var integ,summa:real;
 type fun=function (m:real):real ;
var z1,z2:real;
function int(a,b:real;f:fun):real;
var
   i, n: word;
   j1, j2, h, s, x: real;
begin
    n:= 2;
    j1:= 0;
    repeat
       j2:= j1;
       h:= (b - a)/n;
       x:= a;
       s:= 0;
       for  i:= 1  to n  do  begin
          s:= s + f(x);
          x:= x + h;
        end;
        j1:= s*h;
        n:= n*2
     until   abs(j1 - j2)<e;
     int:=j1;
end;
function f1(z:real):real; far;
begin f1:=cos(z); end;
{$F+}
function f2(g:real):real;
begin f2:=sin(g); end;
{$F-}
begin
z1:=int(0,1,f1);writeln(abs(z1):7:6);
z2:=int(1,pi,f2);writeln(abs(z2):7:6);
writeln(abs(z1)+abs(z2):7:6);
integ:=-sin(1)+sin(0)+cos(pi)-cos(1);
writeln('tochnoe: ',abs(integ):7:7);
readln;
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.02.2011, 20:20
Ответы с готовыми решениями:

Модули
Процедурный тип и относящиеся к нему подпрограммы должны быть описаны в отдельном модуле. В другом...

Модули
Помогите подправить задачу пожалуйста. Надо сделать так, чтобы в одном модуле были описаны ...

Модули (error 59)
Unit Mod_Rab; Interface Uses mod_vv; PROCEDURE Sort_obmen; ...

Модули: Странная ошибка
Суть задачи:2. Написать подпрограмму для замены в матрице A(10,10) всех элементов, стоящих на...

Разбить программу на модули
Ребят, как программку вот єту разбить на модули? а то что то не пойму) uses Crt,Graph; const ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.02.2011, 20:20

Разделить программу на модули
Есть программа. Помогите ее разбить и часть запихать в модуль, что бы все работало, а то у меня не...

Разбить програмку на модули
текст программы разбить на смысловые блоки таким образом, чтобы каждый блок можно было оформить в...

модули в Turbo Pascal
Пожалуйста,если не трудно помогите решить две задачи на модули: №1 Y=1/√x можно вычислить по...


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

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

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