Reply to this topicStart new topicStart Poll

Outline · [ Standard ] · Linear+

> Help! Hitno Do Cetvrtka!, Zadatak pascal

Magdalina_kg
post 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.
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Magdalina_kg
post Feb 24 2009, 10:36 PM
Post #2





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



Evo opsirniji tekst:
dat nam je niz.A taj niz su listovi 1 binarnog stabla.Treba doci do vrha tako da je koren od dva lista max od ta 2 i onda tako do vrha.Znaci imamo listove i onda max od 1 i drugog clana je njihov koren pa onda 3 i 4 clana niza pa onda isti princip sve do vrha.treba to formirati
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
stefikg
post Feb 24 2009, 10:36 PM
Post #3





Group: Članovi
Joined: 24-February 09
Member No.: 1.139
Status: Van MGa
Ime i prezime: Stefan Radenovic
Škola/Razred: "I kragujevacka gimnazija"



dat nam je niz.A taj niz su listovi 1 binarnog stabla.Treba doci do vrha tako da je koren od dva lista max od ta 2 i onda tako do vrha.Znaci imamo listove i onda max od 1 i drugog clana je njihov koren pa onda 3 i 4 clana niza pa onda isti princip sve do vrha.treba to formirati.


pozurite pls
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
pyost
post Feb 24 2009, 10:48 PM
Post #4


Deus Ex Makina
Group Icon

Group: Administratori
Joined: 25-January 06
From: Beograd
Member No.: 2
Status: Bivši učenik MGa
Škola/Razred: RAF



Kako su dati podaci u nizu? Prvi element je koren, drugi i treci njegovi listovi, cetvrti i peti listovi drugog, sesti i sedmi listovi treceg itd?

Zapravo... Dat nam je samo poslednji nivo?


--------------------
Baby, it's a violent world.

Registrovani korisnik Linuxa broj 460770 [Ubuntu 7.10]
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
stefikg
post Feb 24 2009, 11:08 PM
Post #5





Group: Članovi
Joined: 24-February 09
Member No.: 1.139
Status: Van MGa
Ime i prezime: Stefan Radenovic
Škola/Razred: "I kragujevacka gimnazija"



da dat nam je poslednji nivo a mi treba da stignemo do vrha tako sto je koren za svaka 2 lista veci od ta dva broja. ako je

24
18 24
18 14 24 1
18 16 5 14 3 24 1

tako izgleda npr
i nama je dat ovaj poslednji niz a treba da ga formiramo do vrha
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
pyost
post Feb 24 2009, 11:09 PM
Post #6


Deus Ex Makina
Group Icon

Group: Administratori
Joined: 25-January 06
From: Beograd
Member No.: 2
Status: Bivši učenik MGa
Škola/Razred: RAF



Je li tu fali jedan element u poslednjem redu... ?


--------------------
Baby, it's a violent world.

Registrovani korisnik Linuxa broj 460770 [Ubuntu 7.10]
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
stefikg
post Feb 24 2009, 11:13 PM
Post #7





Group: Članovi
Joined: 24-February 09
Member No.: 1.139
Status: Van MGa
Ime i prezime: Stefan Radenovic
Škola/Razred: "I kragujevacka gimnazija"



ne ne fali moze i tako da bude onda je max taj broj sto stoji jel izmedju x i niceg veci je x
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
pyost
post Feb 24 2009, 11:20 PM
Post #8


Deus Ex Makina
Group Icon

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


--------------------
Baby, it's a violent world.

Registrovani korisnik Linuxa broj 460770 [Ubuntu 7.10]
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
VIP <3
post Feb 24 2009, 11:22 PM
Post #9





Group: Članovi
Joined: 7-February 07
Member No.: 425
Status: Bivši učenik MGa
Ime i prezime: Tatjana Nikolic
Škola/Razred: '90 IVd



kako si se nasmejao, bozo XD.gif


--------------------

Opsti kriminal.
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Magdalina_kg
post Feb 25 2009, 09:21 AM
Post #10





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 laugh.gif
*







hvala ti,ali potrebno je formiranje binarnog stabla i sve to,lako bismo mi da mora samo max... stefan je pogresno objasnio
















User is offlineProfile CardPM
Go to the top of the page
+Quote Post
pyost
post Feb 25 2009, 09:25 AM
Post #11


Deus Ex Makina
Group Icon

Group: Administratori
Joined: 25-January 06
From: Beograd
Member No.: 2
Status: Bivši učenik MGa
Škola/Razred: RAF



Pa dobro.. Kako se pamti binarno stable? Pretpostavljam da samo malo treba da se promeni kôd, tako da se nove vrednosti ne pamte u istom nizu...


--------------------
Baby, it's a violent world.

Registrovani korisnik Linuxa broj 460770 [Ubuntu 7.10]
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
calamity
post Feb 25 2009, 09:30 AM
Post #12





Group: Članovi
Joined: 4-April 07
From: Cambridge, MA, USA
Member No.: 491
Status: Van MGa
Škola/Razred: MIT junior, RAF alumna, Grobarska alumna



Ili treba preko pokazivaca? smile.gif
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
pyost
post Feb 25 2009, 09:41 AM
Post #13


Deus Ex Makina
Group Icon

Group: Administratori
Joined: 25-January 06
From: Beograd
Member No.: 2
Status: Bivši učenik MGa
Škola/Razred: RAF



E to ne zelim da radim dry.gif


--------------------
Baby, it's a violent world.

Registrovani korisnik Linuxa broj 460770 [Ubuntu 7.10]
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
stefikg
post Feb 25 2009, 12:23 PM
Post #14





Group: Članovi
Joined: 24-February 09
Member No.: 1.139
Status: Van MGa
Ime i prezime: Stefan Radenovic
Škola/Razred: "I kragujevacka gimnazija"



treba preko pokazivaca
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
SBS
post Feb 26 2009, 10:18 PM
Post #15



Group Icon

Group: Moderatori
Joined: 25-April 08
Member No.: 1.043
Status: Van MGa



eeee, da li ste na kraju rešili ? smile.gif


--------------------
зашто цитирати песму, кад једноставно можеш рећи своје мишљење: " Не волим кнедле са шљивама"!!!


Now i wanna sniff some glue!
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
calamity
post Feb 27 2009, 12:21 AM
Post #16





Group: Članovi
Joined: 4-April 07
From: Cambridge, MA, USA
Member No.: 491
Status: Van MGa
Škola/Razred: MIT junior, RAF alumna, Grobarska alumna



Pokazivaci u pascalu... never again...
User is offlineProfile CardPM
Go to the top of the page
+Quote Post

Reply to this topicTopic OptionsStart new topic
2 User(s) are reading this topic (2 Guests and 0 Anonymous Users)
0 Members: