العودة   منتديات تونيزيـا سات > قسم التعليم والعلوم والتكنولوجيا > المنتدى التعليمي > الباكالوريا


إضافة رد
 
أدوات الموضوع ابحث في الموضوع انواع عرض الموضوع
قديم 18-04-2011, 00:08 رقم المشاركة : 1
معلومات العضو
3abdessèmi3
3abdessèmi3 متواجد حالياً
مراقب المنتدى التعليمي

الصورة الرمزية 3abdessèmi3

إحصائية العضو





3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute

Thumbs up Bac pratique 2010/2011-- Informatique sections scientifiques


Les examens pratiques pour les sections scientifiques ont été fixés pour 24 et 25 Mai 2011



le but de ce sujet est de bien préparer pour passer l'examen mentionné donc toutes vos questions seront les bienvenues.

Bien évidement, tout le monde est invité à respecter la charte du forum (pas de langage sms S.V.P et de demandes de correction)


مثبت: قانون المنتدى التعليمي

مثبت:
Remarque importante

Je compte aussi sur la collaboration de différents collègues (après l'aide de dieu)

Voici ci joint les examens pratiques de l'année dernière.


Je tiens à signaler que ce sujet est consacré pour les élèves du 4ème année scientifiques (sciences expérimentales, mathématiques et sciences techniques)


Nous attendons vos brouillons et vos questions


الله الموفّق






الملفات المرفقة حذاري من تحميل ملفات مشبوه بها.
اغلب الاحيان قد تحتوي على ملفات exe صغيرة و تدعي اعمال حصرية !
نوع الملف: pdf bac-pratique-25052010-sc-8h30.pdf (173,9 كيلوبايت, المشاهدات 3709)
نوع الملف: pdf bac-pratique-25052010-sc-10h.pdf (156,1 كيلوبايت, المشاهدات 2296)
نوع الملف: pdf bac-pratique-25052010-sc-14h30.pdf (177,5 كيلوبايت, المشاهدات 1856)
نوع الملف: pdf bac-pratique-25052010-sc-16h.pdf (162,7 كيلوبايت, المشاهدات 1663)
نوع الملف: pdf bac-pratique-26052010-sc-8h30.pdf (137,2 كيلوبايت, المشاهدات 1636)
نوع الملف: pdf bac-pratique-26052010-sc-10h.pdf (171,2 كيلوبايت, المشاهدات 1649)
نوع الملف: pdf bac-pratique-26052010-sc-14h.pdf (158,0 كيلوبايت, المشاهدات 1746)
نوع الملف: pdf bac-pratique-26052010-sc-15h30.pdf (65,0 كيلوبايت, المشاهدات 1598)
التوقيع

رد مع اقتباس
اعلانات
قديم 18-04-2011, 11:38 رقم المشاركة : 2
معلومات العضو
emna111
emna111 غير متواجد حالياً
عضوة مميزة بمنتدى الفرنسية و الانجليزية و بالمنتدى التعليمي

الصورة الرمزية emna111

إحصائية العضو





emna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond repute

Smile

BAC PRATIQUE 25 MAI 2010 A 10 H

Program bac2010;
uses wincrt;
var
n: integer;

Procedure Saisie (Var a: integer);
begin
repeat
writeln ('donnez un entier supérieur ou égale à10');
readln (a);
until (a >=10);
end;

Function verif (a:integer): boolean;
var m,p,K: integer;
begin
Repeat
m:= a div10;
p:= a mod10;
k := Abs (m-2*p);
until
K In [0..9];
verif := K In [0..7] ;
End;

{P,P**
Begin
Saisie (n);
If (verif (n) = True ) then
Writeln (n, 'est divisible par 7')
else writeln (n' n''est pas divisible par 7') ;
End;
end.









رد مع اقتباس
الأعضاء ال 16 الذين شكروا emna111 على هذا الموضوع
قديم 18-04-2011, 11:52 رقم المشاركة : 3
معلومات العضو
emna111
emna111 غير متواجد حالياً
عضوة مميزة بمنتدى الفرنسية و الانجليزية و بالمنتدى التعليمي

الصورة الرمزية emna111

إحصائية العضو





emna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond repute

Smile

BAC PRATIQUE 25 MAI 2010 A 8H 30 MIN


Program Kaprekar;

uses wincrt;

Var i :integer;

FUNCTION kap (K: integer): longint; {ou integer ?**
var
x1 , x2: integer;
Ch1, ch, chk : string;

begin
STR (K, chk);
STR (SQR (K), ch);
n:= length (chk);
ch1 := copy (Ch, lenght (ch) -n+1) , n);
DElETE (ch, length (ch) -n +1, n);
val (ch1, x1, e);
val (ch, x2, e);
Kap := x1 + x2;
end;

{P.P**
Begin
writeln ('les entiers Kaprekar sont') ;
For i:= 1 to 1000 do
if Kap (i) = i then
writeln (i) ;
end;
end;
end.

Est-ce qu'un seul module (la fonction Kap) suffit pour que cette solution soit une solution modulaire ou bien que je dois ajouter une fonction verif par exemple pour vérifier si un entier est kaprekar ou non?
J'ai déjà abordé ce sujet et c'était la seule ambiguïté que j'ai rencontrée.
Merci






رد مع اقتباس
الأعضاء ال 8 الذين شكروا emna111 على هذا الموضوع
قديم 18-04-2011, 12:17 رقم المشاركة : 4
معلومات العضو
3abdessèmi3
3abdessèmi3 متواجد حالياً
مراقب المنتدى التعليمي

الصورة الرمزية 3abdessèmi3

إحصائية العضو





3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute

افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة emna111 مشاهدة المشاركة
BAC PRATIQUE 25 MAI 2010 A 10 H

Program bac2010;
uses wincrt;
var
n: integer;

Procedure Saisie (Var a: integer);
begin
repeat
writeln ('donnez un entier supérieur ou égale à10');
readln (a);
until (a >=10);
end;

Function verif (a:integer): boolean;
var m,p,K: integer;
begin
Repeat
m:= a div10;
p:= a mod10;
k := Abs (m-2*p);
until
K In [0..9];
verif := K In [0..7] ;
End;

{P,P**
Begin
Saisie (n);
If (verif (n) = True ) then
Writeln (n, 'est divisible par 7')
else writeln (n,' n''est pas divisible par 7') ;vous avez oublié la virgule
End;
vous pouvez ne pas mettre end puisque vous n'avez pas mis begin ainsi que la structure contient une seule instruction et là on peut ne pas mettre begin et end de toute façon la faute est pardonnable.

end.



Vous avez commis quelques fautes syntaxiques qui ont été mentionnées (en rouge) ci-dessus
Voici un écran d'exécution de votre programme

et comme vous voyez vous avez commis une petite faute qui est dans la ligne en vert (ci-dessus)

Lorsque vous mettez K in [0..7] c'est à dire
k in [0,1,2,3,4,5,6,7] or c'est faux nous devons mettre k in [0,7]
, vous avez aussi oublié d'affecter "a" à "k" c'est à dire de mettre a:=k à la fin de la boucle répéter (avant until) sinon nous restons dans une boucle infinie et là le programme se plante.
Avant d'oublier, toutes les variables doivent être déclarées, Longint (déjà l'exemple mentionné dans la feuille d'examen 345678 dépasse la plage des entiers qui est 32767

Grossomodo, vous êtes sur la bonne voie, très bien continuez emna

Bonne chance







التوقيع

رد مع اقتباس
الأعضاء ال 11 الذين شكروا 3abdessèmi3 على هذا الموضوع
قديم 18-04-2011, 13:13 رقم المشاركة : 5
معلومات العضو
3abdessèmi3
3abdessèmi3 متواجد حالياً
مراقب المنتدى التعليمي

الصورة الرمزية 3abdessèmi3

إحصائية العضو





3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute

افتراضي

Les différentes fautes commises sont mentionnées en vert

BAC PRATIQUE 25 MAI 2010 A 8H 30 MIN


Program Kaprekar;

uses wincrt;

Var i :integer;

FUNCTION kap (K: longint): integer; {ou integer ?**
integer suffit car x1+x2 ne depassera dans aucun cas 32767 mais vous devez déclarer k longint sinon l'instruction suivante :
STR (SQR (K), ch); va retourner une valeur fausse
var
x1,n,e , x2: integer;
vous avez oublié de déclarer n et e

Ch1, ch, chk : string;

begin
STR (K, chk);
STR (SQR (K), ch);
n:= length (chk);
ch1 := copy (Ch, lenght (ch) -n+1) , n);
faute de frappe length et la parenthèse à enléver
DElETE (ch, length (ch) -n +1, n);
val (ch1, x1, e);
val (ch, x2, e);
Kap := x1 + x2;
end;

{P.P**
Begin
writeln ('les entiers Kaprekar sont') ;
For i:= 1 to 1000 do
if Kap (i) = i then
writeln (i) ;
end;
end;
ces deux "end;" sont à enlever puisque vous n'avez pas mis begin pour la boucle "pour" ni pour "if" et c'est correcte puisqu'il s'agit d'une seule instruction
end.

Est-ce qu'un seul module (la fonction Kap) suffit pour que cette solution soit une solution modulaire ou bien que je dois ajouter une fonction verif par exemple pour vérifier si un entier est kaprekar ou non?
il est préférable d'ajouter une fonction verif

J'ai déjà abordé ce sujet et c'était la seule ambiguïté que j'ai rencontrée.
Merci


très bien continuez








التوقيع

رد مع اقتباس
الأعضاء ال 8 الذين شكروا 3abdessèmi3 على هذا الموضوع
قديم 18-04-2011, 19:23 رقم المشاركة : 6
معلومات العضو
futurezone
futurezone غير متواجد حالياً
عضو فعال

الصورة الرمزية futurezone

إحصائية العضو




futurezone has a reputation beyond reputefuturezone has a reputation beyond reputefuturezone has a reputation beyond reputefuturezone has a reputation beyond reputefuturezone has a reputation beyond reputefuturezone has a reputation beyond reputefuturezone has a reputation beyond reputefuturezone has a reputation beyond reputefuturezone has a reputation beyond reputefuturezone has a reputation beyond reputefuturezone has a reputation beyond repute

افتراضي

S'il vous plait qui dispose des bacs pratiques de l'an 2005??Je veux que les souvenirs reviennent! C'était mon bac!







رد مع اقتباس
الأعضاء ال 3 الذين شكروا futurezone على هذا الموضوع
قديم 18-04-2011, 20:27 رقم المشاركة : 7
معلومات العضو
3abdessèmi3
3abdessèmi3 متواجد حالياً
مراقب المنتدى التعليمي

الصورة الرمزية 3abdessèmi3

إحصائية العضو





3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute

افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة futurezone مشاهدة المشاركة
S'il vous plait qui dispose des bacs pratiques de l'an 2005??Je veux que les souvenirs reviennent! C'était mon bac!
Voici ci-joint votre demande








الملفات المرفقة حذاري من تحميل ملفات مشبوه بها.
اغلب الاحيان قد تحتوي على ملفات exe صغيرة و تدعي اعمال حصرية !
نوع الملف: pdf bac-pratique-14052005-sc-9h.pdf (118,9 كيلوبايت, المشاهدات 513)
نوع الملف: pdf bac-pratique-13052005-sc-9h.pdf (112,8 كيلوبايت, المشاهدات 331)
نوع الملف: pdf bac-pratique-13052005-sc-15h30.pdf (91,2 كيلوبايت, المشاهدات 297)
نوع الملف: pdf bac-pratique-16052005-sc-14h.pdf (152,9 كيلوبايت, المشاهدات 365)
نوع الملف: pdf bac-pratique-17052005-sc-9h.pdf (140,4 كيلوبايت, المشاهدات 313)
نوع الملف: pdf bac-pratique-17052005-sc-10h30.pdf (128,3 كيلوبايت, المشاهدات 303)
نوع الملف: pdf bac-pratique-16052005-sc-15h30.pdf (163,1 كيلوبايت, المشاهدات 366)
التوقيع

رد مع اقتباس
الأعضاء ال 14 الذين شكروا 3abdessèmi3 على هذا الموضوع
قديم 18-04-2011, 23:36 رقم المشاركة : 8
معلومات العضو
emna111
emna111 غير متواجد حالياً
عضوة مميزة بمنتدى الفرنسية و الانجليزية و بالمنتدى التعليمي

الصورة الرمزية emna111

إحصائية العضو





emna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond reputeemna111 has a reputation beyond repute

Post

BAC PRATIQUE 25 MAI 2010 à 14H

Program pascal;
uses wincrt;
Var

N,K: integer;

{ S ne doit pas être déclarée ici car elle est déjà déclarée comme étant une fonction ? **

Function Puissance (a,b: integer): integer;
var p,i: integer;
Begin
p := 1;

For i:= 1 to b do
p := p*a ;
puissance := p;
end;

Function somme (N,K: integer) : integer;
var
S: integer;

begin

s := 0;

repeat
r := N mod 10;
N := N div 10;
S := S + Puissance (r,K) ;
until (N=0);
Somme := S;
end;

{P,P**

Begin

For N := 1000 to 9999 do
begin
K := 0;
S := 0;

repeat
K := K+1 ;
S := Somme (N,K);
Until (K=5 ) or ( S=N );

Writeln ('les entiers demandés sont ')
if (S =N) then
writeln (S) ;
end;
end.

Me permettez- vous de poster un autre essai ou bien dois-je céder la place à mes collègues ? J'aimerais bien faire le maximum d'applications étant donné que je passe un test ce Vendredi inchAllah et je me sens encore un peu 'débutante' .
Merci







رد مع اقتباس
الأعضاء ال 4 الذين شكروا emna111 على هذا الموضوع
قديم 19-04-2011, 12:41 رقم المشاركة : 9
معلومات العضو
3abdessèmi3
3abdessèmi3 متواجد حالياً
مراقب المنتدى التعليمي

الصورة الرمزية 3abdessèmi3

إحصائية العضو





3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute3abdessèmi3 has a reputation beyond repute

Thumbs up un très bon essai emna

Comme d'habitude, les différentes clarifications sont écrites en vert ci-dessous


BAC PRATIQUE 25 MAI 2010 à 14H

Program pascal;
uses wincrt;
Var

N,K: integer;

{ S ne doit pas être déclarée ici car elle est déjà déclarée comme étant une fonction ? **
Puisque vous avez utilisé "S" dans le programme principal, vous devez alors la déclarer car les variables locaux ne sont pas connues par le programme principal
Function Puissance (a,b: integer): integer;
var p,i: integer;
Begin
p := 1;

For i:= 1 to b do
p := p*a ;
puissance := p;
end;

Function somme (N,K: integer) : integer;
var
S: integer;
r:integer;
vous avez oublié de déclarer r

begin

s := 0;
repeat
r := N mod 10;
N := N div 10;
S := S + Puissance (r,K) ;
until
(N=0);
Somme := S;
end;

{P,P**

Begin
voici ci-dessous un exemple d'un écran d'exécution figure 1. Le travail est correcte, mais vous ne obtenez pas une bonne exécution à cause de la ligne
"Writeln ('les entiers demandés sont ')" qui doit être mise en dehors de la boucle pour (au début) ainsi que vous devez afficher N et K donc l'instruction de la structure conditionnelle if qui sera writeln (S,' ',K) ;
le programme affichera l'écran de la figure 2

For N := 1000 to 9999 do
begin
K := 0;
S := 0;

repeat
K := K+1 ;
S := Somme (N,K);
Until (K=5 ) or ( S=N );

Writeln ('les entiers demandés sont ')
if (S =N) then
writeln (S) ;
end;
end.


Figure 1


Me permettez- vous de poster un autre essai ou bien dois-je céder la place à mes collègues ? J'aimerais bien faire le maximum d'applications étant donné que je passe un test ce Vendredi inchAllah et je me sens encore un peu 'débutante' .
Merci


oui bien sûr, vos collègues sont aussi invités à poster leurs essais or ils sont absents et là bien sûr vous aurez toute la permission et quant aux autres ils peuvent poster leurs essais sans consulter les vôtres.

Bon travail






التوقيع

رد مع اقتباس
الأعضاء ال 7 الذين شكروا 3abdessèmi3 على هذا الموضوع
قديم 20-04-2011, 08:03 رقم المشاركة : 10
معلومات العضو
ssjamine0
ssjamine0 غير متواجد حالياً
عضو مميز
إحصائية العضو




ssjamine0 has a reputation beyond reputessjamine0 has a reputation beyond reputessjamine0 has a reputation beyond reputessjamine0 has a reputation beyond reputessjamine0 has a reputation beyond reputessjamine0 has a reputation beyond reputessjamine0 has a reputation beyond reputessjamine0 has a reputation beyond reputessjamine0 has a reputation beyond reputessjamine0 has a reputation beyond reputessjamine0 has a reputation beyond repute

افتراضي

بسم الله الرحمان الرحيم
والصلاة و السلام على رسول الله

استاذنا العزيز بارك الله فيك على جهدك معنا.
هل يمكن ان تريني اين الخطا في عملي هذا
و شكرا
program bacpratique2010a14h;
uses wincrt;
var
n : longint;
procedure saisie (var n :longint );
begin
repeat
writeln('saisir un entier');
readln(n);
until ( n>=1000 ) and (n<=9999);
end;
function verifn ( n : integer ): boolean;
var
a ,b , c ,d : integer;
ok : boolean ;
begin
a := n div 1000 ;
b := ( n mod 1000) div 100 ;
c:= (n div 100) mod 10 ;
d := n mod 10 ;

if a + b + c +d = n then ok := true
else
begin
if sqr(a) + sqr(b) + sqr(c) + sqr(d) = n
then ok := true
else
begin
if a*sqr(a) + b*sqr(b) + c*sqr(c) + d*sqr(d) =n
then ok :=true
else
begin
if sqr(a)*sqr(a) + sqr(b)*sqr(b) + sqr(c)*sqr(c) + sqr(d)*sqr(d) =n
then ok := true
else
begin
if a*sqr(a)*sqr(a) + b*sqr(b)*sqr(b) + c*sqr(c)*sqr(c) + d*sqr(d)*sqr(d) =n
then ok := true
else ok := false;
end;
end;
end;
end;

verifn:= ok ;
end;

procedure affichage(var n :longint);
var i : integer;
begin
for i := 1000 to 9999 do
begin
if verifn(n)=true
then writeln(n);
end;
end;

begin
saisie(n);
verifn(n);
affichage(n);
end.






رد مع اقتباس
الأعضاء ال 5 الذين شكروا ssjamine0 على هذا الموضوع
إضافة رد

أدوات الموضوع ابحث في الموضوع
ابحث في الموضوع:

بحث متقدم
انواع عرض الموضوع

ضوابط المشاركة
لا تستطيع كتابة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا يمكنك اضافة مرفقات
لا يمكنك تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع الأقسام الرئيسية المشاركات المشاركة الاخيرة
طلب BAC-MATH INFORMATIQUE pratique nitou الإعلامية 2 14-04-2010 18:29
bac pratique informatique :2008 d.mohamed4 الباكالوريا 7 02-04-2010 15:50
bac pratique informatique mondial doctor الباكالوريا 6 17-05-2009 16:24




الساعة الآن :14:33 بتوقيت GMT +1.

*منتديات تونيزيـا سات*