bac2016 Enonce MotPasse .pdf


Nom original: bac2016--Enonce MotPasse --.pdfTitre: bac2016--Enonce MotPasse --Auteur: hp

Ce document au format PDF 1.4 a été généré par PDFCreator Version 1.5.0 / GPL Ghostscript 9.05, et a été envoyé sur fichier-pdf.fr le 10/05/2018 à 20:45, depuis l'adresse IP 196.229.x.x. La présente page de téléchargement du fichier a été vue 336 fois.
Taille du document: 55 Ko (2 pages).
Confidentialité: fichier public


Aperçu du document


Khaoula abaidi

Lycée AHD JADID

Année scolaire 2017 2018

Proposition de correction de l'énoncé Bac pratique 2016 'MotPasse'
program motPasse ;
uses wincrt ;
type
tab = array[1..10] of string ;
var
t, tm : tab ;
n : integer ;
{------ Procédure pour remplir un tableau t de taille n par des chaines de caractères ne contenant que des
lettres majuscules et de 20 caractères au maximum }
procedure remplir (var t : tab ; n : integer);
var i,j : integer ;
begin
for i := 1 to n do
repeat
begin
write('Donner le nom de l''utilisateur n° ',i,' : ');
readln(t[i]);
j := 0 ;
repeat
j := j + 1 ;
until not(t[i][j] in ['A'..'Z']) or (j = length(t[i]));
end ;
until (t[i][j] in ['A'..'Z']) and (length(t[i])<=20);
end ;
{------ Fonction pour transformer selon le caractère c en @ ou 0 ------}
function transformer(ch : string ; c : char) : string;
var i : integer ;
sh : string ;
cr : char ;
begin
sh := ch ;
if c = 'A' then cr := '@' ;
if c = 'O' then cr := '0' ;
for i := 1 to length(ch) do
if ch[i]= c then sh[i] := cr ;
transformer := sh ;
end ;
{------ Fonction pour ajouter le nombre de voyelles ------}
function ajouterVoy( ch : string) : string ;
var i, nbv : integer ;
chv,sh : string ;
begin
nbv := 0 ;
sh := ch ;
for i := 1 to length(ch) do
if sh[i] in ['A','E','U','I','O','Y','@','0'] then nbv := nbv + 1 ;
str(nbv, chv);
sh := sh + chv ;
ajouterVoy := sh ;
end ;
Langage de programmation : Pascal

Khaoula abaidi
Lycée AHD JADID
procedure genererTM(var tm : tab ; t : tab ; n : integer);
var i : integer ;
begin
for i := 1 to n do
begin
tm[i] := transformer(t[i],'A');
tm[i] := transformer(tm[i],'O');
tm[i] := ajouterVoy(tm[i]);
end ;
end;
{------ Procédure pour afficher un tableau t de n éléments ------}
procedure afficher(t : tab ; n : integer);
var i : integer ;
begin
for i := 1 to n do
write(t[i],' ');
writeln('');
end ;
begin
repeat
begin
write('Donner le nombre d''utilisateurs : ');
readln(n);
end ;
until n in [1..9];
remplir(t, n);
genererTM(tm,t,n);
afficher(tm, n);
end.

Langage de programmation : Pascal

Année scolaire 2017 2018


Aperçu du document bac2016--Enonce MotPasse --.pdf - page 1/2

Aperçu du document bac2016--Enonce MotPasse --.pdf - page 2/2




Télécharger le fichier (PDF)


Télécharger
Formats alternatifs: ZIP



Documents similaires


bac2016  enonce motpasse
sousprogrammes utiles
sousprogrammes utiles
propositioncorrectionbac2016s8
program bac blanc2016
program bac blanc2016 1

Sur le même sujet..




🚀  Page générée en 0.068s