[program transponowanie;uses crt;var i,j,k:byte; a:array[1..50,1..50] of integer;begin clrscr; randomize; writeln('podaj rozmiar tablicy kwadratowej'); readln(k); for i:=1 to k do begin writeln; for j:=1 to k do begin a[i,j]:=random(101)-50; write(a[i,j]:3, ' , '); end; end;writeln;writeln;writeln('wyświetlono tablicę');readln;end.]

Polecenie: Dokonać transponowania macierzy kwadratowej o rozmia­rze podanym przez użytkownika, tzn. zamienić i-ty wiersz z i-tą kolumną miej­scami (dla wszystkich wartości i).
Wyświetlić zawartość macierzy przed i po transponowaniu.
Macierz powinna być wypełniona liczbami losowymi z zakresu <-50,50>.



Program aktualnie wyświetla tablicę, z transponowaniem mam już problem. Aktualny kod przedstawia się następująco:

program transponowanie;

uses crt;

var
i,j,k:byte;
a:array[1..50,1..50] of integer;

begin
clrscr;
randomize;
writeln('podaj rozmiar tablicy kwadratowej');
readln(k);
for i:=1 to k do
  begin
  writeln;
   for j:=1 to k do
    begin
     a[i,j]:=random(101)-50;
     write(a[i,j]:3,  ' , ');
    end;
  end;
writeln;
writeln;
writeln('wyświetlono tablicę');
readln;
end.


help, pilne.

[program transponowanie;uses crt;var i,j,k : byte; a : array[1..50,1..50] of integer; b : array[1..50,1..50] of integer;begin clrscr; randomize; textcolor(yellow); writeln('podaj rozmiar tablicy kwadratowej i nacisnij ENTER'); readln(k); textcolor(red); for i:=1 to k do begin writeln; for j:=1 to k do begin a[i,j]:=random(101)-50; write(a[i,j]:3, ' , '); end; end; writeln; writeln; textcolor(yellow); writeln('wy˜wietlono tablic©'); writeln; writeln('nacisnij klawisz aby wyswietlic przetranspondowana'); readln; for i:=1 to k do for j:=1 to k do b[i,j]:=a[j,i]; writeln; textcolor(yellow); writeln('tablica przetransponowana'); textcolor(red); writeln; for i := 1 to k do begin for j := 1 to k do write(b[i,j]:3, ' , '); writeln; end; readln;end.]

eee, poradziłem sobie. Było to łatwiejsze niż początkowo myślałem. Kod końcowy jest następujący:

program transponowanie;

uses crt;

var
i,j,k : byte;
     a : array[1..50,1..50] of integer;
     b : array[1..50,1..50] of integer;

begin
clrscr;
randomize;
textcolor(yellow);
writeln('podaj rozmiar tablicy kwadratowej i nacisnij ENTER');
readln(k);
textcolor(red);
for i:=1 to k do
   begin
    writeln;
     for j:=1 to k do
      begin
       a[i,j]:=random(101)-50;
       write(a[i,j]:3,  ' , ');
      end;
   end;
writeln;
writeln;
textcolor(yellow);
writeln('wy˜wietlono tablic©');
writeln;
writeln('nacisnij klawisz aby wyswietlic przetranspondowana');
readln;
  for i:=1 to k do
   for j:=1 to k do
    b[i,j]:=a[j,i];
    writeln;
textcolor(yellow);
writeln('tablica przetransponowana');
textcolor(red);
writeln;
  for i := 1 to k do
   begin
    for j := 1 to k do write(b[i,j]:3, ' , ');
    writeln;
   end;
readln;
end.

Na której uczelni jeszcze uczą Pascala ? @_@

lukas_gab to ty jeszcze żyjesz?   

A  żyje żyje. Zawitałem, żeby upewnić się czy serwis bezpieczny, bo jedno z moich haseł wyciekło, jak i cała baza po ataku na jedno z wiodących grup dyskusyjnych programistycznych. Jednak na win7 miałem inne hasło więc strona bezpieczna  Co prawda jakiś czas temu ... uf ... doooooość sporo wstecz zarzuciłem funkcję, z powodu braku czasu, jednak po tych 2 latach na uczelni doszedłem już do wprawy w studiowaniu. Poważnie zastanawiam się nad powrotem tutaj, a co najmniej do pisania. Fakt - obecnie korzystam z Debiana 6 ,a to z powodu musu programowania w ASM pod linuxa z użyciem linuksowych funkcji systemowych, a obecny laptop nie uciągnie 7 wraz z debkiem na virtualce ... ale to tylko do czasu nowego komputera więc niebawem. Nie róbmy za dużego OT

@autor
Jak byś miał jeszcze jakieś problemy z macierzami to pisz. Gdzieś na czeluściach dysku leżą jeszcze moje programy do operacji na wektorach i macierzach, taki kalkulator tylko ze napisany w c++ i mfc, jednak może się przyda. Kod straszny bo pisałem te programy w autobusie D 40min przed laborkami ale jakoś działa ;p

Na której uczelni jeszcze uczą Pascala ? @_@

Nie wiem na jakiej uczelni, ale w bydgoskim elektroniku, w II klasie na informatyka pascal nie zginie nigdy
A co Twojej ostatniej wypowiedzi: zapamiętam ;d ale teraz już robimy wielomiany i schemat Hornera

Zacytuję znajomego w wypowiedzi nt. pascala :

"Pozwólcie mu umrzeć ! "

Nie widzę sensu programować w takim czymś, bo ani komercyjnie nie programuje się w tym już, ani szczególnie mądre to nie jest, bo to imperatyw i jeszcze kiepskiej jakości. Jeżeli myślisz o programowaniu poważnie pomyśl o czymś z rodziny C ( c++ jest posrane ... ale niestety nie zginie ), C# , Java. Zarządzane języki mają same plusy. Jeśli chodzi o paradygmat funkcyjny bez skutków ubocznych to Scala z JVM i niedługo na .NET czy Clojure, Haskell.

Ja też walczę teraz z Hornerem, tylko że w ASM ;p

Uczcie się C#! Żadne Pascale, czy Javy. W C# napiszesz program na Windows, grę na Xbox 360 z Kinectem, czy aplikację pod Windows Phone 7.

niestety póki co muszę znać pascala ;//
jeszcze rok i C wita ;d