For Variable Kontrol := Nilai Awal To Nilai Akhir Do Statement.
Perulangan positif adalah perulangan dengan penghitung (counter) dari kecil ke besar,contoh.
Mulai dari sini :
uses crt;
var
i : byte;
begin
clrscr;
for i := 1 To 10 Do
writeln (' Saya Sedang Belajar Pascal ');
readln;
end.
Nah berikut ini contoh Program Konversi Suhu.
Program Konversi_Suhu;
uses crt;
var
i = integer;
celcius,fahrenheit : real;
begin
clrscr;
writeln(' TABEL KONVERSI SUHU ')
writeln('===========================')
writeln('Celcius Fahrenheit')
writeln('===========================')
celcius := 0;
for i := 1 to 10 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...