Pascal

Miss_Anna · Početnik Domaćeg.de

eeeeee OBOZAVAM OBOOOZAVAM PASCAL!!!!!!!! Joooj najveca zelja mi je studirati informatiku, jednostavno mogu provesti sate i sate radeci programe!!

By the way... ovo bi moglo svima pomoci Wink

http://www.geocities.com/SiliconValley/Horizon/5444/pstart.htm

Edit by Jugovic:
Btw, imas edit-dugme ako zelis nesto da dodas! Wink

nesa_gajic · Početnik Domaćeg.de

Da ne zana neko kako da napravim proceduru u pascalu koja transponuje matricu (pravougaonu) ako matrica NIJE uneta u dinamicki aslociranu memoriju a da pri tome ne koristim pomocnu matricu vec samo jedan pomocni element.

andrejko · Dobro upućeni član

Ako sam te razumeo glavni deo bi trebao da ide ovako:

nesa_gajic · Početnik Domaćeg.de

nesa_gajic · Početnik Domaćeg.de

Treba mi procedura koja brise jednostruko ulancanu listu iz dinamicki aslocirane memorije. Procedura treba da radi na principu rekuzije (poziva samu sebe do ne obrise celu listu).

andrejko · Dobro upućeni član

Pa matrica i jeste pravougaona NxM (jedna for je do N a druga do M)...

nesa_gajic · Početnik Domaćeg.de

Matrica koju si ti obradjivao jeste pravougaona ali razmisli sta ce se dogoditi ako je na primer n < m sa nekim elementom a[i][j] pri cemu je j>n prilikom transponovanja.

nesa_gajic · Početnik Domaćeg.de

Evo ti primer programa za transponovanje matrice. Probaj da umesto procedure koju sam ja stavio uneses svoju pa ces videti sta se desava i ucemu je problem.

program dz3;
const max_br_vr=10;
max_br_kol=10;
type def_matrice=array [1..max_br_vr, 1..max_br_kol] of real;
var matrica: def_matrice;
n, m: integer;
rezultat: real;

{Procedura za unos matrice}
procedure unos_matrice(var mat: def_matrice; var p, q: integer);
var i, j: integer;
begin
writeln;
writeln('---------- UNOS PODATAKA ----------');
write('Unesite broj vrsta: ');
read(p);
while (p>max_br_vr) do
begin
writeln('Broj vrsta je van opsega.');
write('Ponovite unos: ');
read(p)
end;
write('Unesite broj kolona: ');
read(q);
while (q>max_br_kol) do
begin
writeln('Broj kolona je van opsega.');
write('Ponovite unos: ');
read(q)
end;
for i:=1 to p do
for j:=1 to q do
begin
write('Element [', i, '][', j, ']: ');
read(mat[i][j])
end;
writeln
end;
{Kraj procedure za unos matrice}

{Procedura za ispisivanje matrice}
procedure ispisivanje_matrice(var mat: def_matrice; var p, q: integer);
var i, j: integer;
begin
writeln;
writeln('Matrica:');
for i:=1 to p do
begin
writeln;
for j:=1 to q do
write(' ', mat[i][j]:8:2)
end;
writeln;
end;
{Kraj procedura za ispisivanje matrice}

{Procedura za transponovanje matrice}
procedure transponovanje_matrice(var mat: def_matrice; var p, q: integer);
var tmp: def_matrice;
elem: real;
i, j, k, b: integer;
begin
k:=0;
for i:=1 to p do
begin
k:=k+1;
for j:=1 to q do tmp[j][k]:=mat[i][j]
end;
p:=j;
q:=k;
mat:=tmp
end;
{Kraj procedure za transponovanje matrice}

{Funkcija za racunanje geometrijske sredine}
function geometrijska_sredina(var mat: def_matrice; var p, q: integer): real;
var geo_sr: real;
i, j, b: integer;
begin
if (p>0) and (q>0) then geo_sr:=1
else geo_sr:=0;
b:=0;
for i:=1 to p do
for j:=1 to q do
begin
if ((i+j) mod 2) = 0 then
begin
geo_sr:=geo_sr * mat[i][j];
b:=b+1
end
end;
geometrijska_sredina:= exp ( ln (geo_sr) / b)
end;
{Kraj funkcije za racunanje geometrijske sredine}

{Procedura za ispisivanje rezultata}
procedure ispisivanje_rezultata(rez: real);
begin
writeln;
writeln('Geometrijska sredina je: ', rez:6:2)
end;
{Glavni program}
begin
repeat
unos_matrice(matrica, n, m);
ispisivanje_matrice(matrica, n, m);
transponovanje_matrice(matrica, n, m);
ispisivanje_matrice(matrica, n, m);
rezultat:=geometrijska_sredina(matrica, n, m);
ispisivanje_rezultata(rezultat);
until ((n<1) or (m<1))
end.

andrejko · Dobro upućeni član

Da jeste. Pa onda samo razmotri kada je n >= m (ono) a u drugom slucaju obrni petlje tj, idi od doljeg levog (isto samo obrnuto). Zar ne?!

nesa_gajic · Početnik Domaćeg.de

Misli da ni tako nemoze. Mislim da treba nacrtati kako bi takva matrica izgledala u memoriji pa da onda provaliti koji sa kojim elementom treba zameniti.

andrejko · Dobro upućeni član

Ma probaj ovo. Aj sad nesto radim (inace sledece nedelje je tak iz inf) pa cu da ti otkucam nocas...

zdravkoetf · Početnik Domaćeg.de