“Itération de Pascal” Réponses codées

Itération de 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

Itération de 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 à “Itération de Pascal”

Parcourir les réponses de code populaires par langue

Parcourir d'autres langages de code

Shell/Bash
C#
C++
C
CSS
HTML
Java
JavaScript
Objective-C
PHP
Python
Sql
Swift
Ruby
TypeScript
Go
Kotlin
Assembly
R
VBA
Scala
Rust
Dart
Elixir
Clojure
Haskell
Matlab
Erlang
Cobol
Fortran
Scheme
Perl
Groovy
Lua
Julia
Delphi
Abap
Lisp
Prolog
Pascal
ActionScript
Basic
Solidity
PowerShell
GDScript
Excel