Contoh Program Pengulangan Positif Pascal dengan For.

Advertisement
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...

Advertisement