Проблема обхода ошибок Delphi7 portadble

[GrifFrogge]

Нужно было составить программу для вычисления значения функции с обходом всех ошибок:
f=((1/cos^2(X))-cos(x))/(3*sin^2(x)* ln(cos(x)))
не могу понять в чём ошибка код работает но при вводе букв выдаёт
не то что должно.

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Math;

type
  TForm1 = class(TForm)
    lblR: TLabel;
    lblO: TLabel;
    edtR: TEdit;
    btnRashet: TButton;
    btnExit: TButton;
    procedure btnRashetClick(Sender: TObject);

    procedure btnExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.btnExitClick(Sender: TObject);
begin
close
end;
procedure TForm1.btnRashetClick(Sender: TObject);
var
x:real;
F:real;
begin
x:=StrToInt(edtR.Text);
  if (cos(x)=0)  or   ((3*power(2,sin(x))*ln(cos(x)))=0) then
  MessageDlg('error', mtError,[mbCancel], 0)
    else
    begin
      if power(2,cos(x))=0 then
      MessageDlg('error',mtError,[mbCancel], 0)
      else
      begin
      try
        x:=StrToInt(edtR.Text);
        F:=(1/power(2,cos(x)))-cos(x)/(3*power(2,sin(x))*ln(cos(x)));
        lblO.Caption:='ioaao:'+FloatToStr(F);
      except
       on EConvertError do MessageDlg('error', mtError,[mbCancel], 0);
       on EDivByZero do
        begin
         MessageDlg('error', mtError,[mbCancel], 0);
         edtR.Text:='1';
        end;
    end;
end;
end;
end;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

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

power(2,cos(x))

Вы функцию power() используете НЕВЕРНО. параметры местами перепутаны.
Вы вычисляете 2^cos(x)
а Вам нужно cos(x)^2
а это СОВСЕМ разные вещи.

p.s. остальное не смотрел.

[min@y™]

Delphi7 portadble

Кто тебя заставляет юзать D7 в 2018 году? Ты захвачен в плен? Тебе угрожают оружием? Твоих родственников держат в заложниках?!!!

ЧТО ЗА ПРИЧИНА?!

[newerow1989]

Проблема обхода ошибок Delphi7

Обычно делают так:

try
<ваш код>
except
<обработка ошибок (можно пустую строчку оставить)>
end;