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

Подключение модуля функции

13.11.2016, 16:04. Показов 1771. Ответов 11
Метки нет (Все метки)

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

Код программы:
Кликните здесь для просмотра всего текста
Delphi
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
76
77
78
79
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Button1: TButton;
    RadioGroup1: TRadioGroup;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
implementation
{$R *.dfm}
 
 
procedure TForm1.Button1Click(Sender: TObject);
const
  xn = 0.1;
  xk = 0.5;
  h = 0.1;
  e = 0.0001;
var
  x, y, t, s: real;
  n: Integer;
begin
  Memo1.Clear;
  Memo1.Lines.Add('Результаты ст. гр. 5В011100 Гулов Е.В.');
  Memo1.Lines.Add('xn=0.1');
  Memo1.Lines.Add('xk=0.5');
  Memo1.Lines.Add('h=0.1');
  Memo1.Lines.Add('e=0.0001');
  x := xn;
  while x <= xk do
  begin
    n := 0;
    t := x;
    s := t;
    while Abs(t) / (2 * n + 1) > e do
    begin
      n := n + 1;
      t := -t * x * x;
      s := s + t / (2 * n + 1);
    end;
    y := arctan(x);
    Memo1.Lines.Add('При х=' + formatfloat('0.0', x) + ' сумма=' + formatfloat
        ('0.0000', s) + ' y=' + formatfloat('0.0000', y) + ' N=' + inttostr
        (n + 1));
    x := x + h;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
RadioGroup1.ItemIndex:=0;
end;
 
end.


Код модуля:
Кликните здесь для просмотра всего текста
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
unit Unit2;
interface
uses StdCtrls, SysUtils;
   Type
       fun = function(x : extended):extended; // Объявление типа функция
             {Расчет таблицы функции f (табуляция функции)}
  procedure Tabl(f:fun;xn,xk:extended; m: word; Memo1 : TMemo);
implementation
  procedure Tabl;
     var x,y,h: extended;
         i : integer;
    begin
    x:=xn;  h:=(xn-xk)/m;
for i:=1 to m+1 do begin
     y:=f(x);
    Mem1.Lines.Add(' x='+FloatToStrf(x,fffixed,8,3)+
                                ' y='+FloatToStrf(y,fffixed,8,3));
        x:=x+h;
                               end;
     end;
end.


Сам архив.
Кликните здесь для просмотра всего текста
0

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

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.11.2016, 16:04
Ответы с готовыми решениями:

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

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

Подключение модуля.
добрый день. возникла потребность подключить модуль TDBF, установил, все ОК, но возникла проблема,...

Правильное подключение глобального модуля
Здравствуйте! Делаю медиаплеер. unit Modul_1; interface uses Windows, Messages, SysUtils,...

11
3744 / 3191 / 841
Регистрация: 29.08.2013
Сообщений: 21,100
Записей в блоге: 2
13.11.2016, 16:46 2
в раздел Uses первого модуля пропишите Название второго модуля
0
0 / 0 / 0
Регистрация: 07.11.2016
Сообщений: 34
13.11.2016, 18:11  [ТС] 3
писал уже ошибку выдаёт
0
3744 / 3191 / 841
Регистрация: 29.08.2013
Сообщений: 21,100
Записей в блоге: 2
13.11.2016, 18:22 4
значит не так писал
0
0 / 0 / 0
Регистрация: 07.11.2016
Сообщений: 34
13.11.2016, 18:42  [ТС] 5
посмотри пожалуйста, может модуль или сам код программы не правильно прописаны.
0
3744 / 3191 / 841
Регистрация: 29.08.2013
Сообщений: 21,100
Записей в блоге: 2
13.11.2016, 19:30 6
я посмотрел и не увидел
Цитата Сообщение от qwertehok Посмотреть сообщение
в раздел Uses первого модуля пропишите Название второго модуля
0
0 / 0 / 0
Регистрация: 07.11.2016
Сообщений: 34
13.11.2016, 20:29  [ТС] 7
В этом коде что выложен нету, у себя наа пк пробывал, и не как ошибку выдаёт и всё
0
3744 / 3191 / 841
Регистрация: 29.08.2013
Сообщений: 21,100
Записей в блоге: 2
13.11.2016, 23:13 8
ошибку вы специально не показываете? думаете я телепат?
может еще код покажите?
0
0 / 0 / 0
Регистрация: 07.11.2016
Сообщений: 34
14.11.2016, 09:00  [ТС] 9
код программный в начале, там же и архив есть программы.
ошибка вот
Подключение модуля функции
0
Mental handicap
1245 / 623 / 171
Регистрация: 24.11.2015
Сообщений: 2,429
14.11.2016, 11:20 10
Tupiy, Вы добавили модуль к проекту? В меню Project -> Add to Project ? Затем надо его включить в список используемых модулей (uses).
0
0 / 0 / 0
Регистрация: 07.11.2016
Сообщений: 34
14.11.2016, 12:38  [ТС] 11
вроде вписал всё норм, а как прописать в радиогрупп функции
Кликните здесь для просмотра всего текста
Подключение модуля функции
0
0 / 0 / 0
Регистрация: 07.11.2016
Сообщений: 34
15.11.2016, 10:31  [ТС] 12
ребят помогите пожалуйста...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.11.2016, 10:31

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

Не отображаются jpg файлы в FileListBox - не смотря на подключение модуля jpeg в Uses
В маске FileListBox - стоит *.jpg, *.jpeg - но если во время выполнения программы, зайти в...

Вызвать из динамически созданного модуля процедуру создавшего модуля
Всем привет. Не знал как сформулировать тему - поэтому не бейте меня. Такая ситуация: Есть...

Шифр Цезаря. Подключение функции
Добрый день. Прошу вас помочь с исполнительной кнопкой В программе два memo в memo1 вводится...

В начало каждого модуля должен быть помещен комментарий, описывающий функции данного модуля
Очень нужна ваша помощь. Пожалуйста, кто знает, помогите с этой задачей. Задача на тему:...


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

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

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