05.03 Naplnění pole posloupností čísel
Zadání:
Sestavte program, který Vyplní pole prvky posloupnosti, kde každý prvek se dán součtem předchozích dvou prvků
Sestavte program, který Vyplní pole prvky posloupnosti, kde každý prvek se dán součtem předchozích dvou prvků
Řešení:
Pomocí prvního cyklu FOR pro proměnnou i vypočteme prvky od třetího do n-tého a vložíme je na příslušné
pozice. V druhém cyklu FOR vytiskneme celé pole.
Pomocí prvního cyklu FOR pro proměnnou i vypočteme prvky od třetího do n-tého a vložíme je na příslušné
pozice. V druhém cyklu FOR vytiskneme celé pole.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var pole:array[1..10000] of integer;
i,n:integer;
begin
write('Zadejte prvni prvek posloupnosti: ');
readln(pole[1]);
write('Zadejte druhy prvek posloupnosti: ');
readln(pole[2]);
write('Zadejte pocet prvku: ');
readln(n);
for i:=3 to n do pole[i]:=pole[i-1]+pole[i-2];
for i:=1 to n do write(pole[i],' ');
readln;
end.
program ke stažení