памогити с цифрами

[maks]

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

[LAutour]

Это называется ряд Фибоначчи.
И рекурсия обязательна? (бедный стек)

[maks]

а это у меня что нерикурсия

[Vlad04]

Надо дописать функцию, которая будет формировать строку, состоящую и N символов. Например

Код: Выделить всё

function Starts(N : integer) : string ;
var
    I : integer ;
begin
 Result := '' ;
 for I := 1 to N do Result := Result+'*' ;
end ;

P.S. При использовании типа ShortString длина строки ограничена 255 символами

[maks]

все ришил

Код: Выделить всё

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.

[Matich]

И рекурсия обязательна?

Ну учат так =)

[LAutour]

а если n ввести значение побольше?