Navigacija

Namai Forumas PAIEŠKA ! ! Pagrindinės temos ! Nuorodų katalogas Didž. Php-F saitai Kontaktai
NAUDINGA
Straipsniai DUK Siuntimai Skriptų biblioteka Modai, dizainai Modai šiame saite D.U.K. Informacija Hostingai Domenai
Naudotojo vadovas v7 V6 ir V7 galimybių palyginimas DEMO
NUORODOS
Modifikacijos, panelės Temos/dizainai
PASLAUGOS
Reklama VIP hostingas
Pask. komentarai Administracija

Vartotojų tinkle

Prisijungusių svečių: 73
Prisijungusių narių: 0
Prisijungusių narių nėra

Registruoti nariai: 25,963
Naujausias narys: WolfHammer

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

N-20 4 dienos
Reikalas 5 dienos
Rytis 1 savaitė
DjArtas 2 savaitės
WolfHammer 2 savaitės
Nostesi12 savaitės
Wisedocs13 savaitės
asdasdddz16 savaitės
Paslapties K...17 savaitės
Audrius_1720 savaitės
Simbijanas32 savaitės
Karinacraft33 savaitės
Žmogus36 savaitės
Bruksnys40 savaitės
Darexs43 savaitės
Nepas43 savaitės
keistuole45 savaitės
Gizmis47 savaitės
MaFetas61 savaitės
ozzWANTED62 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 216.73.216.163
Naujienų: 529
Straipsnių: 235
Temų: 52,590
Postų: 522,550
Postų pask. parą: 0
Shout'ų pask. parą: 0
P.S.C. pask. parą: 0
Nuorodų kataloge: 13

Lankomumo Statistika

Peržiūrų šiandien: 22

Iš viso peržiūrų: 22948724

Prisijungti

REGISTRUOTIS
Nario vardas

Slaptažodis



Pamiršai slaptažodį?
Paprašyk naujo
Aktyvuoti save

Šaukykla

Jei norite rašyti žinutes, turite prisijungti.

N-20
2026 Vas. 6 21:02:05
O mes dar gyvi šypsosi)

WolfHammer
2026 Sau. 25 01:01:35
drovus

Žmogus
2025 Geg. 31 10:05:18
Kas geresnio? šypsosi

Nepas
2025 Bal. 9 17:04:13
drovus

Nepas
2025 Bal. 9 17:04:08
drovus

Šaukyklos archyvas

Apklausa

Ar esate patenkinti lietuviško vertimo kokybe?

Taip!

Taip, bet yra ką taisyti (parašysiu komentaruose)

Ne

Norėdamas balsuoti turite prisijungti.
Archyvas
Reklama 400x60
Paskalio medžiai
Forumas | Kita | Off-Topic diskusijos
Autorius: untitled Peržiūrų: 800      Spausdinti temą
2010 Kov. 9 18:03:52          1 žinutė iš 1
Spausdinti pranešimą
Sveiki, gal kas gali padėti su tokia užduotimi?

2. Dvejetainio medžio viršūnę aprašo toks įrašas:
type T = ...;
Medis = ^viršūnė;
viršūnė = record
INFO : T;
K, D : Medis;
end;
Sukurta procedūra medžiui trinti:
procedure Trink(P: Medis);

function ArLapas(P: Medis): boolean;
begin
ArLapas := (P^.K = nil) and (P^.D = nil);
end;

procedure TrinkLapą(var P: Medis);
begin
dispose(P); P := nil;
end;

begin
if (P^.K <> nil)
then
if ArLapas(P^.K) then TrinkLapą(P^.K) else Trink(P^.K);
if (P^.D <> nil)
then
if ArLapas(P^.D) then TrinkLapą(P^.D) else Trink(P^.D);
if ArLapas(P) then TrinkLapą(P);
end;

Tačiau procedūra veikia neteisingai: ištrinami tik lapai ir jų tėvai. Raskite klaidą ir paaiškinkite ją. Ištaisykite procedūrą, kad ji veiktų korektiškai – trintų visą medį.

Ir dar - ką reiškia „^“
Peršokti į forumą: