TPW Menghitung luas panjang, Turbo Pascal dengan perulangan sederhana

uses wincrt;

var

   panjang, lebar, luas:real;

   lagi:char;

   begin

   repeat;

   clrscr;

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

   writeln('Program Menghitung Luas Persegi Panjang');

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

   writeln;

           write ('Masukkan panjang? '); readln (panjang);

                 write ('Masukkan lebar? ')  ; readln (lebar);

                 luas := panjang*lebar;

                 writeln;

writeln ('Luas segiempat = ', luas:5:2, ' satuan luas');

           Write('Apakah Anda Akan Mengulang Lagi?<Y>a/<T>:=');

           readln(lagi);

           until not(lagi in ['y','Y']);

           readln;      

   END.

Semoga Membantu

Gabung File PDF, Ubah Word to PDF, PDF to Word, PDF to Excel, Buka Password PDF

Langkah Pertama Klick dan lihat tutorial dibawah

Setelah anda menambah file PDF tunggu selesai upload

Selesai upload klick gabungkan PDF seperti gambar dibawah

Setelah Selesai Penggabungan Akan Tampil Buton Unduh File Sekarang, Untuk penyelesaian slakan unduh file gabungan anda dengan cara klick button unduh seperti gambar dibawah