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

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


موضوع مغلق
 
أدوات الموضوع انواع عرض الموضوع
قديم 2010-10-25, 23:20 رقم المشاركة : 61



Great


Écrire un programme Pascal qui saisit une chaîne de caractères et l'affiche sous la forme d'un triangle comme indiqué ci-dessous.

Exemple :
Si la chaîne saisie est "INTERNET", on aura :
I
IN
INT
INTE
INTER
INTERN
INTERNE
INTERNET




 
قديم 2010-10-25, 23:21 رقم المشاركة : 62

Great


Soit l'algorithme suivant :

0) Début quoi
1) [Lire (n)] Pour i de 1 à n Répéter
Lire(T[i])
FinPour
2) Lire (v)
3) [Tr <-- faux, i <-- 0] Répéter
i <-- i + 1
tr <-- (T[i] = v)
Jusqu'à (i = n) OU (tr)
4) Si (tr) Alors
rt <-- " Oui "
Sinon
rt <--" Non "
FinSi
5) Ecrire (v, rt)
6) Fin quoi
Questions :
1. Traduire cet algorithme en Pascal.
2. Que fait cet algorithme ? (Écrire la réponse comme commentaire à la fin du programme).
3. Au programme obtenu, ajouter un module dont le rôle est d’afficher tous les indices i lorsque que T[i] = v




 
قديم 2010-10-25, 23:24 رقم المشاركة : 63

Great


Soit l'algorithme suivant :


0Début quoi

1) [Lire (n)] Pour i de 1 à n Répéter
Lire(T[i])
FinPour
2) Lire (v)
3) [Tr <-- faux, i <-- 0] Répéter
i <-- i + 1
tr <-- (T[i] = v)
Jusqu'à (i = n) OU (tr)
4) Si (tr) Alors
rt <-- " Oui "
Sinon
rt <-- " Non "
FinSi
5 ) Ecrire (v, rt)
6 ) Fin quoi
Questions :
1. Traduire cet algorithme en Pascal.
2. Que fait cet algorithme ? (écrire la réponse comme commentaire à la fin du programme).
3. Dans l’action 1, ajouter les contrôles sur la saisie pour assurer les conditions suivantes:
5 < n < 40 et 0 < T[i] < 20
4. Transformer l’action 3 en une fonction et en tenir compte dans le programme
.



 
قديم 2010-10-25, 23:25 رقم المشاركة : 64

Great


Sachant que 6+6/2^2 + 6/3^2 +6/4^2 +…..+6/n^2 tend vers n^2,
écrire un programme Pascal permettant de calculer puis d’afficher une valeur approchée de n2 avec une erreur maximale C .
La valeur de C est une donnée




 
قديم 2010-10-25, 23:28 رقم المشاركة : 65

Great


L’algorithme suivant permet de calculer et d’afficher les moyennes des trois notes de n élèves.


0Début Calcul_moyennes
1) Lire (n)
2) Pour i de 1 à n répéter
Lire (Note1, Note2, Note3)
Moy <-- (Note1 + 2 x Note2 + 2 x Note3)/5
Ecrire (Moy)
FinPour
3) Fin Calcul_moyennes

Questions :

1. Traduire cet algorithme en Pascal.
2. Dans l’action 1, ajouter le contrôle sur la saisie pour assurer la condition suivante 5 = n = 40
3. Ajouter une fonction intitulée RANG qui permet de chercher le rang de l’élève n° i.
4. Apporter les changements adéquats afin d’afficher pour chaque élève et sur une même ligne : N° Moyenne Rang




 
قديم 2010-10-25, 23:29 رقم المشاركة : 66

Great


Soit T un tableau de n entiers (2 < n < 20). On veut écrire un programme Pascal qui saisit n et T puis affiche la valeur maximale V_max et la valeur minimale V_min d’une séquence de T allant de i à j.
i et j sont deux entiers donnés vérifiant la condition i < j < n





 
قديم 2010-10-25, 23:30 رقم المشاركة : 67

Great


Occurence
Soit T un tableau de n caractère (2 < n < 20). On se propose d’écrire un programme Pascal qui saisit n et T puis affiche le nombre d’occurrences d’un caractère c donné, dans le tableau T



 
قديم 2010-10-25, 23:34 رقم المشاركة : 68

Great


Soit l'algorithme suivant :

0Début Exercice
1) Ecrire (“ Taper une touche “) , Lire (ch)
2) Selon ch Faire
"a" .. "z" : Si ch Dans ["a","e","i","u","o","y"]
Alors nature <-- "Voyelle"
Sinon nature <-- "Consonne "
FinSi
"0".."9" : nature <-- " Chiffre "
SINON nature <-- " Symbole "
Fin Selon
3) Ecrire (nature)
4) Fin Exercice

Questions :

1. Traduire cet algorithme en Pascal.
2. Que fait cet algorithme ? (Ecrire la réponse comme commentaire à la fin du programme).
3. a) Que fait le programme si ch = "A" ? (Ecrire la réponse sous forme d’un commentaire à la fin du programme).
b) Modifier le programme pour afficher correctement la nature d'une lettre majuscule.
4. Transformer l’action 2 en une fonction et en tenir compte dans le programme




 
قديم 2010-10-25, 23:36 رقم المشاركة : 69

Great


L’algorithme suivant permet de calculer et d’afficher la moyenne arithmétique d’une classe de n élèves.

0Début moyenne_classe

1) [Lire (n)] Pour i de 1 à n répéter
Lire (T[i])
FinPour
2) [total <-- 0] Pour i de 1 à n répéter
total <-- total + T[i]
FinPour
3) moyenne <-- total / n
4) Ecrire (moyenne)
5) Fin moyenne_classe

Questions :
1. Traduire cet algorithme en Pascal.
2. Dans l’action 1, ajouter les contrôles de saisie permettant d’assurer les conditions :
5 < n < 40 et 0 < T[i] < 20
3. Ajouter un module dont le rôle est de déterminer et d’afficher le nombre d’élèves qui ont une moyenne supérieure ou égale à la moyenne de la classe




 
قديم 2010-10-25, 23:38 رقم المشاركة : 70

Great


***
Soit la somme Sn suivante:
Sn=1+3/2^2 + 5/3^3 +7/4^4 +….. +(2n-1)/n^n

Écrire un programme Pascal intitulé SOMME permettant de calculer et d'afficher la somme Sn pour un entier n positif donné en utilisant la formule ci-dessus




 
قديم 2010-10-25, 23:39 رقم المشاركة : 71

افتراضي


Occurrence d'un caractère

On veut écrire un programme Pascal permettant de:
- saisir une chaîne de caractères Ch
- parcourir la chaîne Ch et afficher l'occurrence de chacun de ses caractères




 
قديم 2010-10-25, 23:41 رقم المشاركة : 72

افتراضي


Deux joueurs lancent en même temps un dé dont les faces sont numérotées de 1 à 6.
Le joueur qui obtiendra la plus grande valeur aura un point.
Le jeu s'arrête quand l'un des joueurs arrive le premier à un score de 10 points.
Écrire un programme Pascal simulant ce jeu et afficher le numéro du joueur gagnant




 
موضوع مغلق


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


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

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

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

الساعة الآن 22:54


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