Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 20.12.2011
Сообщений: 4
1

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

21.12.2011, 19:17. Показов 1304. Ответов 1
Метки нет (Все метки)

даны числа а и в.Если числа равны, то каждое число удвоить,а если не равны, то разделить на 2.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2011, 19:17
Ответы с готовыми решениями:

Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить числа нулями
2)Даны целые числа m, n. Если числа не равны, то заменить каждое из них одним и тем же числом,...

Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить числа нулями.
РЕШИТЕ пожалуйста 1) Даны целые числа m,n. Если числа не равны, то заменить каждое из них одним...

Если числа не равны,то заменив каждое из них одним и тем же числом, равным большему из исходных,а если равны то заменив числа нулями.
Даны целые числа ш,и: Если числа не равны,то заменив каждое из них одним и тем же числом, равным...

Если числа отрицательны и не равны между собой, то каждое число замените наибольшим из них
Введите с клавиатуры три числа:A,B,C. ЕслиA>B>C>0,то замените все числа их квадратами и выведите...

1
872 / 543 / 117
Регистрация: 24.11.2009
Сообщений: 1,329
21.12.2011, 19:37 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2011, 19:37

Если числа не равны, то заменить меньшее из них большим, а если равны — заменить нулями
Даны целые числа m и n. Если числа не равны, то заменить меньшее из них большим, а если равны -...

Если числа не равны, то заменить меньшее из них большим, а если равны — заменить нулями
Даны целые числа m и n. Если числа не равны, то заменить меньшее из них большим, а если равны -...

Если числа не равны, то заменить каждое из них большим
УСЛОВНЫЙ ОПЕРАТОР 16. Даны целые числа m, n. Если числа не равны, то заменить каждое из них одним...

Даны целые k, l, m. Если числа не равны, то заменить каждое из них квадратами
Даны целые k, l, m. Если числа не равны, то заменить каждое из них квадратами, а если равны, то...

Если числа не равны, то заменить каждое из них числом, равным наибольшему из исходных
Напишите пожалуйста программу... 1) Даны целые числа k, l. Если числа не равны, то заменить каждое...

Если числа не равны, то заменить каждое одним числом, равным большему из исходных
Помогите решить! Если числа не равны то заменить каждое из них одним и тем же числом, равным...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru