Matice – Pascal – Fórum – Programujte.com

http://www.fm.tul.cz/prg/Ulohy/UlohyMatice.pdf prosim o pomoc s ulohou cislo 15....diky moc!!!!!!!!!!!!!!!§

Nechci z tebe dělat vola, ale všechny vzorce máš napsané přímo v zadání. Stačí napsat cyklus na procházení matice (dvourozměrného pole) a máš vyhráno.

To tucna: tak jsem to udelal, ale potreboval bych to zkontrolovat..prosim. Nejsem vubec dobrej programator :-(


program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;


var
Pole : array [1..10, 1..10] of integer;
i,j : integer;
sym, asym, symstru : boolean;

begin

for i:=1 to 10 do begin
for j:=1 to 10 do Pole[i,j]:=Random(4);
end;

for i:=1 to 10 do begin
for j:=1 to 10 do write(Pole[i,j]:3);
writeln;
end;

asym:=False;
sym:=False;
symstru:=False;

for i:=1 to 10 do begin
for j:=1 to 10 do if Pole[i,j]=Pole[j,i] then asym:=True;
end;


for i:=1 to 10 do begin
for j:=1 to 10 do if Pole[i,j]=-(Pole[j,i]) then sym:=TRUE;
end;


for i:=1 to 10 do begin
for j:=1 to 10 do if (Pole[j,i]) and (Pole[i,j])<>0 then symstru:=TRUE;
end;

if asym=True then writeln('Asymetricka');
if sym=True then writeln('Symetricka');
if symstru=True then writeln('Symetricka struktura');

readln;

end.

Doporučuji psát cykly spíše takto

for i:=1 to 10 do 

   for j:=1 to 10 do 

      Pole[i,j]:=Random(4);

write(Pole[i,j]:3)

To tucna:

program Uloha15;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
Pole : array [1..10, 1..10] of integer;
i,j : integer;
sym, asym, symstru : boolean;

begin

randomize;

for i:=1 to 10 do begin
for j:=1 to 10 do
Pole[i,j]:=Random(4);
end;

for i:=1 to 10 do begin
for j:=1 to 10 do
write(Pole[i,j]:3);
writeln;
end;

asym:=TRUE;
sym:=TRUE;
symstru:=TRUE;

for i:=1 to 10 do begin
for j:=1 to 10 do
if Pole[i,j]<>Pole[j,i] then asym:=False else asym:=TRUE;
end;


for i:=1 to 10 do begin
for j:=1 to 10 do
if Pole[i,j]<>-(Pole[j,i]) then sym:=False else sym:=True;
end;


for i:=1 to 10 do begin
for j:=1 to 10 do
if (Pole[j,i]) and (Pole[i,j])=0 then symstru:=False else symstru:=True;
end;

if asym=True then writeln('Asymetricka');
if sym=True then writeln('Symetricka');
if symstru=True then writeln('Symetricka struktura');

readln;

end.


ale me se tam stejne nelibi to else..co kdyz 5 pripadu budou FALSE, ale ten posledni bude TRUE, tak se stejne nastavi celymu TRUE a to prece neni pravda!!!

Ty proměnné dej na začátku TRUE a když tím cyklem najdeš rozpor (prostě bude platit podmínka ovšem znegovaná) dej to na FALSE.

co kdyz 5 pripadu budou FALSE, ale ten posledni bude TRUE, tak se stejne nastavi celymu TRUE a to prece neni pravda!!!