Matice – Pascal – Fórum – Programujte.com

Dobrý den, pomohl by mi nekdo vyresit ulohu cislo 6???Dekuju mockrat!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!§

No, nerad se opakuju, ale v čem KONKRÉTNĚ je problém? Myslíš, že ti tu někdo vysmahne řešení bez toho, aniž bys nad tím popřemýšlel?

To Jura: Ne to ne, ale napadaj me dve reseni a nevim, jak to spravne udelat...zaprvy kazder radek a sloupec seradit a pak zjistit, jestli je tam patricna posloupnost nebo nejakej algoritmus a otestovat, jestli jsou tam ty hodnoty....

Mno, zřejmě řešíme každý jinou úlohu. Jedná se o úlohu č. 6 z dokumetu http://www.fm.tul.cz/prg/Ulohy/UlohyMatice.pdf?
Pokud ano, tak bych postupoval asi takto:

1) naplnit matici
2) zapamatovat si index řádku a sloupce, ve kterém se nachází maximální hodnota - normálně projdeš 2 rozměrné pole
3) prohodit třeba nejprve 1.řádek s řádkem, ve kterém je maximální hodnota
4) prohodit 1. sloupec s požadovaným sloupcem
5) radovat se

To Jura:Jeee ja jsem hlupak, tudle ulohy umim..ale spletl jsem s osmickou!!!
Uloha cislo osm mi vebuce nejde :-(
jinak se taky raduju

Prostě projdeš sloupec po sloupci, řádek po řádku obě diagonály a otestuješ pokaždé jestli obsahují tu permutaci. Pokud ano, pak jde o latinský čtverec. Neumíš číst? Přesně toto máš napsané v zadání!

To tucna:promin, mozna me mas za nejvetsiho idiota, ale ja mam s tim fakt nejvetsi problem, ze si prectu zadani a vubec nevim cp mam delat...az pak mi to dojde..jsem rad, ze mi pomahas, ale nemusis na me porad utocit.ja vim, ze nejsem dobrej programator a asi nikdy nebudu, ale docela me to bavi a chtel bych se neco naucit, tak se mnou mej strpeni

To Kadla: já mám strpení :) Kadlo pokud se chceš něco naučit tak se to UČ a neptej se pořád na totéž. Čemu konkrétně, ale opravdu konkrétně, nerozumíš?

To tucna: chapu jak ji mam projit tu permutaci, ale vubec nechapu jak mam otestovat tu permutaci.

Citát viz. Wikipedie

Příklad
Mějme skupinu tří různých prvků a,b,c.

Permutace těchto prvků představují skupiny abc, acb, bac, bca, cab, cba.

To tucna:krasne si mi to vysvetlil. Tak ja jdu na to....

To tucna: slo by to takhle?..udelal jsem jenom pro radky. Prosimte, rekl by si mi taky k tomu jak se ma delat spravne odsazeni?


program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
P : array [1..20, 1..20] of integer;
perumtace : boolean;
N,i,j : integer;
begin

read(N);

permutace:=true;

for i:=1 to N
do for j:=1 to N
do P[i,j]:=Random(N+1);

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

for i:=1 to N
do begin
for j:=1 to N
do if P[i,j]<>j then permutace:=false else permutace:=true;
end;

readln;


end.

Co myslíš odsazením?

První chybu máš tady

for i:=1 to N

  do for j:=1 to N

   do P[i,j]:=Random(N+1);

for i:=1 to N

  do for j:=1 to N

   do P[i,j]:=Random(N)+1;

for i:=1 to N

  do begin

   for j:=1 to N

    do if P[i,j]<>j then permutace:=false else permutace:=true;

    end;

To tucna:jak elegatni reseni!Diky

to tucna: program matka;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
P : array [1..20, 1..20] of integer;
permutace : boolean;
N,i,j : integer;
cislice : set of byte;
begin


read(N);
cislice:=[1..N];
permutace:=true;

for i:=1 to N
do for j:=1 to N
do P[i,j]:=Random(N)+1;

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

for i:=1 to N
do begin
for j:=1 to N
do if P[i,j] in cislice then
begin
cislice:=cislice - [P[i,j]];
end;
if cislice=[] then permutace:=True else permutace:=False; //todle asi nebude spravne, ale nevedel jsem jak otestovat, kdyz je mnozina spravna
end;


write(permutace);
readln;
readln;


end.


ty jo ale stejne mi to nefunguje :-((((((

Zrovna nemám moc času, ale jak na to tak zběžně koukám příjde mi to ok. Možná to místo kde se ptáš jestli je ta množina prázdná - nejde použít length?

EDIT: a nezapomeň ještě, že tu proměnou cislice musíš po každém řádku znova naplnit čísly 1..N ;)

To tucna:diky moc..!!!!J

>Kadla:

Prosimte, rekl by si mi taky k tomu jak se ma delat spravne odsazeni?

if cislice=[] then permutace:=True else permutace:=False;

permutace:=cislice=[];

Možná to místo kde se ptáš jestli je ta množina prázdná - nejde použít length?

To Mircosoft:Jo a jeste bych se chtel zeptat, ted jsem resil priklad, kdy jsem mel vypsat pismena, ktere uzivatel nenapsal v retezci. Ja jsem to resil odcitanim z mnoziny vsech pismen. Mam ted jen takovej problem, ze nevim jak se vypisuje mnozina.Potrebuju vypsat, pismena, ktery uzivatel nenapsal...


Jinak jsem myslel spravne odsazeni ve zdrojaku

Hmmm... tak tohle je zajímavá úloha. Množina normálně vypsat nejde, musíš oklikou:

var znak:char;

    mnozina:set of char;

...

for znak:=#0 to #255 do if znak in mnozina then write(znak);

To Mircosoft: e co kdyz potrebuju vypsat zda dany prvek nelezi v mnozine? existuje neco jako not in?

Jasně:

if not (znak in mnozina) then ...

To Mircosoft:Diky...nedovedu ted popsat, jak jsem stastej!diky