Tulis aja dulu, siapa tahu orang lain butuh :-)

PROGRAM LOOPING WHILE


program whilee;

uses wincrt;

var
   a,n : integer;

begin
     writeln('  =====================');
     writeln('< PROGRAM LOOPING WHILE >');
     writeln('  =====================');
     writeln;
     write('Masukkan banyaknya pengulangan: '); readln(n);
     writeln('===================================>>');
     writeln;
     a := 1;
     while a<=n do
     begin
     writeln(a,'. ', 'Program While');
     a := a+1;
     end;
     writeln('=======================>>')

end.

=============================================>>

RUNNING PROGRAM:

Share:

0 komentar:

Post a Comment

ARCHIEV

VISITORS

free counters

FRIENDS

Blog Archive