надо чтобы упорядочит цифры чтобы шли так
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;
что надо даписать чтоби так и было
а на экране вывести
*
*
**
***
*****
********
*************
только пожалста падскажите а не ришите
Функцию вычисления чисел Фибоначчи ты написал... Теперь надо ее вызвать. Вызывай в основной программе fib(номер_числа), запоминай результат и рисуй столько звездочек...
Не знаешь как алгоритм работает или как он в паскале описывается?
Суть:сумма двух чисел даёт третье.
Я бы это сделал, используя массив, с заполнеными первыми двумя элементами, а циклом уже считать начиная с третьего. третий будет суммой первого и второго, четвёртый суммой второго и третьего(mas[i]:=mas[i-1]+mas[i-2])
ввожу 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.
Потому что ты изменял функцию... Не надо этого делать... Задача функции - считать, а не распечатывать значения. Вот ты вызови fib, а потом, в основной программе, будешь печатать результат - тогда все отработает правильно...
writeln(fib)А это у меня тока не скомпилилось?? Похоже что автору надо еще все промежуточные значения вывести.
незнаю как
неполучается у меня в основной програме вывести цифры
begin
WriteLn('klk');
Readln(a);
fib(a);
writeln(a);
readln;
end.
Добавлено через 12 мин.
beginЭто напечатает тебе только сами числа Фибоначчи. Для того, чтобы нарисовать звездочки, придется делать еще один цикл, вместо writeln(fib(i)), но какой - уже попробуй подумать сам, иначе получится решение "за тебя"...
write('n = '); readln(n);
for i := 1 to n do writeln(fib(i));
end.
зделал я кажется правелна
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.