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.

  • 1
    Share

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

thirteen − seven =