For Variable Kontrol := Nilai Awal DownTo Nilai Akhir Do Statement.
Perulangan Negatif adlah perulangan dengan penghitung (counter) dari besar ke kecil,contoh.
Mulai dari sini :
For Variable Kontrol := Nilai Awal DownTo Nilai Akhir Do Statement.
Perulangan Negatif adlah perulangan dengan penghitung (counter) dari besar ke kecil,contoh.
Mulai dari sini :
contoh Program Konversi Suhu.
Program Knversi_Suhu;
uses crt;
var
i = integer;
celcius,fahrenheit : real;
begin
clrscr;
writeln(' TABEL KONVERSI SUHU ')
writeln('===========================')
writeln('Celcius Fahrenheit')
writeln('===========================')
celcius := 10;
for i := 10 downto 1 do
begin
fahrenheit := 1.8*celcius+32;
writeln(celcius:4:0,fahrenheit:18:2);
celcius := celcius+1;
end;
writeln('===========================')
readln;
end.
Moga2 aja bermanfaat sob.
...CMIW...