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

Exercice 1

program tati;
var
x, y, z: integer;

procedure tata (a: integer; var b: integer);
begin
a := a + 1;
{ Les modifications de 'a' sont locales }
b := 2 * b + a; { les modifications de b sont 'globales', elles sont sauvegarde quand la fonctiona finie d'être execute }
end;

procedure titi (a: integer; var b, c: integer);
begin
tata(b, a);
{ 'b' n'est pas modifié a est modifié }
c := c + b - 6; { c est modifié et le mofications sont sauvegarde. }
writeln('titi : a= ', a : 0, 'b= ', b : 0, 'c= ', c : 0);
{ a n'est pas change, le modofications de b et c sont sauvegarde }
end;

begin
writeln('Exercice 1 http://www.Software-DS.com');
x := 4;
y := 1;
z := 2;
writeln('x= ', x : 0, ' y= ', y : 0, ' z= ', z : 0);
titi(x, y, z);
writeln('x= ', x : 0, ' y= ', y : 0, ' z= ', z : 0);
titi(x, y, z);
writeln('x= ', x : 0, ' y= ', y : 0, ' z= ', z : 0);
titi(x, y, z);
writeln('x= ', x : 0, ' y= ', y : 0, ' z= ', z : 0);

writeln;
writeln('©2001 All Rights Reserved to www.Software-DS.com');
{ ©2001 All Rights Reserved to http://www.Software-DS.com 30/10/01 }
end.

execution du programme




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

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