цифры фибоначо, памогите навичку в решении с функцией Опции

[maksimla]

надо чтобы упорядочит цифры чтобы шли так
1
1
2
3
5
8
13
и так далие эти цифры две плюсуются 1+1=2 патом 1+2=3, 2+3=5.........
function fib (n: integer): integer;
begin
if (n = 1) or (n = 2) then fib := 1
else fib := fib(n-2)+fib(n-1)
end;

что надо даписать чтоби так и было
а на экране вывести
*
*
**
***
*****
********
*************
только пожалста падскажите а не ришите

[volvo]

Функцию вычисления чисел Фибоначчи ты написал... Теперь надо ее вызвать. Вызывай в основной программе fib(номер_числа), запоминай результат и рисуй столько звездочек...

[Rian]

Не знаешь как алгоритм работает или как он в паскале описывается?
Суть:сумма двух чисел даёт третье.
Я бы это сделал, используя массив, с заполнеными первыми двумя элементами, а циклом уже считать начиная с третьего. третий будет суммой первого и второго, четвёртый суммой второго и третьего(mas[i]:=mas[i-1]+mas[i-2])

[maksimla]

ввожу 5 выдает
1
1
2
1
1
1
2
3
пачему так видает
program fibinacio;
var a:integer;
function fib (n: integer): integer;
begin
if (n = 1) or (n = 2) then fib := 1
else fib := fib(n-2)+fib(n-1) ;
writeln(fib)
end;
begin
WriteLn('āāčäčņå öčōšó');
Readln(a);
fib(a);
readln;
end.

[volvo]

Потому что ты изменял функцию... Не надо этого делать... Задача функции - считать, а не распечатывать значения. Вот ты вызови fib, а потом, в основной программе, будешь печатать результат - тогда все отработает правильно...

[maksimla]

Не знаешь как алгоритм работает или как он в паскале описывается?
Суть:сумма двух чисел даёт третье.
Я бы это сделал, используя массив, с заполнеными первыми двумя элементами, а циклом уже считать начиная с третьего. третий будет суммой первого и второго, четвёртый суммой второго и третьего(mas[i]:=mas[i-1]+mas[i-2])

массивы ище в школе непроходили нильзя мне писать массивы

[Client]

writeln(fib)

А это у меня тока не скомпилилось?? Похоже что автору надо еще все промежуточные значения вывести.
В основной программе s:=fib(n); сработает, а в самой функции как переменной присвоить значение функции??

Сообщение отредактировано: Client - 22.01.2008 14:05

[volvo]

Похоже что автору надо еще все промежуточные значения вывести.

То, что нужно автору, он написал в первом посте. Для этого достаточно сделать один-единственный цикл и в нем печатать возвращаемые функцией fib значения. А придумывать за автора - это не на форум программистов, а на форум телепатов.

[maksimla]

незнаю как
неполучается у меня в основной програме вывести цифры
begin
WriteLn('klk');
Readln(a);
fib(a);
writeln(a);
readln;
end.

Добавлено через 12 мин.

Для этого достаточно сделать один-единственный цикл и в нем печатать возвращаемые функцией fib значения.

а где цикл этот написать и какой
for или
while

[volvo]

а где цикл этот написать и какой

Ты ж сам сказал, что тебе нужно не решить, а помочь...

В основной программе:

begin
  write('n = '); readln(n);
  for i := 1 to n do writeln(fib(i));
end.

Это напечатает тебе только сами числа Фибоначчи. Для того, чтобы нарисовать звездочки, придется делать еще один цикл, вместо writeln(fib(i)), но какой - уже попробуй подумать сам, иначе получится решение "за тебя"...

[maksimla]

зделал я кажется правелна
program fibonacio;
var a,i,r:integer;
function fib (n:integer):integer;
begin
if (n=1) or (n=2)
then fib:=1
else fib:=fib(n-2)+fib(n-1);
end;
begin
write('n=');
readln(a);
for i:=1 to a do
begin
writeln;
for r:= 1 to fib(i) do
write('*');
end;
readln;
end.