ошибка во внешней процедуре

@Genbl4 · Регистрация: 20.04.2013

Author24 — интернет-сервис помощи студентам

Нужно для данной программы написать внешнюю процедуру или функцию ( программа вычисляет сумму ряда с требуемой точностью (|x|<1 и e вводятся): ln(1+x)= x-x^2/2 + x^3/3 - x^4/4 ...)) :

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
    x,e,m, f: Real;
begin
  if (Length(Edit1.Text) = 0) or
     (Length(Edit2.Text) = 0)
    then Label2.Caption := ''
    else begin
      x := StrToFloat(Edit1.Text);
      e := StrToFloat(Edit2.Text);
        f := ln(1 + x);
          i := 1;
          m := 0;
          while (abs(f - m) > e)  do begin
            m := m + (Power(-1, i + 1)*power(x,(i)))/i;
            i := i + 1;
          end;//while
       Label2.Caption := FloatToStr(m);
    end;
end;

пишу такую процедуру :

Delphi

procedure Summa_Ryada ;
var i: Integer;
    x,e,m, f: Real;
    begin
      x := StrToFloat(Form1.Edit1.Text);
      e := StrToFloat(Form1.Edit2.Text);
        f := ln(1 + x);
          i := 1;
          m := 0;
          while (abs(f - m) > e)  do begin
            m := m + (Power(-1, i + 1)*power(x,(i)))/i;
            i := i + 1;
          end;//while
         Form1.Label2.Caption := FloatToStr(m);
    end;

в строке " m := m + (Power(-1, i + 1)*power(x,(i)))/i; " выдает ошибку " [Error] Unit1.pas(40): Undeclared identifier: 'Power'". Причем если не создавать внешнюю процедуру программа работает правильно. что не так я делаю?

@FIL · 28.04.2013, 10:39

Модуль Math подключен?

@Genbl4 · 28.04.2013, 10:42 **[ТС]**

эмм, не знаю))) как это проверить и исправить если не подключен?

@volvo · 28.04.2013, 10:51

Сообщение от gorfil

Модуль Math подключен?

Если б он не был подключен - программа не компилировалась бы и без выноса вычислений в отдельную процедуру. Но самое интересное - это то, что Power тут вообще не нужен, без него прекрасно вычисляется сумма ряда.

@Genbl4 · 28.04.2013, 10:52 **[ТС]**

Сообщение от UI

Если б он не был подключен - программа не компилировалась бы и без выноса вычислений в отдельную процедуру. Но самое интересное - это то, что Power тут вообще не нужен, без него прекрасно вычисляется сумма ряда.

почему не нужен, если у нас х возводится в степень?

@FIL · 28.04.2013, 10:57

Сообщение от UI

Если б он не был подключен

Под внешней процедурой может подразумеваться и вынос ее в отдельный модуль.

@volvo · 28.04.2013, 10:59

Сообщение от Genbl4

почему не нужен, если у нас х возводится в степень?

Потому что не нужен. Возведение в степень - это последовательное домножение числителя на X, правда? Вот и присваивай числитель изначально 1, и домножай на X на каждой итерации. И еще на (-1), чтобы и от второго Power-а избавиться:

Delphi

num := -1; s := 0;
i := 1;
repeat
  num := - num * X;
  s := s + num / i;
  inc(i);
until abs(num / i) < e;

И зачем нужно было возведение в степень?

@Genbl4 · 28.04.2013, 11:21 **[ТС]**

Сообщение от UI

И зачем нужно было возведение в степень?

возведение нужно было для того что бы знак чередовался "-" и "+". дело еще в том, что мне нужно написать процедуру для ГОТОВОЙ программы, т.е. в том виде в котором у меня есть, просто вынести ее во внешнюю и все.

При подключении модуля math ошибка исчезает, но появляется новая, в конце внешней процедуры делфи просит поставить "." ('.' expected but ';' found), если ее поставить то появляется опять ошибка "[Warning] Unit1.pas(46): Text after final 'END.' - ignored by compiler".

@FIL · 28.04.2013, 11:49

Это не ошибка, а предупреждение о том, что любой текст после "END." компилятором игнорируется.

@volvo · 28.04.2013, 12:21

Сообщение от Genbl4

т.е. в том виде в котором у меня есть, просто вынести ее во внешнюю и все

То есть, из одной плохой программы сделать вторую? Спасибо, таких программ и так полно, не надо плодить их больше и больше.

@Genbl4 · 28.04.2013, 13:13 **[ТС]**

Сообщение от gorfil

Это не ошибка, а предупреждение о том, что любой текст после "END." компилятором игнорируется.

это понятно, почему тогда если поставить ";" делфи просит поставить ".", а поставив "." игнорирует весь текст после запятой?? как это исправить?

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure Summa_Ryada(Sender: TObject);
var i: Integer;
    x,e,m, f: Real;
    begin
      x := StrToFloat(Form1.Edit1.Text);
      e := StrToFloat(Form1.Edit2.Text);
        f := ln(1 + x);
          i := 1;
          m := 0;
          while (abs(f - m) > e)  do begin
            m := m + (Power(-1, i + 1)*power(x,(i)))/i;
            i := i + 1;
          end;//while
         Form1.Label2.Caption := FloatToStr(m);
    end;
 
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    if (Length(Edit1.Text) = 0) or
     (Length(Edit2.Text) = 0)
    then Form1.Label2.Caption := '' else begin
 
    Summa_Ryada;
     end;
