Арифметические операции над двумя числами

@aidar123 · Регистрация: 06.01.2010

Требуется вывести на экран два произвольных числа, и произвести с их помощью все возможные операции, т.е деление, умножение, сумму и разность, через оператор CASE.

@BlackvsEvgen · 10.01.2010, 15:28

Впринципе очень легко, могу вам набросать.

Сделал через ComboBox

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
 
 
    { Public declarations }
  end;
 
var
   Form1: TForm1;
   a, b, z : real;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
a := random(100);
b := random(100);
Label1.Caption := FloatToStr(a);
Label2.Caption := FloatToStr(b);
 
case ComboBox1.ItemIndex of
0: z := a + b;
1: z := a - b;
2: z := a * b;
3: try
    z := a / b;
   except
    ShowMessage('На ноль делить не льзя');
 end;
end;
Label3.Caption:= FloatToStr(a) +'  '+ ComboBox1.Items[ComboBox1.ItemIndex]
+'  '+FloatToStr(b)+'  '+'='+'  '+FloatToStr(z);
end;
 
 
end.

@aidar123 0 / 0 / 0 Регистрация: 06.01.2010 Сообщений: 7
		1
	Арифметические операции над двумя числами 10.01.2010, 15:23. Показов 2669. Ответов 1 Метки нет (Все метки) Требуется вывести на экран два произвольных числа, и произвести с их помощью все возможные операции, т.е деление, умножение, сумму и разность, через оператор CASE. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Арифметические операции над двумя числами

Решение