proposition correction bac2016 S8 .pdf


Nom original: proposition_correction_bac2016_S8.pdfTitre: proposition_correction_bac2016_S8Auteur: 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 16/05/2018 à 21:37, depuis l'adresse IP 196.229.x.x. La présente page de téléchargement du fichier a été vue 293 fois.
Taille du document: 112 Ko (2 pages).
Confidentialité: fichier public


Aperçu du document


MINISTERE EDUCATION TUNISIENNE
--- --------------------------------------------------------

Proposition de correction bac Pratique
le 19 Mai 2016

Epreuve :
Informatique
Section :
Sciences Expérimentales
Durée : 1 heure
Coefficient :
1
Classe : 4 sciences Expérimentales 2

Programme pascal
program NomServeur;
uses wincrt;
type
tab= array [1..10] of string;
var
n,n2,i : integer;
t1,t2 : tab;
{ ------------------------ Procédure de remplissage d'un tableau T1 de taille N tel que les éléments de
25 caractères au maximum ,
le Premier caractère de chacun est une lettre , et contient le signe @
---------------------- }
procedure remplir (n:integer ; var t1:tab);
var
i:integer ;
begin
for i:=1 to n do
repeat
begin
write('Donner une adresse e-mail : ');
readln(t1[i]);
end;
until (length(t1[i])<=25) and (upcase(t1[i][1]) in ['A'..'Z'])and (pos('@',t1[i]) in
[2..length(t1[i])-1]) ;
end;
{------------ Fonction qui permet de vérifier l'existance d'une chaine de caractères dans un
tableau T2 de n éléments ------------}
function existence(ch:string;n2:integer;t2:tab) : boolean ;
var
i : integer ;
begin
i:=0;
repeat
i:=i+1;
until (ch=t2[i]) or (i>=n2) ;
if ch = t2[i] then existence := true
else existence:=false ;
end;
{ ------------------------ Procédure d'extraction des noms de serveurs du tableau T1 dans le tableau T2
sans redondance (redondance = répétition plus qu'une fois') ----------------------- '}
procedure serveurs(n:integer;t1:tab;var t2:tab ;var n2:integer);
var i,j:integer;
ch:string;
begin
j:=0;
for i:=1 to n do
begin
ch:=copy(t1[i],pos('@',t1[i])+1, length(t1[i])-pos('@',t1[i]));
if existence(ch,j,t2)=false then
Proposé le Mercredi 16 Mai 2018

Année scolaire : 2017 - 2018

begin
t2[j]:=ch;
j:=j+1;
end;
end;
n2:=j;
end;
{ ------------------------ Procédure d'affichage d'un tableau T ayant son nombre d'éléments
--------------- }
procedure afficher(n2:integer; t2:tab);
var i:integer;
begin
for i:=1 to n2 do
write(t2[i], ' ');
end;
{--------------------------------------- PROGRAMME PRINCIPAL ---------------------------------------}
begin
repeat
begin
write('Donner le nombre d''adresses e-mail : ');
readln(n);
end;
until n in [5..10];
remplir(n,t1);
serveurs(n,t1,t2,n2);
afficher(n2,t2);
end.

Proposé le Mercredi 16 Mai 2018

--------

Année scolaire : 2017 - 2018


Aperçu du document proposition_correction_bac2016_S8.pdf - page 1/2

Aperçu du document proposition_correction_bac2016_S8.pdf - page 2/2




Télécharger le fichier (PDF)


proposition_correction_bac2016_S8.pdf (PDF, 112 Ko)

Télécharger
Formats alternatifs: ZIP



Documents similaires


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