Задачи по паскалю

[Agent[PNZ]]

Помогите решить кто может только не удаляйте плиз, реально помощь нужна. Только плиз, по проще, не стоит слишком мудрить

[AlDelta]

27.3

//Получение чисел Фибоначчи остальное попробуй дописать сам
procedure fib(n:word);
var
i,sum:longint;
const fa:array [0..1] of longint=(1,1);
begin
write(#$D#$A,fa[0],#$D#$A,fa[1]);
for i:=2 to n-1 do
begin
sum:=fa[0]+fa[1];
write(#$D#$A,sum);
fa[0]:=fa[1];fa[1]:=sum;
end;
end;

http://programmersforum.ru/showthrea...E5%F0%F1%E8%FF -решение задания 27.6

[puporev]

Задачу №6 смотри здесь. Пост#13.
http://programmersforum.ru/showpost....40&postcount=1

[Agent[PNZ]]

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

27.3

//Получение чисел Фибоначчи остальное попробуй дописать сам
procedure fib(n:word);
var
i,sum:longint;
const fa:array [0..1] of longint=(1,1);
begin
write(#$D#$A,fa[0],#$D#$A,fa[1]);
for i:=2 to n-1 do
begin
sum:=fa[0]+fa[1];
write(#$D#$A,sum);
fa[0]:=fa[1];fa[1]:=sum;
end;
end;

http://programmersforum.ru/showthrea...E5%F0%F1%E8%FF -решение задания 27.6

там решение проще, без процедур, решение должно быть вроде через repeat until.

[Cantana]

наверно в консоле надо прога так ???
если да то откриваеш новое console application и копируеш туда код AlDelta и вперед

[kommunist]

вот тебе через repeat

program fib;
uses crt;
var n,z,k:integer;
begin
    clrscr;
    writeln('vvedite n :');
    readln(n);
    z:=1; 
    k:=0;
repeat
begin
    z:=z+k;
    k:=z-k;
    writeln('z=',z);
end;
    if (n-k)<=(z-n) then
    n:=k
    else
    n:=z;
until z => n
    writeln('n=',n);
    readln;
end;

[Agent[PNZ]]

Программа, которую ты написал через repeat не работает, ты сам бы проверил, перед тем, как кидать. У нас из входных данных два значения вообще-то:номер члена, с которого сумма начнется и количество суммирующихся членов.

[Agent[PNZ]]

Вот я сам написал, но проблема в том, что программа суммирует правильно числа, лишь если сумма начинается с 1 члена, если же больше, то резултат выдаёт уже неверный. Посмотрите пожалста, сам не пойму в чем ошибка может быть

begin                                                                         
clrscr;                                                                       
writeln('введите номер члена с которого начнется сумма');                   
readln(a);                                                                   
writeln('введите количество суммирующихся членов');                           
readln(l);                                                                    
p:=a+l-1;                                                                     
kn:=1;                                                                        
kk:=1;                                                                        
m:=2;                                                                         
if a=1 then s:=2;                                                             
repeat                                                                        
k:=kn+kk;                                                                     
kn:=kk;                                                                       
kk:=k;                                                                        
m:=m+1;                                                                      
if m>=a then s:=s+k                                                          
until m>=p;                                                                   
writeln(s);                                                                   
readln;                                                                      
end.

[kommunist]

здесь подробно рассматривалась твоя задача

http://programmersforum.ru/showthread.php?t=7882

[Agent[PNZ]]

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

здесь подробно рассматривалась твоя задача

http://programmersforum.ru/showthread.php?t=7882

блин, да не такая эта задача.