photocopi local N S N nomb S somm saisir N si N30 et S:=3 fsi si N>60 et S:=6 fsi si N>100 a S:=9 fsi afficher S

De
Publié par

Équipe Académ photocopi local N,S; //N : nomb //S : somm saisir(N); si N<=30 a S:=N*0. fsi si N>30 et S:=3.60+ fsi si N>60 et S:=6.60+ fsi si N>100 a S:=9.80+ fsi afficher(S } :; Forfaits() local N,A, //N : nomb saisir(N); A := 20; B := 0.15* C:= 12+0. si (A<=B e afficher fsi si (B<=A e afficher fsi si (C<=A afficher fsi } :; ique Mathém X es() :={ re de phot e à payer lors 12 N<=60 alo (N-30)*0.1 N<=100 a (N-60)*0.0 lors (N-100)*0 ); X :={ B,C; re de SMS N; 05*N; t A<=C) a (pour +N t B<=C) a (pour +N et C<=B) a (pour +N atiques Exercice cas ocopies rs 0 lors 8 .

  • récision de orne inferi

  • affiche fsi

  • orne super

  • fpour

  • minimu minimum local

  • fsi


Publié le : lundi 18 juin 2012
Lecture(s) : 45
Source : mathematiques.ac-bordeaux.fr
Nombre de pages : 5
Voir plus Voir moins
Équipe Académ
photocopi
local N,S;
//N : nomb
//S : somm
saisir(N);
si N<=30 a
S:=N*0.
fsi
si N>30 et
S:=3.60+
fsi
si N>60 et
S:=6.60+
fsi
si N>100 a
S:=9.80+
fsi
afficher(S
}
:;
Forfaits()
local N,A,
//N : nomb
saisir(N);
A := 20;
B := 0.15*
C:= 12+0.
si (A<=B e
afficher
fsi
si (B<=A e
afficher
fsi
si (C<=A
afficher
fsi
}
:;
mique Mathém
X
ies() :={
bre de phot
me à payer
alors
.12
t N<=60 alo
+(N-30)*0.1
t N<=100 a
+(N-60)*0.0
alors
+(N-100)*0
S);
X
:={
,B,C;
bre de SMS
*N;
.05*N;
et A<=C) a
("pour "+N
et B<=C) a
("pour "+N
et C<=B) a
("pour "+N
atiques
Exercice
Xcas
tocopies
ors
10
lors
08
0.06
Xcas
S
alors
N+" SMS,
prix de "
alors
N+" SMS,
prix de
alors
N+" SMS,
prix de "
s d’algorith
Ph
Forfait A ;
"+A+" euro
Forfait B ;
"+B+" eur
Forfait C ;
"+C+" euro
Page
1
/
5
hmique en
hotocop
SMS
os")
ros")
os")
seconde : F
pies
Fonctions
ALGOB
ALGOB
B
BOX
BOX
ordeaux - 2010
0
Équipe Académ
IMC():={
local P,T,I
//P poids d
//T taille d
//I indice d
saisir("Po
saisir("Ta
I:=P/(T^2
si I<18.5 a
afficher
sinon
si I<=2
affich
sinon
affich
fsi
fsi
}:;
IMC() :={
local P,T,I
//P : poids
//T : taille
//S : sexe d
saisir("Po
saisir("Ta
saisir("Se
I:=P/(T^2
afficher("
si I<18.5 a
afficher(
sinon
si I>25 a
afficher
sinon
afficher
fsi
fsi
si(S=="H
si I>23 a
afficher
sinon
afficher
fsi
sinon
si I>22 a
afficher
sinon
afficher
fsi
fsi
}:;
mique Mathém
X
I;
de l'individ
de l'individ
de masse co
oids en kg"
aille en m",
2);
alors
("
Vous êtes
25 alors
her("
Vous ê
her("
Vous ê
I,S;
s en kg
e en m
de la perso
oids en kg"
aille en m",
exe : H ou F
2);
"I="+I);
alors
("
L'individu
alors
r("
L'individu
r("
L'individu
") alors
alors
r("
L'individu
r("
L'individu
alors
r("
L'individu
r("
L'individu
atiques
Ind
Xcas
du
du
orporelle
,P);
,T);
de constitutio
êtes de constit
êtes en surpoi
nne (H ou
,P);
,T);
F",S);
est en état de
u est en surp
u est de const
u est déclaré
u n'est pas dé
u est déclaré
u n'est pas dé
dice de
on maigre
")
tution moyen
ids
")
F)
e maigreur
")
oids
")
titution
moyenn
à risque
")
éclaré à risqu
à risque
")
éclaré à risqu
Page
2
/
5
masse c
nne
")
)
ne
")
ue
")
ue
")
corporelle
ALGOB
B
BOX
ordeaux - 2010
Équipe Académ
// Minimu
Minimum
local x, M
f(x):=3*x^
// 10^(-P)
// h est le n
h:=0;
saisir(P);
x:=-1;
Min:=f(x)
c:=x;
tantque(x
h:=h+1;
x:=-1+(1
y:=f(x);
si(y<Mi
Min:=
c:=x;
fsi
ftantque
afficher("
afficher("
}
:;
mique Mathém
X
um d'une fo
():={
in, c, P, y,
^2-2*x+1;
est la préc
nombre de
);
x<=2)faire
10^(-P)*h);
n)alors
=y;
"le minimu
" Il est attei
atiques
M
Xcas
onction f
h, f;
cision dema
e pas
;
m de f est :
int en x0 : "
inimum
andée
:
"+evalf(Mi
"+evalf(c))
Page
3
/
5
m d’une
in));
);
e fonction
ALGOB
B
BOX
ordeaux - 2010
Équipe Académ
Dichotomi
local n,a,b
//n est la p
//a est la b
recherche
//b est la b
recherche
saisir(n);
f(x) := x^3
a := 0;
b := 1;
tantque (b
m := (a+b
p := f(a)*
si p>0 alo
a := m
sinon
b := m
fsi
ftantque
afficher("
}
benef_ma
local k,be
benef_ma
pour k de
benef:=(
si benef>
benef_
fsi
fpour
pour k de
benef:=(
si benef=
affiche
fsi
fpour
}
:;
mique Mathém
X
i
e() :={
b,m,p,x,f;
précision de
borne inferi
borne super
3-5*x^2+10
b-a)>10^(-n
b)/2;
*f(m);
ors
La solution
"=+ev
X
ax():={
nef, benef_
ax:=1000*(1
e 1 jusque 3
(1000+100*
f>benef_ma
_max:=ben
e 1 jusque 3
(1000+100*
f==benef_m
er("un nom
atiques
Xcas
emandee
ieure de l'in
rieure de l'i
0*x-5;
n) faire
n est compr
valf(a)+" et
Xcas
_max;
1.20-0.85);
35 faire
*k)*(1.20-k
ax alors
nef
35 faire
*k)*(1.20-k
ax alors
mbre de bai
le m
Di
ntervalle d
intervalle d
rise entre :
t : "+evalf(
Le
k/100-0.85);
k/100-0.85);
isses réalisa
aximum :"
Page
4
/
5
ichotom
e
de
(b));
e pompi
;
;
ant
"+k)
mie
iste
ALGOB
ALGOB
B
BOX
BOX
ordeaux - 2010
Équipe Académ
benef_ma
local k,be
liste_autr
liste_max
liste_autr
benef_ma
DispG;
pour k de
benef:=(
si benef>
benef_
fsi
fpour
pour k de
benef:=(
si benef=
affiche
liste_m
sinon
liste_au
fsi
fpour
affichage(
affichage(
}
:;
mique Mathém
ax_2():={
nef, benef_
e;
:=[];
e:=[];
ax:=1000*(1
e 1 jusque 3
(1000+100*
f>benef_ma
_max:=ben
e 1 jusque 3
(1000+100*
f==benef_m
er("un nom
ax:=appen
utre:=appe
(liste_max,
(liste_autre
atiques
_max, liste_
1.20-0.85);
35 faire
*k)*(1.20-k
ax alors
nef
35 faire
*k)*(1.20-k
ax alors
bre de bai
le ma
nd(liste_ma
end(liste_au
point_widt
e,point_wid
_max,
k/100-0.85);
k/100-0.85);
sses réalisa
aximum :"+
ax,point
(k,bene
utre,point
(k,ben
th_4+rouge
dth_4+vert)
Page
5
/
5
;
;
ant
+k);
ef));
nef))
e);
);
Bordeaux - 2010
Soyez le premier à déposer un commentaire !

17/1000 caractères maximum.