عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا
ادارة المنتدي
دخول

لقد نسيت كلمة السر

بحـث
 
 

نتائج البحث
 


Rechercher بحث متقدم

المواضيع الأخيرة
» البرنامج الرسمي المعتمد في تعليم قانون الطرقات بالبلاد التونسية
الإثنين 20 مايو - 9:26 من طرف salhi mokded

» اقوى برنامج لجلب البسورد فى دقيقه للمبتدين
الأحد 12 مايو - 14:25 من طرف rabie djerbiano

» ربوخ تونس 100%
الجمعة 26 أغسطس - 2:01 من طرف farfar

» فضاء الرّياضيات للباكالوريا
الثلاثاء 22 مارس - 14:05 من طرف Admin

» انفراد البوم خالد عجاج " بنت الحته " Ripped From Original CD @ 320Kbps
الجمعة 11 فبراير - 23:43 من طرف bilelbilel645

» حصريا البوم محمد كيلاني " مفيهوش غلطه " 2011
الأربعاء 26 يناير - 0:49 من طرف bilelbilel645

» مجموعة ديكورات لصالات الأفراح
الخميس 23 ديسمبر - 17:15 من طرف Admin

» خطوات مهمة قبل مكياجك
الأحد 19 سبتمبر - 21:23 من طرف Admin

» Naruto Shippuuden sous titrage arabe
الخميس 9 سبتمبر - 18:39 من طرف Mohamed

المتواجدون الآن ؟
ككل هناك 6 عُضو متصل حالياً :: 0 عضو مُسجل, 0 عُضو مُختفي و 6 زائر

لا أحد

[ مُعاينة اللائحة بأكملها ]


أكبر عدد للأعضاء المتواجدين في هذا المنتدى في نفس الوقت كان 28 بتاريخ الجمعة 11 مايو - 10:06
facebook

bac pratique2008-correction

اذهب الى الأسفل

bac pratique2008-correction

مُساهمة من طرف Admin في الخميس 7 يناير - 14:51

Série De Révision Pratique
Correction

Sujet 22mai 14h
program p22mai14h;
uses wincrt;
type tab=array[1..30] of integer;
var
i,p,n,x:integer;
t:tab;

procedure saisie(var n:integer;var t:tab;var p:integer);
var
i:integer;
begin
repeat
writeln('introduire n');readln(n);
until n in [5..30];
randomize;
for i:=1 to n do
t[i]:=random(1000)+1;
repeat
writeln('introduire un indice p');readln(p);
until p in [2..n];
end;

function verif(t:tab;x:integer):integer;
var
tr,s:integer;
begin
tr:=0;
i:=x-1;
s:=0;
repeat
s:=s+t[i];
i:=i-1;
if s=t[x] then tr:=i;
until((tr<>0) or (i=0));
verif:=tr;
end;

procedure affiche(t:tab;n:integer);
var
i:integer;
begin
for i:=1 to n do
write(t[i],' ');
end;

begin
saisie(n,t,p);
affiche(t,n);
x:=verif (t,p);
if x=0 then writeln('condition non vérifiée')
else
begin
for i:=x to p-1 do
write(t[i], ' ');
end;

end.


Sujet 22mai9h
program p22mai9h;
uses wincrt;

var n :longint;

procedure saisir(var x:longint);

begin
repeat
writeln('saisir un entier naturel>9');
readln(x);
until (x>9);
end;

procedure calcul(x:longint);
var i,z,y,e:integer;
ch:string;
t:array[1..50]of integer;
begin
str(x,ch);
for i:=1 to (length(ch)) do
begin
val (ch[i],z,e);
t[i]:=z;

end;
val (ch[1],y,e);
for i:= 2 to (length(ch)) do
begin
y:= y+t[i];
if (y>=9) then y:= y-9;
end;

if (y=0) then writeln('le nombre est divisible par 9');
if (y<>0) then writeln ('le nombre n''est pas divisible par 9');
end;

Sujet 22mai15h
program p22mai15h;
uses wincrt;
type tab= array [1..30] of string;
var i,n,j:integer;
t:tab;

procedure saisie(var n:integer;var t:tab);
var
i:integer;
begin
repeat
writeln('saisir n');
readln(n);
until n in [3..30];
for i:=1 to n do
begin
writeln('saisir t[',i,'] ');
readln (t[i]);
end;
end;

procedure supprime (var t:tab;n:integer );
var l,i,j:integer; ch:string;
begin
for j:=1 to n do
begin
ch:=t[j];
l:=length(ch);
i:=0;
repeat
i:=i+1;
if not (upcase(ch[i]) in ['A'..'Z']) then
delete (ch,i,1);

until(i=l);
writeln(j,'**',ch);
end;
end;

begin
saisie (n,t);
supprime (t,n);
end.

Sujet23mai9h
program p23mai9h;
uses wincrt;
var
ch,m:string;
procedure saisie(var m:string);
begin
repeat
readln(m);
until length(m) in [4..8];
end;

procedure codage(s:string;var mp:string);
var
c:char; i:integer; x:string;
begin
mp:='';
for i:=1 to length(s) do
begin
c:=s[i];
case c of
'0': x:='-----' ;
'1': x:='.----' ;
'2': x:='..---' ;
'3': x:='...--' ;
'4': x:='....-' ;
'5': x:='.....' ;
'6': x:='-....' ;
'7': x:='--...' ;
'8': x:='---..' ;
'9': x:='----.';
end;
mp:=mp+x+'?';
end;
end;
begin
saisie(ch);
codage(ch,m);
writeln('le code est',m);
end.


Sujet 23mai10h30
program p23mai10h30;
uses wincrt;
type tab=array[1..30] of string[10];

var
t:tab;n:integer;
procedure saisie1(var n:integer);
begin
repeat
writeln('introduire n');readln(n);
until n in [1..30];
end;


procedure saisie(var t:tab;n:integer);
var
x1:string;
j:integer;
trouve:boolean;

function existe(t:tab;n:integer;x:string):boolean;
var
tr:boolean;i:integer;
begin
i:=0;
tr:=false;
repeat
i:=i+1;
if t[i]=x then tr:=true;
until (tr or (i=n)) ;
existe:=tr;
end;

begin
for j:=1 to n do
begin
repeat
writeln('introduire l''élément d''indice ',j);readln(x1);
trouve:= existe(t,n,x1) ;
until ((length(x1)=Cool and (trouve=false)) ;
t[j]:=x1;
end;
end;
procedure affiche(t:tab;n:integer);
var
i:integer;
begin
for i:=1 to n do
writeln(t[i]);
end;
begin
saisie1(n);
saisie(t,n);
affiche(t,n);
end.
avatar
Admin
المدير العام
المدير العام

الجنس : ذكر
عدد الرسائل : 690
العمر : 27
نقاط : 3270
الشكر : 3
تاريخ التسجيل : 09/12/2008

Feuille de personnage
jeux de role:

http://www.gommez.al7iwar.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى