منتديات معمورة لوف --- forum maamoura love
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.


لو لم أكن معموري لتمنيت أن أكون معموري
 
الرئيسيةأحدث الصورالتسجيلدخول

 

 corection ex 8 p 92

اذهب الى الأسفل 
3 مشترك
كاتب الموضوعرسالة
marouene

marouene


عدد الرسائل : 155
العمر : 35
الوصف الشخصى : sqw
تعيين الادارة : corection ex 8 p 92 Nachit10
تاريخ التسجيل : 29/10/2008

corection ex 8 p 92 Empty
مُساهمةموضوع: corection ex 8 p 92   corection ex 8 p 92 I_icon_minitimeالجمعة 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

Midos


عدد الرسائل : 26
العمر : 33
الوصف الشخصى : Grafidos
تعيين الادارة : corection ex 8 p 92 Nachit10
تاريخ التسجيل : 19/11/2008

corection ex 8 p 92 Empty
مُساهمةموضوع: رد: corection ex 8 p 92   corection ex 8 p 92 I_icon_minitimeالأحد 30 نوفمبر - 14:05

3aychou ya lem3alam:lol!:
الرجوع الى أعلى الصفحة اذهب الى الأسفل
mohamedhk2




عدد الرسائل : 103
العمر : 34
الوصف الشخصى : maamouri 7or
تعيين الادارة : corection ex 8 p 92 Nachit10
تاريخ التسجيل : 18/11/2008

corection ex 8 p 92 Empty
مُساهمةموضوع: رد: corection ex 8 p 92   corection ex 8 p 92 I_icon_minitimeالأحد 30 نوفمبر - 21:45

MERCIIIIIIIIIIIIIIIIIIIIIIIIIIII
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://3w.sartimes2.com#3w.tunisia-sat.com
 
corection ex 8 p 92
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» corection ex 4 p 91
» corection exercice 4 page 91

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات معمورة لوف --- forum maamoura love :: الأقسام العامة :: Special BAC 2008/2009-
انتقل الى: