Related Posts Plugin for WordPress, Blogger...
dayakomputerku.blogspot.com. Powered by Blogger.

Monday, February 6, 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 4 comments ke “Program Menghitung Luas dan Keliling Persegi Panjang Bahasa Pascal”
EXPERONIVERS said...
pada hari 

wew, thanks atas artikelnya, bisa buat ujian nati nih

Repi said...
pada hari 

Thank kawan

Indriana said...
pada hari 

Gan yg write ('hahahahahah') itu di pake juga gan

Oiooo said...
pada hari 

Di case kode of-nya unggu knpa ya? Di hp

Post a Comment

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

My photo
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.

Blog Archive

 

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
Google PageRank Checker Powered by  MyPagerank.Net

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