SousProgrammes Utiles .pdf



Nom original: SousProgrammes Utiles.pdfTitre: SousProgrammes UtilesAuteur: 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 à 19:38, depuis l'adresse IP 196.234.x.x. La présente page de téléchargement du fichier a été vue 473 fois.
Taille du document: 120 Ko (7 pages).
Confidentialité: fichier public

Aperçu du document


Khaoula abaidi

Lycée AHD JADID

Année scolaire 2017 2018

Sous-programmes utiles
1. Une procédure qui permet la saisie d'un entier n composé par p chiffres
Procedure saisie(var n:integer);
var
ch : string;
begin
repeat
begin
write('N = ');
readln(n);
str(n,ch);
end ;
until length(ch) = p ;
end;

2. Une procédure qui permet la saisie d'un entier strictement positif
Procedure saisie(var n:integer);
begin
repeat
begin
write('N = ');
readln(n);
end ;
until n>0;
end;

3. Une procédure qui permet la saisie d'une chaine de caractères composée par p caractères
Procedure saisie(var ch:string);
begin
repeat
begin
write('ch = ');
readln(ch);
end ;
until length(ch) = p;
end;

4. Une procédure qui permet le choix d'un entier n pair

aléatoirement appartenant à

l'intervalle[10..100]
Procedure saisie(var n:integer);
begin
repeat
begin
n := 10 + random(91);
end ;
until n mod 2 = 0 ;
end;

5. Une Procédure qui permet la saisie d'une chaine de p caractères composée uniquement par des
chiffres

Langage de programmation : Pascal

Khaoula abaidi
Lycée AHD JADID
Procedure saisie(var ch:string);
function chiffres(sh : string):boolean;
var i : integer;
begin
i:= 1;
while(ch[i] in ['0'..'9']) and (i<=length(ch) ) do
i := i+1;
if i<=length(ch) then
chiffres := false
else chiffres := true ;
end;
begin
repeat
begin
write(' [Saisie chaine de p chiffres ] Ch = ' );
readln(ch);
end ;
until (chiffres(ch) = true) and (length(ch) = p);
end;

Année scolaire 2017 2018

6. Une procédure qui permet le remplissage d'un tableau T de n entiers
Procedure remplissage(var t : tab ; n:integer);
var i : integer;
begin
for i := 1 to n do
begin
write(' T[ ', i , ' ] = ');
readln(t[i]);
end ;
end;

7. Une procédure qui permet le remplissage d'un tableau T de n entiers impairs ou premiers et
strictement inférieur à 100
procedure remplissage(var t : tab ; n:integer);
var i : integer;
function premier ( x :integer):boolean ;
var i , s : integer;
begin
s := 1;
for i := 2 to x do
if x mod i = 0 then
s := s + 1 ;
if s = 2 then premier := true
else premier := false;
end;
begin
for i := 1 to n do
repeat
begin
write(' T[ ', i , ' ] = ');
readln(t[i]);
end ;
until ((t[i] mod 2 <>0) or (premiers(t[i])) and (t[i] < 100);
end;
Langage de programmation : Pascal

Khaoula abaidi

Lycée AHD JADID

Année scolaire 2017 2018

8. Une procédure qui permet le remplissage d'un tableau T de n chaines de 6 caractères contenant
que des lettres majuscules
procedure remplissage(var t : tab ; n:integer);
var i : integer;
function majuscule ( x :string):boolean ;
var i : integer;
begin
i := 1;
repeat
if x[i] in ['A'..'Z'] then
i := i + 1
else b := false;
until (b = false) or ( i >length(x)) ;
if i > length(x) then b := true ;
majuscule := b ;
end;
begin
for i := 1 to n do
repeat
begin
write(' T[ ', i , ' ] = ');
readln(t[i]);
end ;
until (majuscule(t[i])) and (length(t[i] ) = 6);
end;

9. Une procédure qui permet le remplissage d'un tableau T de n chaines d'au moins 10 caractères
tel que le deuxième caractère de chaque élément du tableau n'est pas une voyelle
procedure remplissage(var t : tab ; n:integer);
var
i : integer;
begin
for i := 1 to n do
repeat
begin
write(' T[ ', i , ' ] = ');
readln(t[i]);
end ;
until ( not( upcase(t[i][2]) in ['A','E','O','U','I','Y']) ) and (length(t[i]) >= 10);
end;

10. Une procédure qui permet le remplissage d'un tableau T de n chaines de caractères autres que
des chiffres
procedure remplissage(var t : tab ; n:integer);
var i : integer;
function chiffres(ch : string):boolean;
var
i : integer;
begin
i:= 1;
while(ch[i] in ['0'..'9']) and (i<=length(ch)) do i := i+1;
if i<=length(ch) then chiffres := false else chiffres := true ;
end;
Langage de programmation : Pascal

Khaoula abaidi
begin
for i := 1 to n do
repeat
begin
write(' T[ ', i , ' ] = ');
readln(t[i]);
end ;
until not (chiffres(t[i]));
end;

Lycée AHD JADID

Année scolaire 2017 2018

11. Une procédure qui permet l'affichage d'un tableau composé par n entiers
procedure affichage(t : tab ; n : integer);
var i : integer;
begin
for i:= 1 to n do
write(t[i], ' ');
end;

12. Une procédure qui permet l'affichage d'un tableau dans l'ordre inverse composé par n
entiers
procedure affichage(t : tab ; n : integer);
var i : integer;
begin
for i := n down to 1 do write(t[i], ' ');
end;

13. Une fonction qui permet la vérification qu'un entier est parfait ( un entier parfait est égal à la
somme de ses diviseurs propres par exemple : 6 = 1 + 2 +3)
function parfait(x : integer) : boolean;
var i , s : integer;
begin
s := 0 ;
for i := 1 to x div 2 do
if x mod i = 0 then s := s + i ;
if s = x then parfait := true
else parfait := false ;
end;

