série classe .pdf


À propos / Télécharger Aperçu
Nom original: série classe.pdf
Auteur: USER

Ce document au format PDF 1.5 a été généré par Microsoft® Office Word 2007, et a été envoyé sur fichier-pdf.fr le 30/11/2012 à 08:03, depuis l'adresse IP 197.7.x.x. La présente page de téléchargement du fichier a été vue 2550 fois.
Taille du document: 350 Ko (8 pages).
Confidentialité: fichier public


Aperçu du document


Prof :M. CHAABANI Saber

Algorithmique & Programmation
(3 Science de L’informatique)

2012/2013

Exercice 1 :
analyser le problème qui permet de remplir un tableau de n entiers puis de remplir un deuxième
tableau T2 contenant l'inverse du tableau T et chaque case aussi sera inversé

exemple
456

871

234

547

691

196

745

432

178

654

Exercice 2
analyse le problème qui permet de remplir une matrice de n lignes et m colonnes par des chaines de
caractères
insérer au début de la chaîne la plus longue par le symbole #suivie de la longueur de la chaîne.
Saisir un caractère c au clavier et saisir à la fin de chaque chaîne ? si le caractère c existe
et le caractère % si le caractère c n'existe pas.
Ahmed

Ali

Mohamed

Meriem

Nizar

Ramzi

Yassmine

Nour

Rihab

Ahmed?

Ali%

Mohamed?

Meriem?

Nizar%

Ramzi%

#8Yassmine?

Nour%

Rihab%

@mail: informatique.bac2013@gmail.com

1

: Algorithmique & Programmation

Prof :M. CHAABANI Saber

Algorithmique & Programmation
(3 Science de L’informatique)

2012/2013

Correction exercice 1
Analyse
Résultat

T2[]
Traitement
Type

pour i de 1 à n faire
ecrire (t2[i])
fin pour

Tab = tableau de 50 entiers
Objet

t/n

rôle

pour i de 1 à n faire

T1

Tab

Tableau donné

c ←t3*i+ div 100

T2

Tableau résultat

d← (t3*i+ div 10 )mod 10

T3

Tableau intermédiaire

u← t3*i+ mod 10
t2*i+← u*100 + d*10 + c
fin pour
*j←1+ pour i de n à 1 faire (pas -1)
t3*j+← t*i+
j←j+1

i

entiers

Compteur

j

Compteur

c

Centaine

d

Dizaine

u

Unité

n

Nombre d'éléments

fin pour
n = donnée

@mail: informatique.bac2013@gmail.com

2

: Algorithmique & Programmation

Prof :M. CHAABANI Saber

Algorithmique & Programmation
(3 Science de L’informatique)

2012/2013

0) Début exercice 1

program ex1;uses wincrt;

1)Ecrire (" donner n ")

type

2) lire (n)

tab=array [1..50]of integer;

3) pour i de 1 à n faire

var

Ecrire("donner l''element num ",i)

t,t2,t3:tab;

Lire(t[i])

n,i,c,d,u,j :integer;

Fin pour

begin

4) j←1

writeln('donner n');readln(n);

5) pour i de n à 1 faire (pas -1)

for i:=1 to n do

t3*j+← T*i+

begin

j←j+1

writeln('donne l''element num',i);

Fin Pour

readln(t[i]);

6) pour i de 1 à n faire

end;

c ←t3*i+ div 100

j:=1;

d← (t3*i+ div 10 )mod 10

for i:=n downto 1 do

u← t3*i+ mod 10

begin

t2*i+← u*100 + d*10 + c

t3[j]:=t[i];

fin pour
7)

j:=j+1;

pour i de 1 à n faire

end;

ecrire (t2[i])

for i:=1 to n do

Fin Pour

begin

8)Fin exercice 1

c:= t3[i] div 100;
d:= (t3[i] div 10)mod 10;
u:= t3[i] mod 10;
t2[i]:=u*100 + d*10 + c;
end;
for i:= 1 to n do
write(t2[i],' ');
end.

@mail: informatique.bac2013@gmail.com

3

: Algorithmique & Programmation

Prof :M. CHAABANI Saber

Algorithmique & Programmation
(3 Science de L’informatique)

Correction exercice 2

2012/2013

fin si

Analyse

fin pour

Résultat

fin pour

M[]

Pour i de 1 à n faire

Traitement

pour j de 1 à m faire

Pour i de 1 à n faire

