October 12, 2012

CONTOH PROGRAM PASCAL DENGAN PEMAKAIAN CASE OF

berikut saya akan memposting contoh program berbahasa pascal dengan pemakaian case of , silahkan di coba semoga bermanfaat :)


uses wincrt;
var pil :integer;
    p,l,t,kll,lu,vol:real;
begin
clrscr;
  writeln('selamat datang ');
  writeln('-------------- ');
  writeln('1-->Mencari keliling persegi panjang');
  writeln('2-->Mencari luas persegi panjang    ');
  writeln('3-->Mencari volume balok            ');
  write('input pilihan anda [1..3] : ');readln(pil);
  case pil of
  1 : begin
  write('panjang = ');readln(p);
  write('lebar   = ');readln(l);
  kll:=2*(p+l);
  writeln('keliling = ',kll:0:2);
  end;
  2 : begin
  write('panjang = ');readln(p);
  write('lebar   = ');readln(l);
  lu:=p*l;
  writeln('luas = ',lu:0:2);
  end;
  3 : begin
  write('panjang = ');readln(p);
  write('lebar   = ');readln(l);
  write('tinggi  = ');readln(t);
  vol:=p*l*t;
  writeln('volume = ',vol:0:2);
  end;
  else writeln('maaf pilihan anda tidak ada ');
end;
end.

No comments:

Post a Comment

October 12, 2012

CONTOH PROGRAM PASCAL DENGAN PEMAKAIAN CASE OF

berikut saya akan memposting contoh program berbahasa pascal dengan pemakaian case of , silahkan di coba semoga bermanfaat :)


uses wincrt;
var pil :integer;
    p,l,t,kll,lu,vol:real;
begin
clrscr;
  writeln('selamat datang ');
  writeln('-------------- ');
  writeln('1-->Mencari keliling persegi panjang');
  writeln('2-->Mencari luas persegi panjang    ');
  writeln('3-->Mencari volume balok            ');
  write('input pilihan anda [1..3] : ');readln(pil);
  case pil of
  1 : begin
  write('panjang = ');readln(p);
  write('lebar   = ');readln(l);
  kll:=2*(p+l);
  writeln('keliling = ',kll:0:2);
  end;
  2 : begin
  write('panjang = ');readln(p);
  write('lebar   = ');readln(l);
  lu:=p*l;
  writeln('luas = ',lu:0:2);
  end;
  3 : begin
  write('panjang = ');readln(p);
  write('lebar   = ');readln(l);
  write('tinggi  = ');readln(t);
  vol:=p*l*t;
  writeln('volume = ',vol:0:2);
  end;
  else writeln('maaf pilihan anda tidak ada ');
end;
end.

No comments:

Post a Comment