Program s matici – Pascal – Fórum – Programujte.com

Zdravim,
potreboval bych trochu poradit jak vytvorit tento program:
Program nacte z jednoho souboru prirozene cislo M, ctvercovou matici A typu M,N a tuto matici vytiskne. Dale pak vytiskne matici, ktera se od matice A lisi tim, ze ma prohozeny 1. radek s 1. sloupcem.

a v cem je problem? :)

joudicek napsal:
a v cem je problem? :)

hrozne nudny tema..hrozne me nebavilo
ale podivej se na dvojrozmerny pole a cyklus FOR a zkus napsat vytvoreni a vypsani matice. to je jeste docela jednoduchy. az to budes mit tak to sem hod a s tim preklopenim ti pomuzu, mam to v sesite...

Tak sem dal dohromady nejak ten vypis...
Snad je to spon trochu dobre :-D

uses

  SysUtils;



const Matica = 'matice.txt';



type Matice = array[1..100,1..100] of Integer;

     SM = text;



var M,N : Matice;

    Vstup : SM;

    Rd,i,j,k : Integer;



begin

Assign (Vstup,Matica);

  Reset (Vstup);

  ReadLn (Vstup,Rd);

   Write ('Zakladni matice');

   writeln;

  for i := 1 to Rd do

  begin

    for j := 1 to Rd do

    begin

      Read (Vstup,M[i,j]);

      Write (M[i,j] : Rd)

    end;

    ReadLn (Vstup);

    WriteLn;

  end;



  readln

end.

jelikoz to mas se souborama se kterejma se teprve zaciname ucit tak ti hodim jak sme to delali my:

procedure VYTVOR(M,N:integer; var A:DVOJPOLE);

var I,J:integer;

begin 

 for 	I:=1 to M do

  for J:=1 to N do

    readln(A[I,J]);

end;



procedure VYPIS(M,N:integer; A:DVOJPOLE);

var I,J:integer;

begin

 for I:=1 to M do

  begin

   for J:=1 to N do

    write(A[I,J],' ');

    writeln;

   end;

end;

procedure PREKLOPENI(M:integer; var A:DVOJPOLE);

var I,J,POM:integer;

begin

 for I:=1 to M-1 do

  for J:=I+1 to M do

   begin

     POM:=A[I,J];

     A[I,J]:=A[J,I];

     A[J,I]:=POM;

   end;

end; 

Fiha...tak takto to vazne nejak neumim dat dohromady aby se to prohodilo jak ma...

Jestli mas prohodit jenom prvni radek s prvnim sloupcem a nic jineho, tak ten for bude jenom jeden:
for i:=2 to rozmer_matice do begin prohod prvek na [1,i] s prvkem na [i,1]; end;

Smysl to samozrejme bude mit jenom pro ctvercovou matici, jinak by v radku prvky prebyvaly a ve sloupci chybely nebo naopak.
Od dvojky zacinam proto, ze prohazovat prvek v levem hornim rohu sam se sebou je zbytecne.

Porad mi to nejak nejde rozchodit aby to ten radek stim sloupcem prohodilo...
Prvni pulku mam...a to prohozeni mi proste nejde...

tak se pochlub kodem, at se treba poucis z chyby.

Tak snazil sem se na to prijit pomoci vys postovanych prispevku...ale pravr nic kloudneho se mi nepodarilo dat dohromady...proste vazne netusim jak prohodit ten radek za sloupec...

Konec skolniho roku a nikdo nic neumi.

for I:=2 to M do
begin
POM:=A[1,i];
A[1,i]:=A[i,1];
A[i,1]:=POM;
end;

Kdyz M je rozmer matice.

vzdyt to sem psal o par postu vyse...

A beztak sem porad v haji zelenem...neumim tu matici potom vypsat....

rikame ti uz nekolikrat at sem nahodis kod kterej uz mas a my ti s nim poradime. ale jestli cekas ze budes narikat jak ti to nejde a my se smilujeme a napisem ti to tak se hodne mylis...

Tak bohuzel mam udelanou jen tu prvni polovinu...viz vyse...coz je vypis dane matice ze souboru...ale uz nejak nedokazu napsat to prohozeni a vypis...

Bohužel jsem neměl čas, viz výše, ale teď už se ti budu věnovat s plným servisem, tady to je:

Prohození
for I:=2 to M do
begin
POM:=A[1,i];
A[1,i]:=A[i,1];
A[i,1]:=POM;
end;

Kdyz M je rozmer matice.

:smile5:

Ja vim sem na to strasny drevo...Pascal to neni zrovna moje...
Jeste pak nevim jak to vypsat...

Vypsat?
Heuréka, Já jsem zapomněl, jsem na to strašnej jelen , to jsem ti přece už psal, o pár 3,4 příspěvky nahoře :D

Vidim, že se toho nezbavime. Když najdu zítra čas, tak ti to napíšu a hodím sem.