hellllllllllp me

**RaNiMe** · 06-02-2010 09:01 AM

salam svp je veu un tp en pascal de liste chainé
^^khotkom zarga fi lé list chainé
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
L une liste doublement chainé,prem fi sont ler pointeur
ecri algo
a\inserer un element de valeur V en tete de liste bilatéral
b\supprimer tous les occurences de valeur V de list L

**bibo** · 06-02-2010 10:22 AM

allouer(q) ;
aff-val(L,v);
aff-add(q,tete);
tete:=q;
والله اعلم
لكن مادا تعني كلمة liste bilatéral

unit bibo;

interface

type
noued=^pointeur;
pointeur=record
info:integer;
svt:noued;
end;

implementation
procedure allouer(var p:noued);
begin
new(p);
p^.svt:=nil;
end;
procedure aff_val(var p:noued;val:integer);
begin
p^.info:=val;
end;
procedure aff_adr(p,q:noued);
begin
p^.svt:=q;
end;
function suivant(p:noued):noued;
begin
suivant:=p^.svt;
end;
procedure liberer( var p:noued);
begin
dispose(p)
end;
function valeur( var p:noued):integer;
begin
valeur:=p^.info;
end;
end.

c'est une unite jj ne cc pas cc vous l'avez etudier

**ريانة الجزائر** · 06-02-2010 02:39 PM

السلام عليكم...

وضحي التمرين جيدا اختي لتسهل مساعدتك...

الحل الذي وضعته bibo يخص une liste chainée simple,وأظن ان التمرين بـ liste doublement chainée,,

لكن ما معنى liste bilatéral ؟؟

**RaNiMe** · 06-02-2010 04:16 PM

mrci bibo et riyana
j recri
=========
soit une liste L doublement chainée dont les elements sont de type entier.et un pointeur prem et fin qui pointent respectivement sur premier et dernier element de la liste
ecrire une séquence algorithmique pour chacun des cas suivant
a\inserer un élément de valeur V en tete de liste bilatérale
(b\supprimer tous les occurrences de valeur V de la liste L(a realiser en tp

**RaNiMe** · 06-02-2010 04:17 PM

on a fai ca en td 2 function
eske nektebhom???

**ريانة الجزائر** · 06-02-2010 04:40 PM

ضعي ما عندك هنا و انا ساساعدك ان شاء الله...

،؛،؛،

اخبريني متى تحتاجينه؟؟؟

اذا لم تكوني مضطرة ساحاول وضع الحل غدا مساءا لاني لا املك الوقت الكافي حاليا...

**RaNiMe** · 06-02-2010 08:08 PM

mrc pccp Ryana
nehtajah MARDI inchallah
khasni program pricipal
*****************
function insert(prem:ptr;v:integer):ptr;
var nouv:ptr
begin
new(nouv)
nouv^.val:=v
nouv^.prec:=nil
prem^.prec:=nouv
nouv^.suiv:=prem
insert:=nouv;
end;

**RaNiMe** · 06-02-2010 08:11 PM

ptr(pointeur)
**********
function supp(prem:ptr;v:integer)
var p:ptr;
if(prem^.val:=v) then
begin
p:=prem;
prem:=prem^.suiv;
prem^.prec:=nil
dispose(p)
end;
end.

**bibo** · 07-02-2010 03:11 PM

السلام عليكم

le program principale c comme ca..................
begin
write('entre la valeur de v=');
read(v);
inseret;
end.
c vous voullez suprimer la valeur 'v' vous avez cas changeeee le mott'inseret'''avec
''supp""

سلام

**RaNiMe** · 11-02-2010 08:05 AM

sllllllllt
mrc bzf
bibooooo

الموضوع: hellllllllllp me

أدوات الموضوع

عرض

hellllllllllp me

رد: hellllllllllp me

رد: hellllllllllp me

رد: hellllllllllp me

رد: hellllllllllp me

رد: hellllllllllp me

رد: hellllllllllp me

رد: hellllllllllp me

رد: hellllllllllp me

رد: hellllllllllp me

معلومات الموضوع

الأعضاء الذين يشاهدون هذا الموضوع

مواقع النشر (المفضلة)

مواقع النشر (المفضلة)

ضوابط المشاركة