Создайте приложение, на форму которого помещены компоненты: Button — 1 шт. Label — 1 шт. Edit — 2 шт. Напишите обработчик события OnClick компонента Button, в котором происходит деление числа, записанного в первом компон...
Создайте приложение, на форму которого помещены компоненты: Button — 1 шт. Label — 1 шт. Edit — 2 шт. Напишите обработчик события OnClick компонента Button, в котором происходит деление числа, записанного в первом компоненте Edit, на число, записанное во втором. В компоненте Label отображается результат этого отношения. В случае деления на ноль в компоненте Label должно быть отображено соответствующее сообщение об ошибке.
Гость
Ответ(ы) на вопрос:
ГостьХоть бы язык уточняли... Ну, допустим, Делфи:
try
label1.caption := floattostr(strtofloat(edit1.Text) / strtofloat(edit2.text));
except
on EDivByZero do showmessage('Devide by 0');
else showmessage('Error');
end;
edit1.Text := '';
edit2.Text := '';
Гостьunit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel;
procedure Button1Click(Sender: TObject);
private { Private declarations }
public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
try
label1.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
except
On E : EZeroDivide do
ShowMessage('Деление на 0 запрещено : ');
end;
end;
end.
Не нашли ответ?
Похожие вопросы