Perulangan Sederhana (PROG 3)

  

Analisa : 

Angka Awal >> A=1

Rumus >> A = A+1

Angka Terakhir adalah 5 >> A<=5

Algoritma :

1. Mulai

2. A = 1

3. Jika A<=5,maka ke line number 7

4. Cetak A,' '

5. A = A+1

6. Ulangi ke line number 3

7. Stop

PROGRAM PROG3;

USES WINCRT;
VAR   A : INTEGER;
BEGIN
   A := 1;
   WHILE A<=5 DO
       BEGIN
           WRITE(A, ' ');
           A := A+1;
       END;
       WRITELN;
       WRITELN('ACHMAD NABIL, M.Kom');
       WRITELN('    16.230.0059    ');
END.