Les structures de contrôle itératives complètes

Algorithme :

0) Début Somme
1) [S ← 0] pour i de 1 à 5 faire
       Ecrire("Donner un réel : "), lire(x)
       S ← S + x
   FinPour
2) Ecrire("La somme est ", S)
3) Fin Somme

Tableau de déclaration des objets :

Trace d'exécution (avec S initialisé à 0) :

Traduction en Pascal :

program somme;
uses wincrt;
var
    x, s : real;
    i : integer;
begin
    s := 0;
    for i:=1 to 5 do
    begin
        write(' Donner un réel : ');
        readln(x);
        s := s + x;
    end;
    writeln('La somme est ', s:5:2);
End.

Algorithme :

0) Début Factoriel
1) Ecrire("Donner un entier"), lire(n)
2) [f ← 1] pour i de 2 à n faire
       f ← f * i
   FinPour
3) Ecrire("Le factoriel est ", f)
4) Fin Factoriel

Trace d'exécution (pour n = 6) :

Traduction en Pascal :

program factoriel;
uses wincrt;
var
    i, n : integer;
    f : longint;
begin
    write(' Donner un entier : ');
    readln(n);
    f := 1;
    for i:=2 to n do
        f := f * i;
    writeln('Le factoriel est ', f);
End.

program multiplication;
uses wincrt;
var i, n : integer;
begin
    Writeln('Donner un entier=');
    readln(n);
    Writeln('Table de multiplication pour ', n);
    for i:=1 to 10 do
        writeln(i, ' x ', n, '= ', i*n);
end.

program puissance;
uses wincrt;
var n, x, p, i : integer;
begin
    write('donner x= '); readln(x);
    write('donner n= '); readln(n);
    p := 1;
    for i:=1 to n do
        p := p * x;
    writeln(x, ' à la puissace ', n, ' = ', p);
end.

Program occurrence;
uses wincrt;
var i, occ : integer;
    ch : string;
    L : char;
begin
    writeln('Donner un mot'); readln(Ch);
    writeln('donner une lettre'); readln(L);
    occ := 0;
    for i:=1 to length(Ch) do
        if ch[i] = L then occ := occ + 1;
    writeln('Le nombre d''occurrence est ', occ);
end.

Algorithme :

0) Début nombre_premier
1) Écrire("Donner un entier"), lire(n)
2) [nb ← 0] pour i de 1 à n faire
       Si n mod i = 0 Alors nb ← nb + 1
       FinSi
   FinPour
3) Si nb = 2 alors Écrire("Premier")
              sinon Écrire("Non premier")
   FinSi
4) Fin nombre_premier

T.D.O :

Pascal :

Program nombre_premier;
uses wincrt;
var i, n, nb : integer;
begin
    Writeln('Donner un entier = ');
    Readln(n);
    nb := 0;
    for i:=1 to n do
        if n mod i = 0 then nb := nb + 1;

    if nb = 2 then Writeln('Premier')
              else Write('Non premier');
end.

program nombre_premier2;
uses wincrt;
var i, nb, n : integer;
begin
    for n:=1 to 100 do
    begin
        nb := 0;
        for i:=1 to n do
            if n mod i = 0 then nb := nb + 1;

        if nb = 2 then Writeln(n);
    end;
end.

program tableau;
uses wincrt;
var t : array[1..20] of integer;
    i, n : integer;
Begin
    Writeln('Donner la taille du tableau');
    Readln(n);
    For i:=1 to n do
    Begin
        Writeln('Donner l''élément n°', i);
        Readln(t[i]);
    End;
    For i:=1 to n do
        Writeln('l''élément n°', i, ' est ', t[i]);
End.

Analyse :

Nom : Maximum
Résultat = Ecrire("Le maximum est ", max)
Max = [max ← T[1]] Pour i de 2 à n faire
          Si T[i] > max alors max ← T[i]
          FinSi
      FinPour
T = Pour i de 1 à n faire
        T[i] = Donnée("Donner l'entier n°", i)
    FinPour
n = Donnée("Donner le nombre d'entiers : ")
Fin Maximum

T.D.O :

Algorithme :

0) Début Maximum
1) Ecrire("Donner le nombre d'entiers : "), lire(n)
2) Pour i de 1 à n faire
       Ecrire("Donner l'entier n°", i), lire(T[i])
   FinPour
3) max ← T[1]
4) Pour i de 2 à n faire
       Si T[i] > max alors max ← T[i]
       FinSi
   FinPour
5) Ecrire("Le maximum est ", max)
6) Fin Maximum

Programme Pascal :

program maximum;
uses wincrt;
type
    tab = Array [1..20] of integer;
var
    t : tab;
    n, i, max : integer;
begin
    writeln('Donner le nombre d''entiers :');
    readln(n);

    for i:=1 to n do
    begin
        writeln('Donner l''entier n°', i);
        readln(T[i]);
    end;

    max := T[1];
    for i:=2 to n do
        if t[i] > max then max := T[i];

    writeln('Le maximum est ', max);
end.

Activité 1 : Ajouter un contrôle de saisie sur n (la taille du tableau) pour que la valeur de n soit dans l'intervalle [1..20].

répéter
    Ecrire("Donner le nombre d'entiers : ")
    Lire(n)
jusqu'à n dans [1..20]

répéter
    Ecrire("Donner le nombre d'entiers : ")
    Lire(n)
jusqu'à n dans [1..20]

repeat
    writeln('Donner le nombre d''entiers :');
    readln(n);
until n in [1..20];