Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
fialka1617
0 / 0 / 0
Регистрация: 17.10.2010
Сообщений: 21
#1

Модули - Turbo Pascal

15.02.2011, 20:20. Просмотров 270. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Модули (Turbo Pascal):

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

Модули (error 59) - Turbo Pascal
Unit Mod_Rab; Interface Uses mod_vv; PROCEDURE Sort_obmen; {Процедура сортировки с обменом} ...

Нужны модули *.TPU - Turbo Pascal
Где можно скачать модули *.TPU ?

Модули: транспонировать матрицу - Turbo Pascal
Нужна помощь в программе с модулями.Программа должна транспонировать матрицу. В mod1 пишет неизвестный идентификатор р, не могу понять по...

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

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

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

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

как подключать модули ???? - Turbo Pascal
Набираю программу и Паскаль в графическом режиме не работает? я слышал там надо что то поменять в настройках Паскаля но я не знаю что ...

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

Разбить программу на модули - Turbo Pascal
Ребят, как программку вот єту разбить на модули? а то что то не пойму) uses Crt,Graph; const l=70;{„«Ё***} h=23;{‚лб®в*} ...


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

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

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