Числа Фибоначчи

15.05.2013, 16:11. **Показов** 9265. **Ответов** 3

Author24 — интернет-сервис помощи студентам

Числа Фибоначчи.Определить 40-е число Фибоначчи Плизз!!!в делфи

@Arkaniy · 15.05.2013, 16:28

Delphi

var i : integer;
    a: array[1..40]of integer;
begin
a[1]:=1;
a[2]:=1;
for i := 3 to 40 do
  a[i]:=a[i-1]+a[i-2];
Labe1.Caption := IntToStr(a[40]);
end;

15.05.2013, 17:10

Сообщение от Arkaniy

Delphi

var i : integer;
    a: array[1..40]of integer;
begin
a[1]:=1;
a[2]:=1;
for i := 3 to 40 do
  a[i]:=a[i-1]+a[i-2];
Labe1.Caption := IntToStr(a[40]);
end;

это паскаль а мне нужно делфи 7

@Arkaniy · 15.05.2013, 17:14

Это делфи7! Я думаю, что запихнуть код в обработчик нажатия кнопки мыши не так уж и сложно.
Да и ко всему тут вывод в лэйбл, что уже показывает, что это делфи.

Evgeniy_9513
		1
	Числа Фибоначчи 15.05.2013, 16:11. Показов 9265. Ответов 3 Метки нет (Все метки) Числа Фибоначчи.Определить 40-е число Фибоначчи Плизз!!!в делфи

@Arkaniy 107 / 107 / 21 Регистрация: 29.08.2012 Сообщений: 453
	15.05.2013, 17:14	4
	Это делфи7! Я думаю, что запихнуть код в обработчик нажатия кнопки мыши не так уж и сложно. Да и ко всему тут вывод в лэйбл, что уже показывает, что это делфи. 1