end;
end;
end.

@FIL · 28.04.2013, 13:19

Потому что у тебя с количеством Ендов напутано.

@Genbl4 · 28.04.2013, 13:24 **[ТС]**

Сообщение от gorfil

Потому что у тебя с количеством Ендов напутано.

где, в " procedure TForm1.Button1Click(Sender: TObject);" ?? там да, вижу, только дело в том, что делфи просит поставить точку после последнего end в " procedure Summa_Ryada;" и дальше не идет, а поставив точку пишет что все после этого энда игнорируется и ничего опять же не происходит

@ProRockX · 28.04.2013, 13:47

Учись писать структурировано, а то будешь всё время с такими ошибками встречаться (например, закрывающий end должен находиться под открывающим begin'ом)

Вот немного поправил ошибки с end'ами, кстати посмотри, как нужно объявлять процедуру:

Delphi

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Summa_Ryada;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure Tform1.Summa_Ryada;
var i: Integer;
    x,e,m, f: Real;
    begin
      x := StrToFloat(Form1.Edit1.Text);
      e := StrToFloat(Form1.Edit2.Text);
        f := ln(1 + x);
          i := 1;
          m := 0;
          while (abs(f - m) > e)  do
            begin
              m := m + (Power(-1, i + 1)*power(x,(i)))/i;
              i := i + 1;
            end;//while
         Form1.Label2.Caption := FloatToStr(m);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    if (Length(Edit1.Text) = 0) or (Length(Edit2.Text) = 0) then
      Form1.Label2.Caption := ''
    else
      begin
        Summa_Ryada;
      end;
end;
 
 
end.

Только код не откомпилится, останется ошибка связанная с power, я не понял для чего ты его используешь?

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	28.04.2013, 10:39	2
	Модуль Math подключен? 0

@Genbl4 0 / 0 / 0 Регистрация: 20.04.2013 Сообщений: 48
	28.04.2013, 10:42 [ТС]	3
	эмм, не знаю))) как это проверить и исправить если не подключен? 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	28.04.2013, 10:51	4
	Сообщение от gorfil Модуль Math подключен? Если б он не был подключен - программа не компилировалась бы и без выноса вычислений в отдельную процедуру. Но самое интересное - это то, что Power тут вообще не нужен, без него прекрасно вычисляется сумма ряда. 0

@Genbl4 0 / 0 / 0 Регистрация: 20.04.2013 Сообщений: 48
	28.04.2013, 10:52 [ТС]	5
	Сообщение от UI Если б он не был подключен - программа не компилировалась бы и без выноса вычислений в отдельную процедуру. Но самое интересное - это то, что Power тут вообще не нужен, без него прекрасно вычисляется сумма ряда. почему не нужен, если у нас х возводится в степень? 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	28.04.2013, 10:57	6
	Сообщение от UI Если б он не был подключен Под внешней процедурой может подразумеваться и вынос ее в отдельный модуль. 0

@Genbl4 0 / 0 / 0 Регистрация: 20.04.2013 Сообщений: 48
	28.04.2013, 11:21 [ТС]	8
	Сообщение от UI И зачем нужно было возведение в степень? возведение нужно было для того что бы знак чередовался "-" и "+". дело еще в том, что мне нужно написать процедуру для ГОТОВОЙ программы, т.е. в том виде в котором у меня есть, просто вынести ее во внешнюю и все. При подключении модуля math ошибка исчезает, но появляется новая, в конце внешней процедуры делфи просит поставить "." ('.' expected but ';' found), если ее поставить то появляется опять ошибка "[Warning] Unit1.pas(46): Text after final 'END.' - ignored by compiler". 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	28.04.2013, 11:49	9
	Это не ошибка, а предупреждение о том, что любой текст после "END." компилятором игнорируется. 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	28.04.2013, 12:21	10
	Сообщение от Genbl4 т.е. в том виде в котором у меня есть, просто вынести ее во внешнюю и все То есть, из одной плохой программы сделать вторую? Спасибо, таких программ и так полно, не надо плодить их больше и больше. 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	28.04.2013, 13:19	12
	Потому что у тебя с количеством Ендов напутано. 0

@Genbl4 0 / 0 / 0 Регистрация: 20.04.2013 Сообщений: 48
	28.04.2013, 13:24 [ТС]	13
	Сообщение от gorfil Потому что у тебя с количеством Ендов напутано. где, в " procedure TForm1.Button1Click(Sender: TObject);" ?? там да, вижу, только дело в том, что делфи просит поставить точку после последнего end в " procedure Summa_Ryada;" и дальше не идет, а поставив точку пишет что все после этого энда игнорируется и ничего опять же не происходит 0

	28.04.2013, 13:47