Script DownTo dan To pada Pascal [Coba Aja]

Saya tidak mau banyak basa basi.

Hasil akhir programnya seperti gambar di bawah ini.

tampilan program downto dan to pascal

Untuk membuat program itu, saya menuliskan script seperti ini.

script program downto dan to pascal

Kalau pengen ambil kodenya dan dicoba sendiri silakan.

uses crt;
var jumlah: integer;
begin
clrscr;

writeln('Menampilkan bilangan urut dari 10-1');
jumlah:=0;
for jumlah:=10 downto 1 do
writeln(jumlah);
writeln;
writeln('Menampilkan bilangan urut dari 2-10');
jumlah:=0;
for jumlah:=2 to 10 do
writeln(jumlah);
writeln('Menampilkan script mas-gado.blogspot.com');
readkey;

end.

Terima kasih sudah merelakan waktunya untuk membuka tutorial yang sangat singkat ini.

Kalau berguna, sebarkan artikel ini ke teman-temanmu.

Subscribe
Notify of
0 Komentar
Inline Feedbacks
Lihat semua komentar