PASCAL - Zadaci, resenja, problemi, izazovi...

[NemanjaNS90]

A mozda da objasnis i sta je magicni kvadrat...?

 

[ScoobyBu2]

Magicni kvadrat n-tog reda je kvadratna shema n×n brojeva od 1 do n2 u kojoj je zbir u svakoj vrsti, koloni i dijagonali jednak.

Primjer:

 

[ScoobyBu2]

 

[ScoobyBu2]

Tacnije ovako glasi zadatak:

{napisati program pomocu koga se za svaki neparan broj[n-2k+1] formira magicni kvadrat u kome ce zbir ovih svih vrsta i kolona, glavne i sporedne dijagonale bit jednak}

 

[NemanjaNS90]

Aha, zaboravio sam skroz da se to zove magicni kvadrat. Ja sam jednom cuo algoritam za resavanje magicnog kvadrata koji izgleda funkcionise, ali ne znam da dokazem da je to tako. Potrebno je recimo za (crveni)magicni kvadrat (5x5) sa slike napraviti ovo prosirenje i redom upisivati brojeve od 1 do 25 kao na slici(crni) a zatim sve one koji su van kvadrata premestiti na njihovo mesto tako sto se ovi koji su levo od kvadrata pomere za 5 polja u desno, ovi koji su desno od kvadrata za 5 polja u levo, itd.

Ispostavlja se, mada me opet mrzi da dokazujem, da sledece parce koda rasporedjuje briojeve na trazeni nacin ako se za kvadrat nxn posmatra matrica [0..n-1]x[0..n-1].

y:=n div 2;
x:=y+1;
for i:=1 to n*n do begin
   kvadrat[x,y]:=i;
   if i MOD n=0 then
      x:=(x+2) MOD n;
   else begin
      x:=(x+1) MOD n;
      y:=(y+1) MOD n;
   end;
end;

 

[ScoobyBu2]

Zanimljivo, pa vidim da se dosta dobro resavas ove zadacice znas li da rijesis ovaj sa magicnim kvadratom, ja bas nemam predstavu....

 

[NemanjaNS90]

Pa dao sam ti kod gore za kvadrat nxn. Samo je bila greska kod kvadrat[x,y]:=1; treba kvadrat[x,y]:=i;

 

[Malcolm X]

Imam windows 7 i ocu da instaliram Delphi(u njemu ima paskal radimo u skoli sa njim...).....ali treba neka sifra koju nemogu da nadjem na google.......
E sad mozda treba neki drugi delphi za w7......sta mislite......mozete li mi kako pomoci

 

[ScoobyBu2]

Izvini Nemanja, snam da te malo smaram, ali ja puno nisam radio u Free Pascalu ali sam dosta citao i ucio to programiranje ali nemam dovoljno rutine, ovaj dio koda jel treba u funkciju da ubacim, i treba li mi prije toga da napravim dvije procedure: UnosMatrice i StampaMatrice??

 

[NemanjaNS90]

Ja ne znam sta se tacno trazi u zadatku. Ja sam ti dao deo koda koji popunjava matricu kvadrat za neko proizvoljno n tako sto u polja [0,0] do [n-1,n-1] rasporedi ove trazene brojeve. Ako trebas da ispises matricu, napravi proceduru koja to radi, ak otreba da ucitas n, ucitaj n i sl. Ja sam ti dao deo koda koji radi to sto si ti trazio kako sam ja razumeo. Ono za cime ne vidim potrebu je ucitavanje matrice jer matricu, koliko sam razumeo, ti treba da popunis.

 

[ScoobyBu2]

Ja ne znam sta se tacno trazi u zadatku. Ja sam ti dao deo koda koji popunjava matricu kvadrat za neko proizvoljno n tako sto u polja [0,0] do [n-1,n-1] rasporedi ove trazene brojeve. Ako trebas da ispises matricu, napravi proceduru koja to radi, ak otreba da ucitas n, ucitaj n i sl. Ja sam ti dao deo koda koji radi to sto si ti trazio kako sam ja razumeo. Ono za cime ne vidim potrebu je ucitavanje matrice jer matricu, koliko sam razumeo, ti treba da popunis.

-- Znas kako, treba da mi izbaci poruku ('Unevi broj vrsta i broj kolona matrice nxn:');
i ja tu da unesem npr. 3x3, 5x5...nebitno, i program onda da mi sam izbaci sve mogucnosti matrice npr.3x3 ili 5x5 tako da zbir kolona vrsta i dijagonale bude jednak: primjer:

