Program Hitungan (pascal) -->

Program Hitungan (pascal)

Friday, September 04, 2015, Friday, September 04, 2015
Program Hitungan (pascal) - Hallo sahabat 116Lou.com, Pada Artikel yang anda baca kali ini dengan judul Program Hitungan (pascal), kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya, mudah-mudahan isi postingan Artikel Pemrograman, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Program Hitungan (pascal)
link : Program Hitungan (pascal)

Program Hitungan (pascal)

program menu_gabungan;
uses crt;

var
panjang,lebar,L_persegipanjang:integer;
jari:integer;
L_lingkaran:real;
bil:integer;
pilih:integer;

const
phi:3.14;

begin
clrscr;
writeln('------ MENU GABUNGAN -----');
writeln('--------------------------');
writeln('1. Luas Persegi Panjang');
writeln('2. Luas Lingkaran');
writeln('3. Bilangan Genap-Ganjil');
writeln('--------------------------');
write('Pilih Menu 1-3: ');readln(pilih);
writeln('--------------------------');
case pilih of
1:begin
  writeln('Mencari Luas Persegi Panjang');
  writeln('----------------------------');
  write('Inputkan Panjang: ');readln(panjang);
  write('Inputkan Lebar: ');readln(lebar);
  L_persegipanjang:=panjang*lebar;
  write('Luas persegi panjang adalah ',L_persegipanjang);
  end;
2:begin
  writeln('Mencari Luas Lingkaran');
  writeln('----------------------');
  write('Inputkan jari-jari: ');readln(jari);
  L_lingkaran:=phi*jari*jari;
  write('Luas lingkaran adalah ',L_lingkaran);
  end;
3:begin
  writeln('Mencari Bilangan Genap Ganjil');
  writeln('-----------------------------');
     write('Inputkan Sebuah Bilangan: ');readln(bil);
  if bil mod 2 = 0 then
 write('Bilangan ',bil ,'merupakan Bilangan Genap')
  else
   write('Bilangan ',bil ,'merupakan Bilangan Ganjil');
  end;
end;
readln;
end.

Thank You.....!




Demikianlah Artikel Program Hitungan (pascal)

Sekianlah artikel Program Hitungan (pascal) kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Program Hitungan (pascal) dengan alamat link https://www.116lou.com/2015/09/program-hitungan-pascal.html

TerPopuler