Matematička gimnazija - Forum Matematičke gimnazije -> Help! Hitno Do Cetvrtka!

Matematička gimnazija - zvanična prezentacija Viva fizika

Početna strana Pravilnik Uputstvo za LaTeX

Dragi clanovi i posetioci foruma,

Mozda ce vam ova brojka zvucati neverovatno, ali Forum Matematicke gimnazije postoji vec vise 6 godina - od januara 2006. godine, ako zelimo da budemo precizni.

Sa vise od 1.000 clanova, 4.000 tema i 100.000 poruka predstavlja najvecu zajednicu orijentisanu ka Matematickoj gimnaziji i ucinio je nase srednjoskolske dane barem iole zanimljivijima. Ne samo da je bio mesto za visokointelektualne razgovore ucenika Matematicke gimnazije, vec i forum na koji smo dolazili da se druzimo sa ljudima iz cele Srbije, pa i regiona. Verujem da ne govorim samo u nase ime kada kazem da su ovde nastala mnoga poznanstva koja su se kasnije dalje razvijala u "pravom svetu".

Nazalost, ta idilicna vremena su sada iza nas. Tokom poslednjih nekoliko godina Internet u regionu je doziveo vrtoglav razvoj, i potreba za ovakvim forumima vise ne postoji. Pojavile su se socijalne mreze kao sto su Facebook i Twitter, i komunikacija je na mnogo visem nivou. Forum, iako pun korisnih informacija, vise ne sluzi svojoj prvobitnoj nameni.

Iz tog razloga, teska srca smo doneli odluku da Forum Matematicke gimnazije prestane sa radom. Od danas registracije na forumu nece biti moguce, ali ce sve poruke i dalje biti dostupne za pregled. Takodje, od prvog septembra forum vise nece biti dostupan na adresi mg-forum.net, ali ce se arhivi i dalje moci pristupiti preko adrese bozidarevic.com/mgforum . Takodje bismo zeleli da iskoristimo priliku i da uputimo sve bivse ucenike na Alumni Matematicke gimnazije - almagi.mg.edu.rs.

Hvala svima koji su ucestvovali u diskusijama i koji su pomogli da ovaj forum bude jedno prijatno mesto.

Administratorski tim MG Foruma

[ Outline ] · Standard · Linear+

Help! Hitno Do Cetvrtka!, Zadatak pascal

Track this topic | Email this topic | Print this topic

Magdalina_kg	Feb 24 2009, 10:28 PM Post #1
Group: Članovi Joined: 20-October 07 Member No.: 717 Status: Van MGa Ime i prezime: Magdalina Čivović Škola/Razred: Obdareni u matematičkoj gimnaziji-Prva kragujevačka gimnazija	zadatak mi treba u pascalu- formiranje binarnog stabla ako su listovi zadati u nizu,pa treba doci do korena.

Replies

pyost	Feb 24 2009, 11:20 PM Post #2
Deus Ex Makina Group: Administratori Joined: 25-January 06 From: Beograd Member No.: 2 Status: Bivši učenik MGa Škola/Razred: RAF	Mozda nije najjednostavnije, ali sta sad... CODE program stablo; var n, i, t: integer; niz: array[1..100] of integer; begin write('Unesite N: '); readln(n); writeln('Unesite elemente poslednjeg reda:'); for i:=1 to n do readln(niz[i]); while (n > 1) do begin t := 1; i := 1; while (i <= n) do begin if (i = n) then begin niz[t] := niz[n]; n := n + 1; end else begin if (niz[i] > niz[i+1]) then niz[t] := niz[i] else niz[t] := niz[i+1]; end; i := i + 2; t := t + 1; end; n := n div 2; end; writeln('Vrednost korena je ', niz[1]); readln(); end. A mozda nije ni tacno -------------------- Baby, it's a violent world. Registrovani korisnik Linuxa broj 460770 [Ubuntu 7.10]

Magdalina_kg	Feb 25 2009, 09:21 AM Post #3
Group: Članovi Joined: 20-October 07 Member No.: 717 Status: Van MGa Ime i prezime: Magdalina Čivović Škola/Razred: Obdareni u matematičkoj gimnaziji-Prva kragujevačka gimnazija	QUOTE(pyost @ Feb 25 2009, 12:20 AM) Mozda nije najjednostavnije, ali sta sad... CODE program stablo; var n, i, t: integer; niz: array[1..100] of integer; begin write('Unesite N: '); readln(n); writeln('Unesite elemente poslednjeg reda:'); for i:=1 to n do readln(niz[i]); while (n > 1) do begin t := 1; i := 1; while (i <= n) do begin if (i = n) then begin niz[t] := niz[n]; n := n + 1; end else begin if (niz[i] > niz[i+1]) then niz[t] := niz[i] else niz[t] := niz[i+1]; end; i := i + 2; t := t + 1; end; n := n div 2; end; writeln('Vrednost korena je ', niz[1]); readln(); end. A mozda nije ni tacno hvala ti,ali potrebno je formiranje binarnog stabla i sve to,lako bismo mi da mora samo max... stefan je pogresno objasnio