proposition correction bac2011 14h .pdf


Nom original: proposition_correction_bac2011_14h.pdf
Titre: proposition_correction_bac2011_14h30
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 28/04/2018 à 15:57, depuis l'adresse IP 41.224.x.x. La présente page de téléchargement du fichier a été vue 123 fois.
Taille du document: 82 Ko (1 page).
Confidentialité: fichier public


Aperçu du document


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

Proposition de correction bac Pratique
2011- 24 Mai séance 14h 00

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

Programme pascal
program bac2011_14h ;
uses wincrt ;
var n : integer;
procedure saisie(var n : integer);
begin
repeat
begin
write('n = ');
readln(n);
end;
until n>0;
end;
function distinct(n : integer):boolean;
var i , p : integer ;
c : char ;
ch, sh : string;
b : boolean;
begin
str(n,ch);
i:=1;
sh := ch;
b:=false;
repeat
begin
c:=ch[i];
sh := copy(ch,i+1,length(ch)-i);
if pos(c,sh) = 0 then
begin
b := true;
i := i + 1;
end
else
b:= false;
end;
until (b = false) or (i = length(ch));
distinct := b;
end;
procedure affiche(n : integer);
begin
if distinct(n) then write ('Cet entier est distinct')
else write('Cest entier non distinct');
end;
begin
saisie(n);
affiche(n);
end.

Proposé le Samedi 28 Avril 2018

Année scolaire : 2017 - 2018


Aperçu du document proposition_correction_bac2011_14h.pdf - page 1/1


Télécharger le fichier (PDF)

proposition_correction_bac2011_14h.pdf (PDF, 82 Ko)

Télécharger
Formats alternatifs: ZIP







Documents similaires


proposition correction bac2011 14h
sousprogrammes utiles
sousprogrammes utiles
program bac blanc2016
proposition correction bac2013 09h30
proposition correction bac2011 14h30

Sur le même sujet..