VPF::Incompatible types: 'Integer' and 'Extended' - Форум программистов

Alexanddr

Дата 16.12.2009, 14:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 15.12.2009

Репутация: нет
Всего: нет

Что означает Incompatible types: 'Integer' and 'Extended'? Не совпадают типы?
вот есть код, что в нём не так?

Код


procedure TForm1.Button3Click(Sender: TObject);
var  Result,n, i ,j,e3,e4,e5,r: Integer;
z: array of integer;
begin
 e3 := StrToint(Edit3.Text);
 e4 := StrToint(Edit4.Text);
 e5 := StrToint(Edit5.Text);
  i := 1;
  Result := 0;
  for j := i to e5 do
  begin
   Result:=(Result + z[j])*Power(1+e4,e5);
  end;
label9.Caption := IntToStr(Result);
end;

а расчитывается вот эта формула

Присоединённый файл ( Кол-во скачиваний: 9 )

formula.JPG 2,42 Kb

Alexeis

Дата 16.12.2009, 15:02 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

Функция Power возвращает значение типа Extended, т.е. с плавающей точкой. Чтобы его присвоить переменной типа Integer такое значение нужно округлить одной из функций Round или Trunc.

Добавлено через 1 минуту и 48 секунд
P.S. не советую переменные называть "Result". Это зарезервированное слово-переменная в которой из функции возвращают значение. Могут получиться трудноуловимые ошибки.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

profesiachuvak

Дата 18.12.2009, 18:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 7.11.2009
Где: Беларусь, Минск

Репутация: 1
Всего: 4

Ну ещё в добавок предложу такой вариант :

Код


var 
Result : real;

begin

...

label9.caption:=FloatToStr(Result);

end;

Это сообщение отредактировал(а) profesiachuvak - 18.12.2009, 18:37

--------------------

Закон Мерфи :если есть вероятность того, что какая-нибудь неприятность может случиться, то она обязательно произойдет.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »