Ввести два числа. Меньшее заменить полусуммой, а большее – удвоенным произведением этих чисел

@dunhill55 · Регистрация: 05.05.2011

Author24 — интернет-сервис помощи студентам

Ввести два числа. Меньшее заменить полусуммой, а большее – удвоенным произведением этих чисел.

@Arcor · 05.05.2011, 14:16

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c: Extended;
begin
  a := StrToFloat(Edit1.Text);
  b := StrToFloat(Edit2.Text);
 
  if a > b then
    begin
      c := b / 2;
      a := a*b*2;
      Label1.Caption := FloatToStr(a);
      Label2.Caption := FloatToStr(c)
    end
  else if a < b then
    begin
      c := a / 2;
      b := b*a*2;
      Label1.Caption := FloatToStr(c);
      Label2.Caption := FloatToStr(b)
    end
 
  else if a = b then
    ShowMessage('Невозможно определить большее или меньшее, числа равны')
  else
    ShowMessage('Неизвестная ошибка...');
end;

вот

Добавлено через 14 минут

Сообщение от dunhill55

Меньшее заменить полусуммой

кстати полусуммой чего? числа меньшего как я сделал или полусуммой двух введенных чисел?

если так - то нужно написать (a+b) /2

@dunhill55 0 / 0 / 0 Регистрация: 05.05.2011 Сообщений: 11
		1
	Ввести два числа. Меньшее заменить полусуммой, а большее – удвоенным произведением этих чисел 05.05.2011, 13:38. Показов 5519. Ответов 1 Метки нет (Все метки) Ввести два числа. Меньшее заменить полусуммой, а большее – удвоенным произведением этих чисел. 0

	05.05.2011, 14:16

Опции темы

Ввести два числа. Меньшее заменить полусуммой, а большее – удвоенным произведением этих чисел

Решение