FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Nou pe simpatie:
Laura Petrei pe Simpatie.ro
 | Femeie
24 ani
Braila
cauta Barbat
27 - 65 ani |
|
|
FORUMReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 eggzitUsername: 6R9PKQUKKU
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.
|
|
| |
|
