Вопрос по информатике:
Даны два числа A и B. Найди их среднее арифметическое: (a+b)/2.
Люди сделайте на delphi надо по программированию заранее спс.
Пожаловаться
- 20.05.2016 15:55
- Информатика
- remove_red_eye 18688
- thumb_up 28
Ответы и объяснения 1
A = в Edit1
b = в Edit2
Результат в Label1
var
a, b, c: real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
Label1.Caption := FloatToStr((a + b) / 2);
end;
b = в Edit2
Результат в Label1
var
a, b, c: real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
Label1.Caption := FloatToStr((a + b) / 2);
end;
Пожаловаться
- 21.05.2016 19:14
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы