Source Code Program Luas Persegi dalam Pascal

Source Code Program Luas Persegi dalam Pascal - Luas Persegi menggunakan kompiler Dev-Pascal, berikut ini Source Code Program yang bisa langsung diterapkan ke dalam kompiler Dev-Pascal.

program luas_persegi; {heading program}

uses crt;

Var {bagian deklarasi}

    panjang,lebar :integer;

    luas          :real;

    o             :char;

begin {*bagian pernytaan*}

repeat

textbackground(78);

textcolor(87);

clrscr;

gotoxy(25,1);writeln('+================================+');

gotoxy(25,2);writeln('|Perogram Menghitung Luas Persegi|');

gotoxy(25,3);writeln('+================================+');

   write('Masukan Panjang : ');readln(panjang);

   write('Masukan Lebar : ');readln(lebar);

   luas :=panjang*lebar;

   write('luas Persegi Adalah : ');writeln(luas:8:2);

   write('Apakah Ingin Memasukan Lagi? (Y/N) = ');readln(o);

   until o = 'n';

    readln

end.

Berikut hasil output Program Luas Persegi yang dihasilkan.

Sekian program tentang Source Code Program Luas Persegi dalam Pascal, semoga bermanfaat.