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 05/05/2018 à 00:14, depuis l'adresse IP 41.224.x.x. La présente page de téléchargement du fichier a été vue 495 fois.
Taille du document: 77 Ko (5 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 + i ;
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 upcase (ch[i]) in ['A'..'Z'] then
begin
i := i + 1;
b:= true ;
end
else b := false;
until (b = false) or ( i >length(ch)) ;
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(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;
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
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 b := false ;
end;

14. Une fonction qui permet la vérification qu'une chaine de caractères est un palindrome
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;

15. Une fonction qui permet le calcul le nombre d'occurrences d'un caractère x donné
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é

Langage de programmation : Pascal

Khaoula abaidi
function factorielle(n : integer ):integer;
var f , i : integer;
begin
f := 1 ;
for i := 1 to n do
f := f * i ;
factorielle := f ;
end;

Lycée AHD JADID

Année scolaire 2017 2018

17. Une procédure qui permet la saisie d'un tableau de n chaines de caractères tel que pour chacune
le deuxième caractère est soit un caractère minuscule, soit un caractère majuscule ou un chiffre
procedure saisie(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 t[i][2] in ['z' , 'A' .. 'Z' , '0' .. '9'];
end;

18. Une fonction qui permet le calcul des termes d'une suite
procedure saisie(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 t[i][2] in ['z' , 'A' .. 'Z' , '0' .. '9'];
end;

Langage de programmation : Pascal


SousProgrammes Utiles.pdf - page 1/5


SousProgrammes Utiles.pdf - page 2/5


SousProgrammes Utiles.pdf - page 3/5

SousProgrammes Utiles.pdf - page 4/5

SousProgrammes Utiles.pdf - page 5/5


Télécharger le fichier (PDF)

SousProgrammes Utiles.pdf (PDF, 77 Ko)

Télécharger
Formats alternatifs: ZIP



Documents similaires


sousprogrammes utiles
sousprogrammes utiles
fiche7 ex sous programme
propositioncorrectionbac2016s8
bac2016  enonce motpasse
fiche6 ex sous programme

Sur le même sujet..