14. Une fonction qui permet la vérification qu'une chaine de caractères est un palindrome (Un
palindrome est une chaine de caractères qui peut être lue du gauche à droite et du droite à
gauche est elle s'agit de la même chaine )
function palindrome(sh : string):boolean;
var i, j : integer ;
begin
i := 1 ; j := length(sh) ;
while (i <= j) and (sh[i] = sh[j] ) do
begin
i := i + 1 ;
j := j - 1 ;
end ;
if i>j then palindrome := true
else palindrome := false ;
end;
Langage de programmation : Pascal

Khaoula abaidi

Lycée AHD JADID

Année scolaire 2017 2018

15. Une fonction qui permet le calcul le nombre d'occurrences d'un caractère x donné (Le
nombre d'occurrences est le nombre de répétitions) dans une chaine ch
function occurrence(ch : string ; x : char ):integer;
var i , s : integer;
begin
s := 0 ;
for i:= 1 to length(ch) do
if ch[i] = x then s := s+ 1;
occurrence := s ;
end;

16. Une fonction qui permet le calcul du factorielle d'un entier n donné(factorielle de n! = n * n-1*n2* . . . * 1)
function factorielle(n : integer ): integer ;
var f , i : integer;
begin
f := 1 ;
for i := 1 to n do
f := f * i ;
factorielle := f ;
end;

17. Une procédure qui permet le remplissage d'un tableau de n numéros de téléphones
aléatoirement ( Un numéro de téléphone est une chaine de huit chiffres sachant que le
premier et le deuxième chiffre doivent être dans l'intervalle[3..9] )
procedure remplissage(var t : tab ; n : integer );
var i : integer;
procedure telephoneAleatoire(var ch : string);
var i , c : integer ;
sh : string;
begin
ch := '';
randomize ;
for i:= 1 to 8 do
begin
case i of
1 , 2 : c:=3+random(7);
else c:=random(10);
end ;
str(c,sh);
ch := ch + sh;
end ;
end;
begin
for i := 1 to n do
telephoneAleatoire( t[i]);
end;

Langage de programmation : Pascal

Khaoula abaidi

Lycée AHD JADID

Année scolaire 2017 2018

18. Une fonction qui permet le calcul des termes d'une suite de fibonacci
Une suite de Fibonacci est une suite d'entiers dans laquelle chaque terme est la somme des deux
termes qui le précèdent.
Elle commence généralement par les termes 0 et 1 : U0 = 1 , U1 = 1 et Un+2 = Un+1 + Un

function fibonacci(x :integer): integer;
var a,b,c,i : integer;
begin
if x <= 1 then
c := 1
else
begin
b := 1 ;
c := 1 ;
for i := 2 to x do
begin
a := b ;
b := c ;
c := b + a ;
end;
end;
fibonacci := c;
end;

19. Une fonction qui permet le calcul d'un PGCD de deux entiers a et b (le PGCD est le plus grand
commun diviseur de 2 entiers)

function pgcd(a,b : integer) : integer;
var max ,min,z: integer;
begin
max := a ; min := b ;
if a<b then
begin
min := a; max := b;
end;
z:= max - min ;
while z<>0 do
begin
max := min;
min := z;
z := abs(max-min);
end;
sgbd:=min ;
end;

Langage de programmation : Pascal

Khaoula abaidi

Lycée AHD JADID

Année scolaire 2017 2018
20. Une fonction qui permet la vérification que deux entiers sont premiers entre eux (Deux
nombres entiers dont le PGCD est égal à 1 sont premiers entre eux. Ils n'ont alors qu'un seul
diviseur commun :1)

function premiersEntreEux(a,b : integer) : integer;
begin
if pgcd(a,b) = 1 then premiersEntreEux := true
else premiersEntreEux := false ;
end;

Langage de programmation : Pascal


SousProgrammes Utiles.pdf - page 1/7
 
SousProgrammes Utiles.pdf - page 2/7
SousProgrammes Utiles.pdf - page 3/7
SousProgrammes Utiles.pdf - page 4/7
SousProgrammes Utiles.pdf - page 5/7
SousProgrammes Utiles.pdf - page 6/7
 




Télécharger le fichier (PDF)

SousProgrammes Utiles.pdf (PDF, 120 Ko)

Télécharger
Formats alternatifs: ZIP



Documents similaires


sousprogrammes utiles
sousprogrammes utiles
propositioncorrectionbac2016s8
program bac blanc2016
program bac blanc2016 1
fiche7 ex sous programme

Sur le même sujet..