8 1 6 (=15)
3 5 7 (=15) Ovo je za matricu 3x3.
4 9 2 (=15)
(=15)

17 24 1 8 15 (=65)
3 5 7 14 16 (=65)
4 6 13 20 22 (=65) Ovo je za matricu 5x5.
10 12 19 21 3 (=65)
11 18 25 2 9 (=65)
(=65)

 

[NemanjaNS90]

Ako treba sve mogucnosti, onda moras raditi bektrekom. A ako ti treba samo jedna matrica, onaj kod koji sam ti napisao ce je popuniti, a tebi ostane samo da uneses n i ispises matricu.

 

[ScoobyBu2]

Nece da mi kompajluje ovaj kod, nema veze bracki, fala ti!

 

[shek]

ee izvinite znali iko gde ima *Metodicka zbirka zadataka iz programiranja sa resenjima u pascal-u* ma internetu da se skine ili nesto slicno hvla unapred..

 

[znaci ja]

e ljudi pomagajte ako znate da radite u visual-u ... i c++ ... treba mi za maturu ... inace to me nikad nije zanimalo , pa ga nisam ni ucio .. ali sada mi treba ..... molim vas nek se neko javi ako zna .... treba da uradim zadatak ... poz

 

[Winex]

Kako najjednstavnije sortirati matricu po vrstama, u neopadajućem poretku?

 

[NemanjaNS90]

Sta znaci sortirati matricu? Da li kolone treba da ostanu nepromenjene pa da sortiras cele kolone ili se sortiraju elementi? Ako se sortiraju elementi, daj neki primer i objasnjenje kako treba da bude sortirano.

 

[Winex]

Ako imamo matricu:
2 | 3 | 1
1 | 3 | 2
4 | 5 | 3

treba da izgleda:

1 | 2 | 3
1 | 2 | 3
3 | 4 | 5

Znači, samo sortira vrste, kolone ne dira.

 

[NemanjaNS90]

Posto je matrica u stvari niz nizova, dovoljno je sortirati svaki od tih nizova. Za sortiranje postoji gomila algoritama i za manje matrice (100x100 i manje) ti je dovoljan bubble, insertion ili selection sort, a za neke vece mozes koristiti quick, merge, heap ili neki drugi. Svaki od njih mozes naci na wiki ili proguglati negde drugde.

 

[Winex]

Da l' sam nesposoban.
Isprobao sam ovaj bubble, i u teoriji on radi, i radi za nizove, ali na matrice ne umem da ga primenim.
Sve sam isprobao.

Desi se da ili obriše jednu vrstu, ili istumba kolone:
početne vrednosti:
1 | 2
3 | 4
5 | 6

posle sortiranja:
1 | 4
3 | 6
5 | 2

Moguće je i da je problem što radim u delfiju, pa zajebem neki deo..

 

[NemanjaNS90]

Napisi taj deo koda gde je sort da pogledam.

 

[Winex]

procedure TForm1.Button2Click(Sender: TObject);
  var i, k, s, n, m: integer;
  pom: string;
begin
  m := StringGrid1.ColCount;
  n := StringGrid1.RowCount;

  for i := 1 to n do
    for s := 1 to m - 1 do
      for k := s + 1 to m do
      if StringGrid1.Cells[i,s] > StringGrid1.Cells[i,k] then
      begin
        pom := StringGrid1.Cells[i,s];
        StringGrid1.Cells[i,s] := StringGrid1.Cells[i,k];
        StringGrid1.Cells[i,k] := pom;
      end;
end;

 

[NemanjaNS90]

Ne znam sta se desava, deluje ok ovako na prvi pogled. Probaj malo da testiras na jednostavnijim primerima da vidis sta se desava ili da ubacis u sam sort neko stampanje medjurezultata pa da vidis zasto to radi. Jedina stvar koja meni pada na pamet je da si mozda obrnuo indekse tj da prvi indeks oznacava kolonu a drugi red pa proveri da nije to u pitanju. Ako nije tu problem, stvarno ne znam sta je u pitanju, sve mi deluje ok.

 

[Winex]

Probao sam da yamenim indexe, onda iseče jednu kolonu ili red.

 

[NemanjaNS90]

Ne znam onda, ok je sort koliko vidim.