Anonymní profil Jan – Programujte.com

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

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...

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

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...

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

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

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.

joudicek napsal:
a v cem je problem? :)