Related Posts Plugin for WordPress, Blogger...
dayakomputerku.blogspot.com. Diberdayakan oleh Blogger.

Senin, 06 Februari 2012

Program Menghitung Luas dan Keliling Persegi Panjang Bahasa Pascal

Hai, hari ini akan saya posting contoh bahasa pemrograman Pascal mengenai menghitung luas dan keliling persegi panjang dengan case of berdasarkan inputan bilangan...
:D

uses crt;
var  panjang, lebar, luas, keliling, kode: integer;
begin
clrscr;
write('1. hitung luas');
write('2. hitung keliling');
writeln;
write('masukkan kode (1..2) : ');readln(kode);
case kode of
 1: begin
    writeln('menghitung luas persegi panjang');
    write('masukkan panjang:');readln(panjang);
    write('lebar : ');readln(lebar);
    write('Luas = panjang * lebar : ');
    writeln;
    luas := panjang* lebar;
    writeln('luasnya : ',luas);
    readln;
   end;

 2: begin
   writeln('menghitung keliling');
   write('masukkan panjang : ');readln(panjang);
   write('masukkan lebar   : ');readln(lebar);
   keliling:=2*panjang+2*lebar;
   writeln('maka keliling: ',keliling);
   readln;
    end;
    else
    write('hahaha');
  end;
  readln;
end.



kemudian Run, tekan Ctrl+F9
input bilangan kedalam program...
dan hasilnya :


jika terjadi kesalahan dalam program, mohon di komen agar bisa kami perbaiki, oce kawan :D 

Silahkan dikembangkan lebih jauh lagi, karna kami hanya menyediakan program-program sederhana untuk dikembangkan oleh para pembaca sekalian...

mohon maaf apabila ada salah-salah kata dari kami ya!!
Terima Kasih  :D  

Sudah Baca Yang Ini..?



Komentar :

ada 0 komentar ke “Program Menghitung Luas dan Keliling Persegi Panjang Bahasa Pascal”

Poskan Komentar

Popular Post

Ambil ni Widget

Your Language

English Saudi Arabia French German Japanese Korean Chinese Russian Spanish
India Netherland Portugal Italian Philippines Ukraina Norwegia
Powered by
Widget translator

About Me

Foto Saya
Lhokseumawe, Aceh, Indonesia
Seorang yang berasal dari Medan dan kembali kekampung tempat ia dilahirkan untuk melakukan kegiatan perkuliahan di Aceh pada saat ini Tepatnya di Universitas Malikussaleh dan mencoba berbagi ilmu kepada orang-orang sekitar dengan niat baik, tulus dan ikhlas, dan mudah-mudahan mendapatkan pahala yang melimpah ruah dari Allah SWT Amiiin.

Arsip Blog

 

web stats by Statsie

Traffic Feedjit

Chatting Yuuk


Silahkan Berkomentar


web stats by Statsie

Reader Community

Visitors Traffic


 free web counter Counter Powered by  RedCounter
dns failure
free counters

web stats by Statsie
This Blog is proudly powered by dayakomputerku.blogspot.com | Template by Oki Putra