задача:Паскаль и ряд чисел Фибоначчи

[Рустам]

ну там дальше дело фантазии:

Program Imya;
Var
a,b,c,i:integer;
begin
Write('Введите число: '); Readln(a); {- твое 11 }
b:=a+1;
c:=a+b;
Writeln('10 чисел Фибоначчи начиная с 11:');
for i:=1 to 10 do begin
a:=b;
b:=c;
c:=a+b;
writeln(i,') c=',c);
end;
readln;
end.

[SEREG@]

Сообщение от Рустам

ну там дальше дело фантазии:

Program Imya;
Var
a,b,c,i:integer;
begin
Write('Введите число: '); Readln(a); {- твое 11 }
b:=a+1;
c:=a+b;
Writeln('10 чисел Фибоначчи начиная с 11:');
for i:=1 to 10 do begin
a:=b;
b:=c;
c:=a+b;
writeln(i,') c=',c);
end;
readln;
end.

Большое спасибо,очень помог,теперь надо еще дождаться,что скажет препод.Если че буду обращаться,видно сразу мастер.

[AlDelta]

http://programmersforum.ru/showthrea...ED%E0%F7%F7%E8

[SEREG@]

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

http://programmersforum.ru/showthrea...ED%E0%F7%F7%E8

Ну вообщето я формулу расчета чисел знаю,но все равно спасибо.(главное цикл есть,завтра проверю пашет или нет)

[Рустам]

Удачи тебе!

[Рустам]

кстати!
в начале после Write('Введите число: '); Readln(a);
напиши a:=a-1;

А то прога с 12 считать начнет!!!

[SEREG@]

Сообщение от Рустам

ну там дальше дело фантазии:

Program Imya;
Var
a,b,c,i:integer;
begin
Write('Введите число: '); Readln(a); {- твое 11 }
b:=a+1;
c:=a+b;
Writeln('10 чисел Фибоначчи начиная с 11:');
for i:=1 to 10 do begin
a:=b;
b:=c;
c:=a+b;
writeln(i,') c=',c);
end;
readln;
end.

еще 1 вопрос:почему тут в конце после 1го end, readln просто?Разве в скобках ниче писать не надо?

Сообщение от Рустам

кстати!
в начале после Write('Введите число: '); Readln(a);
напиши a:=a-1;

А то прога с 12 считать начнет!!!

спасибо,добавил.

[Agent[PNZ]]

repeat
k:=kn+kk;
kn:=kk;
kk:=k;
m:=m+1;
writeln(k);
until m>=p;

p - это номер последнего члена последовательности

[SEREG@]

Сообщение от Рустам

ну там дальше дело фантазии:

Program Imya;
Var
a,b,c,i:integer;
begin
Write('Введите число: '); Readln(a); {- твое 11 }
b:=a+1;
c:=a+b;
Writeln('10 чисел Фибоначчи начиная с 11:');
for i:=1 to 10 do begin
a:=b;
b:=c;
c:=a+b;
writeln(i,') c=',c);
end;
readln;
end.

Спасибо,что помогали,но задача решена неправильно-выводится последовательность,но не соответствующая ряду чисел Фибоначчи,можете уже не трудиться,уже не надо.Спасибо за помощь.

[Рустам]

readln; - в конце, чтобы прога не вылетала, а ждала нажатия клавиши!