По нажатию кнопки должно быть произведено действие и выведен результат

@vity · Регистрация: 04.03.2010

Задание в текстовой форме
Пример 20. ЗАДАНИЕ Решатель На форме разместите: - поле ввода - edChislo1 - целое число - поле ввода - eddeistv - символ арифметического действия - поле ввода - edChislo2 - целое число - текстовое поле lbResult - результат операции над числами - кнопку bbRun - выполнение операции По нажатию кнопки должно быть произведено действие и выведен результат. В поля ввода должны вводиться лишь допустимые символы.

Humanoid · 05.04.2010, 11:50

Delphi

procedure TForm1.bbRunClick(Sender: TObject);
Var S : String;
    C1, C2 : Integer;
begin
  S := eddeistv.Text;
  If Length(S)<>1 then S := ' '; // заведомо неверное действие
  C1 := StrToInt(EdChislo1.Text);
  C2 := StrToInt(EdChislo2.Text);
  Case S[1] of
    '+': lbResult.Caption := IntToStr(C1+C2);
    '-': lbResult.Caption := IntToStr(C1-C2);
    '*': lbResult.Caption := IntToStr(C1*C2);
    '/': If C2<>0 then lbResult.Caption := IntToStr(C1 div C2) else lbResult.Caption := 'Деление на нуль';
    else lbResult.Caption := 'Неверное действие';
  End;
end;

Добавлено через 56 секунд
Если результат может быть не только целым, то в 13 строке можно заменить

Delphi

1	IntToStr(C1 div C2)

на

Delphi

1	FloatToStr(C1 / C2)

@vity 0 / 0 / 0 Регистрация: 04.03.2010 Сообщений: 14
		1
	По нажатию кнопки должно быть произведено действие и выведен результат 05.04.2010, 10:56. Просмотров 1616. Ответов 1 Метки нет (Все метки) Задание в текстовой форме Пример 20. ЗАДАНИЕ Решатель На форме разместите: - поле ввода - edChislo1 - целое число - поле ввода - eddeistv - символ арифметического действия - поле ввода - edChislo2 - целое число - текстовое поле lbResult - результат операции над числами - кнопку bbRun - выполнение операции По нажатию кнопки должно быть произведено действие и выведен результат. В поля ввода должны вводиться лишь допустимые символы. 0

Опции темы

По нажатию кнопки должно быть произведено действие и выведен результат

Решение