عدد الرسائل : 155 العمر : 35 الوصف الشخصى : sqw تعيين الادارة : تاريخ التسجيل : 29/10/2008
موضوع: corection ex 8 p 92 الجمعة 28 نوفمبر - 1:33
program ex8p92; uses wincrt;
type tab=array[1..100] of integer; var n,a,b:integer; t:tab; procedure remplir(var v:tab;n:integer); var i:integer; begin for i:=1 to n do begin write('t[',i,']='); readln(v[i]); end; end; function recherche_seq(var v:tab;n,a:integer):boolean; begin if n<0 then recherche_seq:=false else if v[n]=a then recherche_seq:=true else recherche_seq:=recherche_seq(v,n-1,a); end;
begin write('donner la taille d''un tableau:'); readln(n); remplir(t,n); write('donner la valeur a rechercher:'); readln(a); if recherche_seq(t,n,a) then write(a,' existe dans le tableau T') else write(a,' n''existe pas dans le tableau T'); end.
Midos
عدد الرسائل : 26 العمر : 33 الوصف الشخصى : Grafidos تعيين الادارة : تاريخ التسجيل : 19/11/2008
موضوع: رد: corection ex 8 p 92 الأحد 30 نوفمبر - 14:05
3aychou ya lem3alam:lol!:
mohamedhk2
عدد الرسائل : 103 العمر : 34 الوصف الشخصى : maamouri 7or تعيين الادارة : تاريخ التسجيل : 18/11/2008
موضوع: رد: corection ex 8 p 92 الأحد 30 نوفمبر - 21:45