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ų: 34
Prisijungusių narių: 0
Prisijungusių narių nėra

Registruoti nariai: 25,964
Naujausias narys: laleceylan50

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

Reikalas 4 savaitės
Kižas 5 savaitės
Bruksnys 6 savaitės
laleceylan50 7 savaitės
minimukas 8 savaitės
N-2010 savaitės
Rytis11 savaitės
DjArtas12 savaitės
WolfHammer12 savaitės
Nostesi23 savaitės
Wisedocs23 savaitės
asdasdddz26 savaitės
Paslapties K...28 savaitės
Audrius_1730 savaitės
Simbijanas42 savaitės
Karinacraft43 savaitės
Žmogus46 savaitės
Darexs53 savaitės
Nepas54 savaitės
keistuole56 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 216.73.217.109
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.

minimukas
2026 Vas. 21 08:02:25
oi oi akinanti šypsen yra dar cia gyvu? akinanti šypsen

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

Š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ų: 813      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ą: