Сделайте прибавление, на форму которого помещены составляющие:Button 1 шт.
Создайте прибавленье, на форму которого помещены составляющие:
Button 1 шт.
Label 1 шт.
Edit 2 шт.
Напишите обработчик действия OnClick компонента Button, в котором происходит дробленье числа, записанного в первом компоненте Edit, на число, записанное во втором. В компоненте Label отображается результат этого дела. В случае дробленья на ноль в компоненте Label обязано быть отображено подходящее известие об ошибке.
Задать свой вопрос2 ответа
Вера Стружко
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.
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.
Ангелина Курамонова
http://www.fayloobmennik.net/3387997 в архиве
Стельмащук
Виталька
Хоть бы язык уточняли... Ну, допустим, Делфи:
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 := '';
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 := '';
Кирилл Плукс
EDivByZero работает только с integer
Агата
Обидно
Вадим Ободынский
х)
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Облако тегов