ÒMain Menu æәíå
TÐopur Menu êîìïîíåíòòåð³í
ïàéäàëàíó
procedure TForm1.N1Click(Sender: TObject);
var c, a, b: real;
begin
a:=StrToFloat(Num1.Text);
b:=StrToFloat (Num2.Text);
c:=A+b;
Rez.Text:=FloatToStr(c);
end;
procedure TForm1.N2Click(Sender: TObject);
var a,b,c: real;
begin
a:=StrToFloat(Num1.Text);
b:=StrToFloat (Num2.Text);
if
b<>0 then
begin
c:=A/b;
Rez.Text:=FloatToStr(c);
end
else
begin
ShowMessage
(' Ñàíäû
0-ãå áөëóãå áîëìàéäû!');
Num2.Text:='';
end;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
close;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
ShowMessage('Åñåïòåã³ø');
end;
end.