Страница 1 из 1
памогити с цифрами
Добавлено: 21.01.2008 20:18:36
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;
Добавлено: 22.01.2008 10:16:19
LAutour
Это называется ряд Фибоначчи.
И рекурсия обязательна? (бедный стек)
Добавлено: 22.01.2008 13:04:10
maks
а это у меня что нерикурсия
Добавлено: 22.01.2008 16:40:31
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 символами
Добавлено: 23.01.2008 17:54:59
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.
Добавлено: 26.01.2008 20:53:22
Matich
LAutour писал(а):И рекурсия обязательна?
Ну учат так =)
Добавлено: 28.01.2008 08:08:21
LAutour
а если n ввести значение побольше?
