[sycva]

задание было такое:


все считалось хорошо, когда u, r, z, k были числами проде 3, 1.5 и тп
но задание требует R=55mod7+4
после ввода этих значений начались проблемы. точнее все сломалось по сути. пытался исправить с помощью констант - не помогло.
помогите, пожалуйста.
я сегодня первый раз вообще чем-то подобным занялся, просидел 6 часов за пк, все понял, практически, кроме того, что делать с числами mov и div

вот мой код

Код:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
lbl1: TLabel;
lbl2: TLabel;
edt1: TEdit;
edt2: TEdit;
btn1: TButton;
lbl3: TLabel;
btn2: TButton;
lbl4: TLabel;
procedure FormCreate(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
x, y : Real;
a, b : string;

implementation

{$R *.dfm}

const

z = '0,512';
k = 3;
U = '43 - 13dir3';
R = '55mod7 + 4';

procedure TForm1.FormCreate(Sender: TObject);
begin
Edt1.Text:='0,512';
Edt2.Text:='3';
lbl1.Caption:='x=';
lbl2.Caption:='y=';
btn1.Caption:='Ïîñ÷èòàòü';
btn2.Caption:='Ïîñ÷èòàòü';
lbl3.Caption:='0';
lbl4.Caption:='0';
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
x:= StrToFloat(edt1.text);
y:= StrToFloat(edt2.text);
a:= (u*x/(r+3)+5)/abs(R-y/k);
b:= (Sin(z+U))/(2,46+a*R) + power(r; 5)/(25*k);
lbl3.Caption:=FloatToStr(a);
lbl4.Caption:=FloatToStr(b);
end;

end.