Pengulangan Menurun dengan For DownTo Do di Pascal

AhmadDahlan.NET – Program Perulangan di Pascal juga bisa memiliki librari untuk melakukan metode iterasi menurun atau sederhana disebut count down. Contohnya perhitungan mundur peluncuran roket dimulai dari 10, 9, 8,…,1. Perintah ini dapat dilakukan dengan For downto.

Pseudocode untuk perintah ini sebagai berikut :

FOR (variabel_counter) := (nilai_awal) DOWNTO (nilai_akhir) DO
begin
 (kode program yang ingin diulang disini...)
end;

Contoh Perulangan FOR DOWNTO dalam Pascal

Berikut ini adalah pengulangan hitung mundur dari 10 sampai 1

Program For_Downto_Do;
uses crt;
var
 i: integer;
begin
 clrscr;
 For i := 10 Downto 0 Do
 begin
  writeln('Hitung mundur: ',i);
 end;
 readln;
end.

Jika program ini dieksekusi maka hasilnya akan sebagai berikut :

Contoh Program Operasi dengan For Downto

Program iterasi di Pascal tidak hanya digunakan sebagai display semata tapi juga bisa dilakukan operasi matematis.

Milsanya kita akan membuat program penulisan bilangan ganjil lebih kecil 20 sampai 0. Maka langkah pertama yang dilakukan adalah membuat persamaan matematisnya agar bisa menghasilkan deret dengan bilangan ganjil.

Deret dari bilangan ganjil bisa didapatkan dengan rumus

s = 2(n)-1

misalkan kita ingin mendapatkan bilangan terbeser 20, maka n maksimal dari persamaan ini hanya 10 karena nilai dari 2(n) = 20 jika n 10. Selanjutnya memasukkan ke program dengan bentuk sebagai berikut

Program For_Downto_Do2;
uses crt;
var
 k,i: integer;
begin
 clrscr;
 writeln('Daftar Bilangan Ganjil lebih kecil dari 20 Ke bawah ');
 For i := 10 Downto 1 Do
 begin
 k:=2*i-1;
  writeln('Bilangan Ganjilnya adalah ', k);
 end;
 readln;
end.

Hasil run Programnya sebagai berikut :

Latihan

Buatlah sebuah program tabel konversi dari Celcius ke Fahrenheit mulai dari 100^oC sampai 0^oC! Program disusun dengan kelipatan pengurangan 5^oC dan 3^oC!