Penggunaan looping di pascal

Apa sih looping itu? makanan or minuman xixixixixixixixixi

Katanya sih looping itu diartikan sebagai proses berulang terhadap statement maupun serangkaian statement lebih dari satukali dengan menggunakan kode atau perintah tertentu jadi bukan makanan or minum yach :D.

Nah disini mo coba kasih contoh penggunaan looping di turbo pascal

Sekenarionya:

Membuat perhitungan luas segitiga menggunakan fungsi looping tersebut, nilai looping kita yang menentukan dan hasil akhirnya adalah penjumlahan dari luas segitiga yang di hitung, bila luas segitiga pertama = 3 dan luas segitiga kedua =4 maka hasil akhirnya adalah = 7.

script:

uses wincrt;   <==== untuk yang menggunakan Turbo Pascal 1.5

uses crr;        <==== untuk yang menggunakan Turbo Pascal 7

var

i,q,a,t :integer;

luas, hasil : real;

begin

clrscr;

hasil:=0;

luas:=0; 

write ('Jumlah looping ==> ');

readln (q);

for i:= 1 to q do

begin 

write ('Tinggi segitiga = ');

readln (t);

write ('Alas segitiga = ');

read (a);

writeln('---------------------------------------');

luas:=a*t*0.5;

hasil:=luas+hasil;

end;

writeln ('Hasil ',hasil:2:2);

readkey;

end.

Hasil a.k.a Penampakan no pict = hoax 

Akhir tulisan semoga bermanfaat, buat hiasannya or ngerapihinnya versi sendiri-sendiri yach...