“boucle Pascal” Réponses codées

boucle Pascal

Program PascalRepeatLoop;
Var 
number:integer;

begin
    number := 1;

    //REPEAT-UNTIL Statement - Post Condition Repetition
    Repeat      
        Write('Enter an integer number: ');
        readln(number);
    Until number = 0;       //Run code above, until "number" is 0
    
    Writeln();
    Writeln('Program Ended');
End.
ALeonidou

boucle Pascal

Program PascalWhileLoop;
Var 
number:integer;

begin
    number := 1;

    //WHILE DO Statement - Pre Condition Repetition
    While number <> 0 do    //Run code below, while "number" is not 0
    begin
        Write('Enter an integer number: ');
        readln(number);
    end;
    
    Writeln();
    Writeln('Program Ended');
End.
ALeonidou

Réponses similaires à “boucle Pascal”

Questions similaires à “boucle Pascal”

Parcourir les réponses de code populaires par langue

Parcourir d'autres langages de code