Educationtunisien.1fr1.net

program trie;
uses wincrt;
type
tab= array [1..20]of integer ;
var
n: integer;
t: tab ;
p :integer;
{*******saisie**********}
procedure saisie (var n: integer;var t :tab);
var
i:integer;
begin
repeat
writeln ('donner taille tableau');
readln (n);
until n in [5..20];
for i :=1to n do
begin
writeln ('T[',i,']=');
readln (t[i]);
end;
end;
{*******tri shell recursive**********}
procedure …[/i][/',i,'][/5..20][/1..20]

[ Lecture complète ]

program tri;
uses wincrt;
type
tab= array [1..20]of integer ;
var n: integer;
t,tmp: tab ;
d,p :integer;
{*********saisie*********}
procedure saisie (var n: integer;var t :tab);
var i:integer;
begin
repeat
writeln ('donner taille tableau:');
readln (n);
until n in [5..20];
for i :=1to n do
begin
writeln ('T[',i,']=');
readln (t[i]);
end;
end;
{*********fusion*********}
procedure fusion(VAR t:tab; …[/i][/',i,'][/5..20][/1..20]

[ Lecture complète ]

Exercice de pyramide d’entier

Spoiler:

program phyramide;
uses wincrt;
var i,j,n,k:integer;


procedure saisir(var n:integer); 1
begin 2 3 2
writeln(' donner N'); 4 3 5 3 4
…

[ Lecture complète ]

Exercice1 :
Soit deux suites récurrentes U et V :
V0=0 Vn+1= SQRT ((1+Vn)/2)
U0=2 Un+1=Un/ (Vn+1)
Ecrire un programme qui affiche les n termes de Un avec n>=15
Exercice2 :
Ecrire une analyse, un algorithme qui permet de calculer un terme d’indice n
De la suite ROBINSON Définie par :
Ui=a alors Ui+1= apparition de chaque chiffre dans apparaît dans Ui

Exemple
Si U0=1 …

[ Lecture complète ]