aide programme pascal

[invite3d733769]

bsr svp quelq'un peut me dire ce programme sert a quoi ?

program cv;
var CENT,DIX,UNI:integer;
vitesse,attente :word;
const chiffre : array[10] of byte =(%00111111, %00000110, %01011011,
%01001111, %01100110, %01101101, %01111101, %00000111,%01111111,%01101111);
PROCEDURE vdelayus(var j: word);
var k : word;
begin
for k :=0 to j do
delay_us(1);
end;
procedure affichage(var CENT,DIX,UNI : byte);
begin
 portc:=chiffre[CENT]; // affichge du chiffre des centaines
delay_ms(1); // Génération d'un front d'horloge sur RA5
porta.5:=0;  //
portc:=chiffre[DIX]; // affichge du chiffre des DIXAINES
porta.3:=1; //
delay_ms(1);  // Génération d'un front d'horloge sur RA3
porta.3:=0; //
portc:=chiffre[UNI]; // affichge du chiffre des unités
porta.2:=1; //
delay_ms(1);  // Génération d'un front d'horloge sur RA2
porta.2:=0; //
end;
procedure reglageV;
begin
 if Button(porta,0,10,1) then
        begin
        uni:=uni+1;
        if uni>9 then
                   begin
                   dix:=dix+1;
                   uni:=0;
                   if dix>9 then
                            begin
                            cent:=cent+1;
                            dix:=0;
                            end;
                   end;
        if cent>3 then cent:=0;
        end;
if Button(porta,1,10,1) then
        begin
        uni:=uni-1;
        if uni<0 then
                   begin
                   dix:=dix-1;
                   uni:=9;
                   if dix<0 then
                            begin
                            cent:=cent-1;
                            dix:=9;
                            end;
                   end;
        if cent<0 then cent:=3;
        end;
end;
begin
adcon1:=$06;
Trisa:=$03;
Trisb:=0;
Trisc:=$0;
portc:=0;
CENT:=0;
dix:=5;
uni:=0;
while (1=1) do

        begin
        affichage( CENT,DIX,UNI);
        reglageV;
        vitesse:=(cent*100);
        vitesse:=vitesse+ (dix*10);
        vitesse:=vitesse+uni;

        attente:=(20000 / vitesse);
    portb:=%00000001  ;
    vdelayus(attente);
    portb:=%00000010  ;
    vdelayus(attente);
    portb:=%00000100  ;
    vdelayus(attente);
    portb:=%00001000  ;
    vdelayus(attente);

         end;

end.

-----

[invite42cd6fb5]

bonjour,

Donner un bout de code comme ça ne permet pas toujours de dire "a quoi il sert"...

Pourquoi une telle question ? Comme visiblement vous ne maitrisez pas cet type de programmation, si l'on vous indique sa fonction, qu'allez vous en faire ?

D'autant que là, sortie du contexte du programme complet, ca me semble délicat à définir (même si, le Pascal n'est pas mon language de prédilection)