Среднее арифметическое - Помощь студентам

Seede1 · 09.10.2010, 12:57

Код:

 procedure TForm4.Button1Click(Sender: TObject);
begin
Label1.Caption :=
IntToStr(StrToInt(Edit1.text)+StrToInt(Edit2.text))/2;
end;

В чём ошибка, подскажите плз

DIgorevich · 09.10.2010, 13:01

Код:

Label1.Caption :=
IntToStr((StrToInt(Edit1.text)+StrToInt(Edit2.text))/2);

ex.cluz · 09.10.2010, 13:01

Код:

 procedure TForm4.Button1Click(Sender: TObject);
begin
Label1.Caption :=
FloatToStr(StrToInt(Edit1.text)+StrToInt(Edit2.text)/2);
end;

DIgorevich, а если результат деления на два получится дробным? При попытке преобразования IntToStr вылетит ошибка.

А ТС вообще бы посоветовал проверку делать перед такими действиями. А то вдруг в Edit'ах ничего нет? Ошибка обеспечена.

DIgorevich · 09.10.2010, 13:19

ex.cluz, у Вас у самого ошибка... скобок не хватает. Или по-Вашему два плюс два поделить на два будет 2?

Seede1 · 10.10.2010, 10:29

Спасибо, всё работает.

09.10.2010, 12:57	#1
Seede1 Пользователь Регистрация: 09.10.2010 Сообщений: 24	Среднее арифметическое Код: `procedure TForm4.Button1Click(Sender: TObject); begin Label1.Caption := IntToStr(StrToInt(Edit1.text)+StrToInt(Edit2.text))/2; end;` В чём ошибка, подскажите плз

09.10.2010, 13:01	#2
DIgorevich Погулять вышел Участник клуба Регистрация: 17.05.2010 Сообщений: 1,573	Код: `Label1.Caption := IntToStr((StrToInt(Edit1.text)+StrToInt(Edit2.text))/2);` Никогда не знаешь, где тебе повезет... (Фрай)

09.10.2010, 13:01	#3
ex.cluz Участник клуба Регистрация: 15.01.2010 Сообщений: 1,325	Код: `procedure TForm4.Button1Click(Sender: TObject); begin Label1.Caption := FloatToStr(StrToInt(Edit1.text)+StrToInt(Edit2.text)/2); end;` DIgorevich, а если результат деления на два получится дробным? При попытке преобразования IntToStr вылетит ошибка. А ТС вообще бы посоветовал проверку делать перед такими действиями. А то вдруг в Edit'ах ничего нет? Ошибка обеспечена. Грибы - они разные. Один тебя накормит, другой тебе кино покажет... Редактор журнала "[ПРОграммист]" Yan's Home Digital Lab Последний раз редактировалось Stilet; 09.10.2010 в 13:24.

09.10.2010, 13:19	#4
DIgorevich Погулять вышел Участник клуба Регистрация: 17.05.2010 Сообщений: 1,573	ex.cluz, у Вас у самого ошибка... скобок не хватает. Или по-Вашему два плюс два поделить на два будет 2? Никогда не знаешь, где тебе повезет... (Фрай)

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Вычислить среднее арифметическое	qwerty777	Паскаль, Turbo Pascal, PascalABC.NET	3	19.05.2010 17:48
Среднее арифметическое.	Deutch	Помощь студентам	3	16.12.2009 21:18
Среднее арифметическое	Golovastik	Общие вопросы C/C++	16	18.07.2009 16:47
среднее арифметическое	Mashul'ka	Помощь студентам	1	14.05.2009 19:33

10.10.2010, 10:29	#5
Seede1 Пользователь Регистрация: 09.10.2010 Сообщений: 24	Спасибо, всё работает.