FORUM
Pagina de start a forumului eggzit.3xforum.ro 		Lista Forumurilor Pe Tematici
FORUM | Reguli | Inregistrare | Login

POZE FORUM

Nu sunteti logat. 		Nou pe simpatie:
xxIRISxx pe Simpatie.ro
Femeie
25 ani
Timis
cauta Barbat
25 - 60 ani
FORUM / Forum Nou / 24  
Autor
Mesaj Pagini: 1
eggzit
Username: 6R9PKQUKKU

Inregistrat: acum 20 ani
Postari: 215
{sa se contruiasca si sa se afiseze o matrie patratica
de ordin n ale carui elemsnete sunt sirul lui
fibonnaci}
program douazecisipatru;
type matrice=array[1..10,1..10]of integer;
var a:matrice;n,i,j,k,x,y,z:longint;
begin
write('n=');readln(n); k:=0;
for i:=1 to n do
    for j:=1 to n do
        begin
        k:=k+1;
        if k=1 then begin x:=1;a[i,j]:=x end
        else if k=2 then begin y:=1;a[i,j]:=y end
        else begin z:=x+y;x:=y;y:=z;a[i,j]:=z end;
        end;
for i:=1 to n do
    begin
    for j:=1 to n do
        write(a[i,j],' ');
    writeln;
    end; readln;
end.
pus acum 18 ani
   
Pagini: 1  

Mergi la