لو لم أكن معموري لتمنيت أن أكون معموري
 
الرئيسيةالأعضاءالمجموعاتالتسجيلدخول

شاطر | 
 

 corection ex 8 p 92

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

avatar

عدد الرسائل : 155
العمر : 30
الوصف الشخصى : 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

avatar

عدد الرسائل : 26
العمر : 28
الوصف الشخصى : Grafidos
تعيين الادارة :
تاريخ التسجيل : 19/11/2008

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

3aychou ya lem3alam:lol!:
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
mohamedhk2



عدد الرسائل : 103
العمر : 29
الوصف الشخصى : maamouri 7or
تعيين الادارة :
تاريخ التسجيل : 18/11/2008

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

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

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