Program Looping Menggunakan Turbo Pascal

Selamat Pagi para pengguna dan pembaca blog.
Hari ini aku akan membagikan postingan tentang program komputer pada bab Looping.

Looping sendiri adalah program yang berulang, jadi jika kalian ingin mengulang suatu program aku menampilkan program yang outputnya lebih dari satu bisa menggunakan looping.

Contoh dari program yang aku bagikan adalah cara menghitng luas persegi namun outputnya tidak hanya menampilkan 1 jawaban melainkan 6 jawaban yang sama

Berikut contoh program looping  menghitung luas dari persegi

program Menghitung_Luas_Persegi;

uses wincrt;

var sisi,Luas,i:integer;

begin

     writeln ('Menghitung Luas Persegi ');

     writeln('=========================');

     write ('Masukkan sisi = ');

     readln(sisi);

     Luas:=sisi*sisi;

     writeln;

     writeln;

     begin

          for i:= 1 to 6 do

          writeln('Jadi Luas Persegi : ',luas) ;

     end;

end.

Kalian juga bisa memodifikasi program tersebut, dengan mengganti mencari luas persegi menjadi mencari luas bangun atau keliling atau volume bangun yang lain. Dan untuk pengulangannya kalian bisa ganti menjadi 4 5 atau sesuai dengan keinginan kalian.

Sekian postingan program komputer aku menggunakan turbo pascal semoga bermanfaat :)