0 / 0 / 1
Регистрация: 24.02.2012
Сообщений: 15
1

Библиотечный модуль

02.06.2012, 01:22. Показов 318. Ответов 0
Метки нет (Все метки)

Ребят, помогите составить библиотечный модуль программы, написанной ниже:

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
program LabWork8;
uses crt;
type
    func=function(x:real):real;
 
    res = record
        max    :double;
        x      :double;
    end;
 
var a,b,h:real;
    result:res;
 
function f1 (x:real):real;far;
begin
     f1:=exp(-x)*cos(-x)*cos(-x)-1;
end;
 
function f2 (x:real):real;far;
begin
     if (x=-1)then f2:=0 else f2:=x*ln(abs(x+1));
end;
 
 
{поиск максимуму в двух функциях}
procedure  maxi(a,b,h:real;f:func;var out:res);far;
var x,max,y:real;
    fres:res;
begin
     x:=a;
 
 
     {максимум пусть в точке А}
     max := f(a);
     out.max:=max;
     out.x:=x;
     {ищем настоящий максимум}
     while(x<=b) do begin
        y:=f(x);
 
        if(max<y) then begin
                  max:=y;
                  out.max:=max;
                  out.x:=x;
        end;
        x:=x+h;
     end;
end;
 
begin
     clrscr;
     write('Введите a  :');
     readln(a);
     write('Введите b  :');
     readln(b);
     write('Введите шаг:');
     readln(h);
 
     if ( (a>b) or (h<=0) ) then begin
        writeln('Недопустимые границы или шаг!!!');
        writeln('Нажмите ENTER для выхода ...');
        readln;
        exit;
     end;
 
 
     maxi(a,b,h,f1,result);
     writeln('Максимальное значение функции y1=',result.max:8:4,' при x=',result.x:8:4);
 
     maxi(a,b,h,f2,result);
     writeln('Максимальное значение функции y2: ',result.max:8:4,' при x=',result.x:8:4);
 
     writeln('Нажмите ENTER для выхода ...');
     readln;
end.
Добавлено через 58 минут
закрыто
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2012, 01:22
Ответы с готовыми решениями:

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

Разработать библиотечный модуль
разработать библиотечный модуль из этой программы(находит мин элмент одномерного массива): Type ...

Разработать библиотечный модуль
Разработать библиотечный модуль из ранее созданных программ в лабораторных работах. Составить...

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

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.06.2012, 01:22

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

Разработать библиотечный модуль
Разработать библиотечный модуль, содержащий следующие подпрограммы (процедуры или функции) для...

Составить библиотечный модуль из программы
Собственно вот прога uses crt; const n=3; var a:array of integer; maxar:array of...

Разработать библиотечный модуль из данной программы
Разработать библиотечный модуль из var a:arrayof integer; i,j,n,k:integer; procedure...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru