منتديات جوهرة سوفت - Jawhara-Soft Forums منتديات جوهرة سوفت - Jawhara-Soft Forums

العودة   منتدى التعليم التونسي (Jawhara-Soft) > التعليم و الثقافة > دروس و إمتحانات الباكلوريا
دروس و إمتحانات الباكلوريا مخصص لطرح دروس و مستندات و إمتحانات تخص إمتحانات الباكلوريا


موضوع مغلق
 
أدوات الموضوع انواع عرض الموضوع
قديم 2010-12-13, 18:25 رقم المشاركة : 97



افتراضي


On se propose d'écrire un programme Pascal permettant de chercher puis d'afficher tous les entiers naturels d'un intervalle [a,b] (10 < a < b < 200) qui sont divisibles par chacun de leurs chiffres non nuls.

Exemple

Dans l'intervalle [15, 50] l'entier 36 sera affiche car il est divisible par 3 et par 6





 
قديم 2010-12-14, 22:52 رقم المشاركة : 98

افتراضي


CRYPTAGE SIMPLE

Soit T un tableau de N caractères alphabétiques (2<N<20).

Écrire un programme Pascal permettant de crypter les données figurant dans le tableau T comme suit :
1. Convertir chaque caractère en sa représentation en code ASCII.
2. permuter les chiffres des unités avec ceux des dizaines et déterminer le caractère correspondant a ce nouveau code
ASCII.
3. remplir un tableau R par les codes
ASCII calculées dans l'étape N°2 des caractères du tableau T.
4. Afficher le tableau R obtenu




 
قديم 2010-12-18, 10:51 رقم المشاركة : 99

Great


On veut écrire un programme Pascal permettant de saisir N entiers (10<N<20) dans un tableau T et de les arranger en plaçant les valeurs paires, s’il y en a, au début du tableau, sans modifier l'ordre de saisie des valeurs paires et impaires






 
قديم 2010-12-18, 10:54 رقم المشاركة : 100

افتراضي


On vent écrire un programme Pascal permettant de lire deux mots ch1 et ch2 et d'afficher tous les caractères qui apparaissent dans les deux chaînes sans redondance.

Exemple :
Soit ch1= "Bonjour" et ch2= "Bonbon"
Résultat : B ; o ; n




 
قديم 2010-12-18, 11:00 رقم المشاركة : 101

Great


SUITE RÉCURRENTE D'ORDRE 2

Soit la suite (U) définie par :



On vous donne après analyse de la suite le résultat suivant

cette suite est croissantes

écrire un programme Pascal permettant de lire un entier x (x>2), de vérifier et d’afficher s’il est un terme de la suite U ou non.
Dans l’affirmative afficher son rang




 
قديم 2010-12-19, 23:17 رقم المشاركة : 102

افتراضي


Soit 1'algorithme suivant :
0) Debut Inconnu
1) Lire (N)
2) Pour i de 1 a N répéter
Lire (D[i])
Fin Pour
3) {Ensemble d'actions permettant d'initialiser a 1 les éléments d’un tableau S de N entiers}
4) Pour i de 1 a N- l répéter
Pour j de i+l a N répéter
Si D[i] > D[j] Alors
S[i]  S[i] + 1
Sinon
S[j]  S[j] + 1
Fin Si
Fin Pour
Fin Pour
Pour i de 1 a N répéter
A[S[i]] D[i]
Fin Pour
5) Fin Inconnu


Questions :
1. Développer la séquence 3 et traduire cet algorithme en Pascal.
2. Enregistrer le programme dans le dossier bac2004 situe a la racine C : en lui donnant comme nom le numéro de votre carte d'identité suivi de la chaîne de caractères "V1".
3. Donner, sous forme de commentaire en fin du programme, le rôle de celui-ci.
4. Transformer 1'etape 4 en une procédure et en tenir compte dans le programme.
5. Ecrire un module d'affichage du tableau A et en tenir compte clans le programme.
6. Enregistrer la nouvelle version du programme dans le dossier bac2004 situe a la racine C : en lui dormant comme nom le numéro de votre carte d'identité suivi de la chaîne de caractères "V2
"



 
قديم 2010-12-20, 18:31 رقم المشاركة : 103

Great


***
Conversion: Décimal en Binaire

On propose par la suite, l'une des méthodes de la conversion d'un entier décimal (X) en son équivalent binaire (base 2).

1. On divise (division entière) le nombre X par 2
2. On sauvegarde le reste de la division
3. On refait les deux étapes précédentes avec le quotient de la division, jusqu'à avoir un quotient nul.
4. Le regroupement des restes en sens inverse de leurs apparitions donne la valeur du nombre X en binaire.

Exemple :
Si X = 13 alors
La division entière de 13 par 2 donne un quotient = 6 et un reste = 1
La division entière de 6 par 2 donne un quotient = 3 et un reste = 0
La division entière de 3 par 2 donne un quotient = 1 et un reste = 1
La division entière de 1 par 2 donne un quotient = 0 et un reste = 1

Donc le nombre décimal 13 vaut 1101 en Binaire.

Question :
Écrire un programme Pascal permettant de saisir un entier naturel X < 100, de déterminer et d'afficher sa valeur en Binaire, selon le format suivant
le nombre décimal X vaut ………. en binaire




 
قديم 2010-12-23, 18:38 رقم المشاركة : 104

Great


SYMÉTRISATION D'UN TABLEAU

L'algorithme suivant permet de rendre un tableau T symétrique.
0- DEBUT Tab_Sym
1- Repeter
Lire (n)
Jusqu'a (n> l) et (n mod 2 = 0)
2- Pour i de 1 a n div 2 répéter
Lire (T[2i-1])
T[2i] <- T[2i-1]
FinPour
3- Proc Symetrie (T)
4- Pour i de 1 a n Repeter
Ecrire (T[i] : 3)
FinPour
5- FIN Tab Sym

Questions :
1) Traduire l'algorithme ci-dessus en Turbo Pascal
2) Développer le Module Symétrie permettant de transformer T en un tableau symétrique.
3) Donner, sous forme de commentaire dans le programme, le rôle de la séquence 2.
4) Transformer la séquence 2 en une procédure et en tenir compte dans le programme




 
قديم 2010-12-25, 13:27 رقم المشاركة : 105

Great


Soit T un tableau de N caractères (2<N<20). On veut écrire un programme Pascal permettant de crypter les données figurant dans le tableau T comme suit :
1. Saisir un entier X (0< X <8).
2. Convertir chaque élément de T en une chaîne correspondante a sa représentation binaire sur 8 bits.
3. Effectuer une rotation des chiffres binaires a droite, obtenus dans l'étape N°2, de X position(s).
4. Stocker chaque valeur obtenue suite au cryptage dans l'étape N°3 dans un tableau Tcr.
5. Afficher le contenu du tableau Tcr.
On propose d'utiliser la fonction Convert permettant de convertir une valeur décimale en une valeur binaire représente sous forme de chaîne de 8 caractères.


Function convert( d: integer):String;
Var
I:integer;
ch,chc: string;
begin
ch:=’’;
For I: =1 to 8 do
begin
Str(d MOD 2, chc);
d:=d DIV 2;
ch:= chc + ch;
end;
convert:=ch;
end;


Exemple :
Le caractère "A" a une représentation binaire égale a "01000001". Si X=2, Alors la représentation binaire de "A" après une rotation de deux positions a droite sera : "01010000", cette valeur sera stockée dans le tableau Tcr




 
قديم 2010-12-27, 17:58 رقم المشاركة : 106

افتراضي



On veut écrire un programme Pascal permettant de saisir les éléments d'un tableau T de N entiers positifs ou nuls ( 5<N<20) et de déplacer tour les éléments nuls a la fin du tableau




 
قديم 2010-12-27, 21:09 رقم المشاركة : 107

افتراضي


***
Soit un tableau T de N entiers distincts.
Si i < j et T[i] > T[j] alors le couple (i, j) est appelé inversion de T.

Écrire un programme en Turbo Pascal permettant de saisir le tableau T de N entiers distincts. puis de déterminer et d'afficher tous les couples inversion de T




 
قديم 2011-02-26, 21:27 رقم المشاركة : 108

Great


Ecrire un programme Turbo Pascal qui affiche la table de multiplication usuelle
Indication: on pourra utiliser la fonction gotoxy pour l'affichage.




 
موضوع مغلق


الكلمات الدلالية (Tags)
turbo pascal

أدوات الموضوع
انواع عرض الموضوع

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

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

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

الساعة الآن 12:21


Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By Almuhajir
جميع الحقوق محفوظة 2010-2023 © منتديات جوهرة سوفت