1.
4.
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:real;
begin
if length(Edit1.Text)=0 then
begin
showmessage(' "="');
exit;
end;
if length(Edit2.Text)=0 then
begin
showmessage(' "="');
exit;
end;
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=sqrt(a*a+b*b);
label1.caption:=floattostrf(c,fffixed,10,2);
end;
procedure TForm1.edit1keypress(Sender: TObject;var key:char);
begin
case key of
'0'..'9',#8,#162,#163,#2:;
#13:edit2.setfocus;
else key:=chr(0);
end;
end;
procedure TForm1.edit2keypress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8,#162,#163,#2:;
#13:;
else key:=chr(0);
end;
end;
end.
9. . .
procedure TForm1.Button1Click(Sender: TObject);
var a,b,h,s,p:real;
begin
if length(form1.Edit1.Text)=0 then
begin
showmessage(' ""');
exit;
end;
if length(form1.Edit2.Text)=0 then
begin
showmessage(' "b"');
exit;
end;
if length(form1.Edit3.Text)=0 then
begin
showmessage(' "h"');
exit;
end;
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
h:=strtofloat(edit3.text);
s:=(a*b)*h/2;
p:=a+b+2*h;
label4.Caption:=floattostr(s);
label5.Caption:=floattostr(p);
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8:;
#13:edit2.SetFocus;
else key:=chr(0);
end;
end;
procedure TForm1.Edit2keypress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8:;
#13:edit3.SetFocus;
else key:=chr(0);
end;
end;
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8:;
#13:button1.SetFocus;
else key:=chr(0);
end;
end;
end.
2.
4. . , , .
procedure TForm1.Button1Click(Sender: TObject);
var a,b:real;
begin
if length(edit1.Text)=0 then
begin
showmessage(' ""');
exit;
end;
if length(edit2.Text)=0 then
begin
showmessage(' ""');
exit;
end;
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
if a>b then label1.caption:=floattostr(a)
else label1.caption:=floattostr(a)+' '+floattostr(b);
end;
procedure TForm1.edit1keypress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8:;
#13:edit2.setfocus;
else key:=chr(0);
end;
end;
procedure TForm1.edit2keypress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8:;
#13:Button1.setfocus;
else key:=chr(0);
|
|
end;
end;
end.
9B. , , , . .
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:real;
begin
if length(edit1.Text)=0 then
begin
showmessage(' ""');
exit;
end;
if length(edit2.Text)=0 then
begin
showmessage(' ""');
exit;
end;
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
if radiobutton1.Checked // 1)
then
c:=a+b;
if radiobutton2.Checked // 2)
then
c:=a-b;
if radiobutton3.Checked // 3)
then
c:=a*b;
if radiobutton4.Checked then // 4)
begin
if (b=0) then begin
showmessage(' ');
exit;
end
else
c:=a/b;
end;
label7.Caption:=floattostrf(c,fffixed,10,2);
end;
procedure TForm1.edit1keypress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8:;
#13: edit2.SetFocus;
else key:=chr(0);
end;
end;
procedure TForm1.edit2keypress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8:;
#13: button1.SetFocus;
else key:=chr(0);
end;
end;
end.