Sujet Algo & Prog. Juin 2012
Page 1 sur 1
Sujet Algo & Prog. Juin 2012
Exercice 1:
-------------------------------
Pour Cj de Mardi à Samedi faire
Va[Cj].Jrs ← Cj
Fin pour
V
-------------------------------
Ecrire (Fa,Avend.CodeArt)
F
Cette instruction est fausse car Fa est un fichier de Enreg alors que Avend.CodeArt est une chaine de 10 caractères
-------------------------------
Lire(Avend.Jrs)
F
Cette instruction est fausse car Avend.Jrs est de type jours et le type scalaire ne peut être ni lu ni écrit.
-------------------------------
Test ← Fin_fichier(Ft) = Faux
V
-------------------------------
Ecrire(Fe,R)
F
Cette instruction est fausse car Fe est un fichier d'entier alors que R est un réel.
-------------------------------
Test ← Va[lundi]>Va[Jeudi]
F
Cette instruction est fausse car Va[lundi] et Va[Jeudi] sont deux enregistrements et la comparaison n'est pas valide entre deux enregistrements
-------------------------------
=================================
-------------------------------
Pour Cj de Mardi à Samedi faire
Va[Cj].Jrs ← Cj
Fin pour
V
-------------------------------
Ecrire (Fa,Avend.CodeArt)
F
Cette instruction est fausse car Fa est un fichier de Enreg alors que Avend.CodeArt est une chaine de 10 caractères
-------------------------------
Lire(Avend.Jrs)
F
Cette instruction est fausse car Avend.Jrs est de type jours et le type scalaire ne peut être ni lu ni écrit.
-------------------------------
Test ← Fin_fichier(Ft) = Faux
V
-------------------------------
Ecrire(Fe,R)
F
Cette instruction est fausse car Fe est un fichier d'entier alors que R est un réel.
-------------------------------
Test ← Va[lundi]>Va[Jeudi]
F
Cette instruction est fausse car Va[lundi] et Va[Jeudi] sont deux enregistrements et la comparaison n'est pas valide entre deux enregistrements
-------------------------------
=================================
Dernière édition par haiethem le Sam 9 Juin - 11:23, édité 1 fois
Exercice 3 :
Exercice 3 :
--------------------------
0) debut
1) PROC saisir(x)
2) eps = 0.0001
3) x0 ← FN calcul (x,eps)
4) PROC affiche (x0)
--------------------------
0) DEF PROC saisir( var x: réel)
1) répeter
x = donnée
jusqu'à (x<=1) et (x>=-1)
2) fin
Remarque : il n'est pas possible d'utiliser x dans [-1..1] car x est un réel
--------------------------
0) DEF FN calcul (x,eps:réel):réel
1)s←0
2)s1 ← 1
3) i ←2
4) c ← -1
5) tantque abs(s-s1) > eps faire
s← s1
s1 ← s1 + c * FN puis(x,i)/ FN fact(i)
i←2+i
c← - c
fintantque
6) calcul ← s1
7) FIN
--------------------------
0) DEF PROC affiche (x0:réel)
1)écrire("la solution est : ",x0)
2) FIN
--------------------------
0) DEF FN puis (a:réel;b:entier):réel
1) p ← 1
2) pour i de 1 à b faire
p ← p * a
finpour
3) puis ← p
4) Fin
--------------------------
0) DEF FN fact (n:entier):entier
1) p ← 1
2) pour i de 1 à n faire
p ← p * i
finpour
3) fact ← p
4) Fin
--------------------------
--------------------------
0) debut
1) PROC saisir(x)
2) eps = 0.0001
3) x0 ← FN calcul (x,eps)
4) PROC affiche (x0)
--------------------------
0) DEF PROC saisir( var x: réel)
1) répeter
x = donnée
jusqu'à (x<=1) et (x>=-1)
2) fin
Remarque : il n'est pas possible d'utiliser x dans [-1..1] car x est un réel
--------------------------
0) DEF FN calcul (x,eps:réel):réel
1)s←0
2)s1 ← 1
3) i ←2
4) c ← -1
5) tantque abs(s-s1) > eps faire
s← s1
s1 ← s1 + c * FN puis(x,i)/ FN fact(i)
i←2+i
c← - c
fintantque
6) calcul ← s1
7) FIN
--------------------------
0) DEF PROC affiche (x0:réel)
1)écrire("la solution est : ",x0)
2) FIN
--------------------------
0) DEF FN puis (a:réel;b:entier):réel
1) p ← 1
2) pour i de 1 à b faire
p ← p * a
finpour
3) puis ← p
4) Fin
--------------------------
0) DEF FN fact (n:entier):entier
1) p ← 1
2) pour i de 1 à n faire
p ← p * i
finpour
3) fact ← p
4) Fin
--------------------------
Dernière édition par haiethem le Jeu 14 Juin - 10:38, édité 3 fois
Problème :
Problème :
-------------------------------
Résultat = PROC Affiche(br,cod)
br = associer (br,"c:\braille.txt")
cod = associer (cod, "c:\codes_brailles.dat")
-------------------------------
DEF PROC affiche( var br : texte; var cod : f_enr)
Résultat =
[ouvrir(br)] tantque non fin_fichier(br) faire
lire_nl(br,ch)
repeter
ch1 ← sous_chaine(ch,1,6)
efface(ch,1,6)
[ouvrir(cod)] repeter
lire(cod,e)
jusqu'à e.codage = ch1
écrire(e.lettre)
jusqu'à (long(ch)=0)
écrire (" ")
fintantque
fermer(br), fermer(cod)
-------------------------------
-------------------------------
Résultat = PROC Affiche(br,cod)
br = associer (br,"c:\braille.txt")
cod = associer (cod, "c:\codes_brailles.dat")
-------------------------------
DEF PROC affiche( var br : texte; var cod : f_enr)
Résultat =
[ouvrir(br)] tantque non fin_fichier(br) faire
lire_nl(br,ch)
repeter
ch1 ← sous_chaine(ch,1,6)
efface(ch,1,6)
[ouvrir(cod)] repeter
lire(cod,e)
jusqu'à e.codage = ch1
écrire(e.lettre)
jusqu'à (long(ch)=0)
écrire (" ")
fintantque
fermer(br), fermer(cod)
-------------------------------
Sujets similaires
» Algo. & Prog. Bac 2020
» Sujet 2014 principale Algorithmique & Programmation :
» Bac TP algorihmique & programmation 2012
» Algo 27-05-2023
» Sujet Algorithmique 2013
» Sujet 2014 principale Algorithmique & Programmation :
» Bac TP algorihmique & programmation 2012
» Algo 27-05-2023
» Sujet Algorithmique 2013
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|