Outline · Standard · [ Linear+ ] Help! Hitno Do Cetvrtka!, Zadatak pascal

[Magdalina_kg]

zadatak mi treba u pascalu- formiranje binarnog stabla ako su listovi zadati u nizu,pa treba doci do korena.

[Magdalina_kg]

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

[stefikg]

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

[pyost]

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?

[stefikg]

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

[pyost]

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

[stefikg]

ne ne fali moze i tako da bude onda je max taj broj sto stoji jel izmedju x i niceg veci je x

[pyost]

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

[VIP <3]

kako si se nasmejao, bozo

[Magdalina_kg]

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

[pyost]

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

[calamity]

Ili treba preko pokazivaca?

[pyost]

E to ne zelim da radim

[stefikg]

treba preko pokazivaca

[SBS]

eeee, da li ste na kraju rešili ?

[calamity]

Pokazivaci u pascalu... never again...