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

شاطر | 
 

 corection exercice 4 page 91

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

avatar

عدد الرسائل : 155
العمر : 30
الوصف الشخصى : sqw
تعيين الادارة :
تاريخ التسجيل : 29/10/2008

مُساهمةموضوع: corection exercice 4 page 91   الجمعة 28 نوفمبر - 1:27

program exe4p91;
uses wincrt;
var ch:string;
c:char;
function pair_c(ch:string;c:char;i,nb:integer):boolean;
begin
if length(ch)<2 then pair_c:=false
else if i>length(ch) then if nb mod 2=0 then pair_c:=true else pair_c:=false
else if ch[i]=c then pair_c:=pair_c(ch,c,i+1,nb+1)
else pair_c:=pair_c(ch,c,i+1,nb);
end;
begin
writeln('ch=');readln(ch);
writeln('caractere=');readln(c);
if pair_c(ch,c,1,0) then writeln(ch,' contient un nombre pair de ',c)
else writeln(ch,' ne contient pas un nombre pair de ',c)
end.
La fonction retourne un booléen car dans l’énonce on demande d’écrire une fonction qui teste si une chaîne contient un nombre pair de c.

{ solution de l'exercice tri insertion récursive d'un tableau }
program tri_insertion;
uses wincrt;
type tab = array[1..50]of integer;
var
t:tab;
n, i :integer;

procedure remplir(var t:tab;var n:integer);
begin
repeat
writeln('n=');readln(n);
until n in [2..50];
for i:= 1 to n do
begin
writeln('t[',i,']');
readln(t[i]);
end;
end;
procedure decaler(var t:tab;j,tmp:integer);
begin
if j>=1 then if t[j]> tmp then begin t[j+1]:=t[j] ;decaler(t,j-1,tmp);end else t[j+1]:=tmp
else t[j+1]:=tmp;
end;
procedure insertion(var t:tab;d,n:integer);
begin
if d<=n then begin if t[d] insertion(t,d+1,n);end;
end;
begin
remplir(t,n);
insertion(t,2,n);
for i:= 1 to n do
writeln('t[',i,']= ',t[i]);
end.

N.B : J’attends vos commentaires
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
mohamedhk2



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

مُساهمةموضوع: رد: corection exercice 4 page 91   السبت 29 نوفمبر - 23:25

MERCIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://3w.sartimes2.com#3w.tunisia-sat.com
 
corection exercice 4 page 91
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» Exemples d'exercices de sport pour femmes

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