Si(position(c,m[i,j]>0)alors

pour j de 1 à m faire

insérer("?",m[i,j],long(m[i,j]+1)

Ecrire (m[i,j])

Sinon

fin pour

insérer("%",m[i,j],long(m[i,j]+1)

fin pour

Fin si

insérer (ch,m[maxl,maxc],1)

Fin pour

ch←"#"+l

Fin Pour

convch(long(max),l)

c= donné("donner le caractère à chercher dans la
matrice")

*max←m*1,1+,maxl←1,maxc←1+

Pour i de 1 à n faire

Pour i de 1 à n faire

pour j de 1 à m faire

pour j de 1 à m faire

m[i,j]= donnée("donner le nom de la ligne",i,"et
la colonne",j)

Si (long(m[i,j]>max )alors
max←m*i,j+

fin pour

maxl←i

fin pour

maxc←j
n,m=donnée("donner nombre de ligne et de
colonnes")

@mail: informatique.bac2013@gmail.com

4

: Algorithmique & Programmation

Prof :M. CHAABANI Saber

Algorithmique & Programmation
(3 Science de L’informatique)

Type
Mat= tableau de [1..10,1..10] chaîne

2012/2013

Objet

t/n

rôle

M

Mat

matrice

I

Entiers

Compteur

j

Entier

Compteur

c

Caractère

Caracère à chercher

maxl

Entier

Indice ligne maximum

maxc

Entier

Indice colonne max

max

Chaine

Chaine max

ch

Chaine

A insèrer

l

Chaine

Longuer de la chaine

n,m

Entier

Ligne,colonne

0) Début Ex2
1) ECrire ("donner le nombre lignes")
2)lire(n)
3)Ecrire("donner nombre de colonne")
4)lire(m)
5) Pour i de 1 à n faire
pour j de 1 à m faire
m[i,j]= donnée("donner le nom de la ligne",i,"et la colonne",j)
fin pour
fin pour
6) max←m*1,1+
7)maxl←1
8)maxc←1

@mail: informatique.bac2013@gmail.com

5

: Algorithmique & Programmation

Prof :M. CHAABANI Saber

Algorithmique & Programmation
(3 Science de L’informatique)

2012/2013

9) Pour i de 1 à n faire
pour j de 1 à m faire
Si (long(m[i,j]>max )alors
max←m*i,j+
maxl←i
maxc←j
fin si
fin pour
fin pour
10) convch(long(max),l)
11) ch←"#"+l
12) insérer (ch,m[maxl,maxc],1)
13) Pour i de 1 à n faire
pour j de 1 à m faire
Si(position(c,m[i,j]>0)alors
insérer("?",m[i,j],long(m[i,j]+1)
Sinon
insérer("%",m[i,j],long(m[i,j]+1)
Fin si
Fin pour
Fin Pour
14) Pour i de 1 à n faire
pour j de 1 à m faire
Ecrire (m[i,j])
fin pour
fin pour
15) fin ex2

@mail: informatique.bac2013@gmail.com

6

: Algorithmique & Programmation

Prof :M. CHAABANI Saber
program exercice2;

Algorithmique & Programmation
(3 Science de L’informatique)
max:=me[i,j];

uses wincrt;

maxl:=i;

type

maxc:=j;

Mat= array[1..10,1..10]of string;

2012/2013

end;

var

end;

me:mat;

end;

i,j,maxl,maxc,n,c,m:integer;

str(length(max),l);ch:='#'+l;

l,max,ch,car:string;

insert(ch,me[maxl,maxc],1);

begin

writeln('donner un caractere a chercher ');

writeln('donner nombre de lignes ');

readln(car);

readln(n);

for i:=1 to n do

writeln('donner nombre de colonnes ');

begin

readln(m);

for j:=1 to m do

for i:=1 to n do

begin

begin

if(pos(car,me[i,j])>0)then

for j:=1 to m do

insert('?',me[i,j],length(me[i,j])+1)

begin

else

writeln('donner l''element de la ligne ',i,'et de
la colonne ',j);

insert('%',me[i,j],length(me[i,j])+1);
end; end;

readln(me[i,j]);

for i:=1 to n do

end; end;

begin

max:= me[1,1];maxl:=1;maxc:=1;

for j:=1 to m do

for i:=1 to n do

begin

begin

write(me[i,j],'

for j:=1 to m do

end;

begin

writeln;

if (length(me[i,j])>length(max))then

end;

begin

@mail: informatique.bac2013@gmail.com

');

end.
7

: Algorithmique & Programmation

Prof :M. CHAABANI Saber

Algorithmique & Programmation
(3 Science de L’informatique)

2012/2013

Remplissage aléatoire d'un tableau de 30 entiers en pascal
program aleatoir;
uses wincrt;
type
tab = array[1..30]of integer;
var t:tab;
i:integer;
begin
randomize;
for i:=1 to 30 do
begin
t[i]:= random(1000);
end;
for i:=1 to 30 do
write(t[i],' ');
end.

@mail: informatique.bac2013@gmail.com

8

: Algorithmique & Programmation


Aperçu du document série classe.pdf - page 1/8

 
série classe.pdf - page 2/8
série classe.pdf - page 3/8
série classe.pdf - page 4/8
série classe.pdf - page 5/8
série classe.pdf - page 6/8
 




Télécharger le fichier (PDF)




Sur le même sujet..





Ce fichier a été mis en ligne par un utilisateur du site. Identifiant unique du document: 00143261.
⚠️  Signaler un contenu illicite
Pour plus d'informations sur notre politique de lutte contre la diffusion illicite de contenus protégés par droit d'auteur, consultez notre page dédiée.