Сделайте прибавление, на форму которого помещены составляющие: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
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов