Pilihan Luas

program luaspersegidanpersegipanjang;

uses wincrt;

var

a,r,p,l,lp,lpp:integer;

lagi:char;

begin

lagi:=’Y’;

while (lagi=’Y’) do

begin

clrscr;

gotoxy(25,1);writeln(‘Pilihan program yang ditawarkan’);

gotoxy(25,2);writeln(‘===============================’);

gotoxy(21,4);writeln(‘1. Luas persegi’);

gotoxy(21,5);writeln(‘2. Luas persegi panjang’);

gotoxy(25,7);write(‘masukkan pilihan: ‘);read(a);

clrscr;

if a=1 then

begin

gotoxy(25,1);writeln(‘Luas persegi’);

gotoxy(25,2);writeln(‘————‘);

gotoxy(14,5);write(‘panjang rusuk persegi adalah ‘);read(r);

lp:=r*r;

gotoxy(14,7);writeln(‘Jadi luas persegi adalah ‘,lp);

end

else

if a=2 then

begin

gotoxy(25,1);writeln(‘Luas persegi panjang’);

gotoxy(25,2);writeln(‘——————–‘);

gotoxy(14,5);write(‘panjang persegi panjang adalah ‘);read(p);

gotoxy(14,6);write(‘lebar persegi panjang adalah ‘);read(l);

lpp:=p*l;

gotoxy(14,8);writeln(‘Jadi luas persegi panjang adalah ‘,lpp);

end

else

begin

gotoxy(25,9);write(‘=================================’);

gotoxy(25,10);write(‘maaf pilihan Anda tidak terdaftar’);

gotoxy(25,11);writeln(‘=================================’);

end;

writeln;

write(‘Menghitung lagi(Y/T)? ‘);

readln(lagi);

end;

end.

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

Connecting to %s

%d blogger menyukai ini: