Membuat Program Menghitung Luas Permukaan Balok Dengan Pascal

Membuat Program Menghitung Luas Permukaan Balok DenganPascal || Berikut ini adalah script untuk Menghitung Luas Permukaan BalokDengan Pascal disertai dengan pengulangan

Uses WinCrt;

Var panjang,lebar,tinggi,luas:real;

lagi:char;

Label atas;

Begin

     atas:

     clrscr;

            write('Masukkan Panjang             :');

            readln(panjang);

            write('Masukkan Lebar               :');

            readln(lebar);

            write('Masukkan Tinggi              :');

            readln(tinggi);

            luas:=2*panjang+lebar+2*panjang+tinggi+2*lebar+tinggi;

            writeln('Hasilnya                   :',luas:8:2);

            readln;

            write('Apakah Anda Ingin Input Lagi [Y/N] ?');readln(lagi);

            if(lagi='Y')or(lagi='y')then

            goto atas;

            readln;

End.

Screenshoot :

#jika ada pertanyaan mengenai Membuat Program MenghitungLuas Permukaan Balok Dengan Pascal silahkan berkomentar !