Если числа равны, то каждое число удвоить, а если не равны, то разделить на 2

@евгений92 · Регистрация: 20.12.2011

даны числа а и в.Если числа равны, то каждое число удвоить,а если не равны, то разделить на 2.

@igoriy · 21.12.2011, 19:37

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:Real;
begin
a:= StrToFloat(Edit1.Text);
b:= StrToFloat(Edit2.Text);
if a=b then
begin
  Edit1.Text:= FloatToStr(a*2);
  Edit2.Text:= FloatToStr(b*2);
end
else
begin
  Edit1.Text:= FloatToStr(a/2);
  Edit2.Text:= FloatToStr(b/2);
end;
 
end;

@евгений92 0 / 0 / 0 Регистрация: 20.12.2011 Сообщений: 4
		1
	Если числа равны, то каждое число удвоить, а если не равны, то разделить на 2 21.12.2011, 19:17. Показов 1304. Ответов 1 Метки нет (Все метки) даны числа а и в.Если числа равны, то каждое число удвоить,а если не равны, то разделить на 2. __________________ Помощь в написании контрольных, курсовых и дипломных работ здесь 0

Опции темы

Если числа равны, то каждое число удвоить, а если не равны, то разделить на 2

Решение