Accueil     Soft. MacOSX     Soft. MacOS/PC     PHP     Python     ROMS GBA     TP d'info     DBZ-GT     Martingales     Galeries     Liens     @  

Exercice 2

program essai;

const
DIM_TAB = 10;

type
tab_entier = array[1..DIM_TAB] of integer;

var
m: integer;
tab: tab_entier;

function somme (n: integer): integer;
var
i, s: integer;
begin
s := 0;
for i := 1 to n do
s := s + i;
somme := s;
end;
{Fin de 'somme' }

procedure remplir (n: integer; var tab: tab_entier);
var
i: integer;
begin
for i := 1 to n do
tab[i] := somme(i);
end;
{Fin de 'remplir' }

procedure affiche (n: integer; tab: tab_entier);
var
i: integer;
{ j'aime bien le i minuscule :-) }
begin
for i := 1 to n do
writeln(tab[i] : 3);
end;
{Fin de 'affiche' }

begin
repeat
writeln('entrer une valeur (<10)');
readln(m);
{ dimension du tableau }
until (m > 0) and (m < 11);

remplir(m, tab);
affiche(m, tab);

{ Le prog remplit un tableau de dimension m en mettant dans la i eme case la somme de 1 à i }
{
http://www.Software-DS.com 13/11/01 }
end.

ex2partiel




Haut de la page - Page précédente - Page générée en 0.07649 sec.
Recherche personnalisée
 

1843275 visiteurs.   ©2001-2023 All Rights Reserved to Software-DS.com
Made with a mac  
Confidentialité