fiche7 ex sous programme .pdf


Nom original: fiche7-ex-sous-programme.pdfAuteur: Kiteb.net

Ce document au format PDF 1.4 a été généré par Writer / LibreOffice 4.0, et a été envoyé sur fichier-pdf.fr le 26/02/2020 à 17:46, depuis l'adresse IP 196.235.x.x. La présente page de téléchargement du fichier a été vue 252 fois.
Taille du document: 89 Ko (1 page).
Confidentialité: fichier public


Aperçu du document


1-Procédure Permute :
Permutation de deux éléments

procedure permute(var a,b: integer) ;
var c : integer ;
begin
c:=a ; a:=b ; b:=c ;
end ;
2-Procédure saisir n avec contrôle de saisie :
procedure saisir(var n : integer) ;
begin
repeat
write('Donner n = ') ; readln(n) ;
until (n>=0) and (n <=20) ;
end ;

Devoirs et examens sur : www.Kiteb.net

3-Procédure remplissage d'un tableau :
procedure remplir( var t:tab ; n:integer) ;
var i:integer ;
begin
for i:=1 to n do
begin
write('T[',i,']=') ; readln(t[i]) ;
end ;
end ;

Sous programmes– Fiche 7 -Modules usuels 1
7-Procédure remplissage d'un tableau avec condition:

procedure remplir( var t:tab ; n:integer) ;
var i:integer ;
begin
for i:=1 to n do
repeat
write('T[',i,']=') ; readln(t[i]) ;
until t[i] >0 ;
end ;

11-Procédure remplissage d'un tableau par des
lettres au hasard:
procedure remplir( var t:tab ; n:integer) ;
var i:integer ;
begin
randomize ;
for i:=1 to n do

t[i]:=chr(random(26)+97);
end ;

8-Remplissage d'un tableau par des éléments en ordre : 12-Procédure inversion des éléments d'un tableau:

procedure remplir( var t:tab ; n:integer) ;
var i:integer ;
begin
write('T[1]=') ; readln(t[1]) ;
for i:=2 to n do
repeat
write('T[',i,']=') ; readln(t[i]) ;
until ( t[i] >t[i-1] );
end ;

procedure inversion( var t:tab ; n:integer) ;
var i,aux:integer ;
begin
for i:=1 to n div 2 do
begin

aux:=t[i] ; t[i]:=t[n-i+1]; t[n-i+1]:=aux ;
end ;
end ;
13-Fonction somme des éléments d'un tableau:
9-Procédure remplissage d'un tableau par des function somme( t:tab ; n:integer):integer ;
éléments distincts:
var i,s:integer ;
procedure remplir( var t:tab ; n:integer) ;
begin
var i,j:integer ; trouve:boolean ;
s:=0 ;
4-Procédure affichage d'un tableau :
begin
for i:=1 to n do
procedure afficher( t:tab ; n:integer) ;
write('T[1]=') ; readln(t[1]) ;
s:=s + t[i] ;
var i:integer ;
for i:=2 to n do
somme:=s ;
begin
repeat
end ;
for i:=1 to n do
write('T[',i,']=') ; readln(t[i]) ;
14-Fonction maximum d'un tableau:
write('T[',i,']=' , t[i]) ;
j:=1 ; trouve:=false ;
function maximum( t:tab ; n:integer):integer ;
end ;
repeat
var i,max:integer ;
5-Procédure affichage d'un tableau en ordre inverse:
if t[i]=t[j] then trouve:=true ;
begin
procedure afficher( t:tab ; n:integer) ;
j:=j+1 ;
max:=t[1] ;
var i:integer ;
until (trouve=true) or (j=i) ;
for i:=2 to n do
begin
until (trouve=false) ;
if t[i] >max then max:=t[i] ;
for i:=n downto 1 do
end ;
maximum:=max ;
write('T[',i,']=' , t[i]) ;
10-Procédure remplissage d'un tableau par
end ;
end ;
des entiers au hasard (entre 10 et 90):
15-Fonction fréquence d'un entier x dans un tableau:
6-Procédure affichage d'un tableau avec condition: procedure remplir( var t:tab ; n:integer) ;
function frequence( t:tab ; n:integer ; x;integer):integer ;
procedure afficher( t:tab ; n:integer) ;
var i:integer ;
var i,f:integer ;
var i:integer ;
begin
begin
begin
randomize ;
f:=0 ; for i:=1 to n do
for i:=1 to n do
for i:=1 to n do
if t[i] =x then f:=f+1 ;
if t[i] mod 2 =0 then write('T[',i,']=' , t[i]) ;
t[i]:=random(81)+10 ;
frequence:=f ;
end ;
end ;
end ;

16-Procédure extraire à partir d'un tableau T les
éléments pairs dans t1 et les impairs dans t2:
procedure extraire(t:tab;n:integer;
var t1:tab;var j:integer;var t2:tab;var k:integer);

var i:integer;
begin
j:=0; k:=0;
for i:=1 to n do
if t[i] mod 2=0 then begin
j:=j+1;
t1[j]:=t[i];
end
else begin
k:=k+1;
t2[k]:=t[i];
end;
end;
17-Procédure insertion d'un élément x dans un
tableau à une position p:
procedure insertion(var t:tab ; n:integer ;
x:integer ; p:integer) ;
var i:integer ;
begin
{décalage des éléments}
for i:=n+1 downto p+1 do t[i]:=t[i-1] ;
t[p]:=x ;
{insertion de x dans sa position}
end ;

18-Procédure insertion d'un élément x dans un
tableau trié:
procedure insertion(var t:tab ; n:integer; x:integer ) ;
var i,j:integer ;
begin
i:=1 ;
{recherche de i : position d'insertion }
while (t[i]<=x) and (i<=n)
i:=i+1 ;
for j:=n+1 downto i+1 do
{décalage des éléments}
t[j]:=t[j-1] ;
t[i]:=x ;
{insertion de x dans sa position}
end ;
19-Fonction existe d'un élément x dans un tableau :
function exisite(t:tab ; n:integer;x:integer):boolean ;

var i:integer ; trouve:boolean ;
begin
i:=0; trouve:=false ;
repeat
i:=i+1 ;
if t[i]=x then trouve:=true ;
until (trouve) or (i=n) ;
existe:=trouve ;
end ;


Aperçu du document fiche7-ex-sous-programme.pdf - page 1/1




Télécharger le fichier (PDF)


fiche7-ex-sous-programme.pdf (PDF, 89 Ko)

Télécharger
Formats alternatifs: ZIP



Documents similaires


fiche7 ex sous programme
sousprogrammes utiles
sousprogrammes utiles
proposition correction bac2011 14h30
proposition correction bac2013 09h30
les methodes de recherche