contoh pemograman pascal Loop (for...to...do)


program for1;
uses wincrt;
var batas,i:integer;
begin
    writeln('mencetak bilangan');
    writeln('akan mencetak bilangan sampai berapa?  ');readln(batas);
    for i:=1 to batas do
    writeln(i);
    end.

0 comments

Tambahkan Komentar Anda

semua berawal dari diri kita

 
Copyright © 2012 wooodiez ~ Template By : Jasriman Sukri

Kamu bisa menulis deskripsi disini