Dumay Community
Dumay Community
Dumay Community
Would you like to react to this message? Create an account in a few clicks or log in to continue.


Komunitas Progaming, Software, Perbaikan Komputer, Gaming, Musik, dll
 
IndeksLatest imagesPencarianPendaftaranLogin
Like Page
Tinggalkan Jempol Kalian di Forum INI


Similar topics
Login
Username:
Password:
Login otomatis: 
:: Lupa password?
User Yang Sedang Online
Total 10 uses online :: 0 Terdaftar, 0 Tersembunyi dan 10 Tamu

Tidak ada

User online terbanyak adalah 20 pada Sun Feb 04, 2024 3:26 am
Clock
Top posters
Admin
Program Bahasa Pascal (Procedure) I_back15Program Bahasa Pascal (Procedure) I_back15Program Bahasa Pascal (Procedure) I_back15 
buginese
Program Bahasa Pascal (Procedure) I_back15Program Bahasa Pascal (Procedure) I_back15Program Bahasa Pascal (Procedure) I_back15 
harex
Program Bahasa Pascal (Procedure) I_back15Program Bahasa Pascal (Procedure) I_back15Program Bahasa Pascal (Procedure) I_back15 
suliswanto
Program Bahasa Pascal (Procedure) I_back15Program Bahasa Pascal (Procedure) I_back15Program Bahasa Pascal (Procedure) I_back15 
Prisa
Program Bahasa Pascal (Procedure) I_back15Program Bahasa Pascal (Procedure) I_back15Program Bahasa Pascal (Procedure) I_back15 
alijenggot
Program Bahasa Pascal (Procedure) I_back15Program Bahasa Pascal (Procedure) I_back15Program Bahasa Pascal (Procedure) I_back15 
XXX
Program Bahasa Pascal (Procedure) I_back15Program Bahasa Pascal (Procedure) I_back15Program Bahasa Pascal (Procedure) I_back15 
joecow
Program Bahasa Pascal (Procedure) I_back15Program Bahasa Pascal (Procedure) I_back15Program Bahasa Pascal (Procedure) I_back15 
safana
Program Bahasa Pascal (Procedure) I_back15Program Bahasa Pascal (Procedure) I_back15Program Bahasa Pascal (Procedure) I_back15 
ilmu komputer
Program Bahasa Pascal (Procedure) I_back15Program Bahasa Pascal (Procedure) I_back15Program Bahasa Pascal (Procedure) I_back15 
Latest topics
» Kenalan Yuk Semua...
Program Bahasa Pascal (Procedure) EmptyWed Apr 30, 2014 10:33 am by Bagus Rio Dwi Mayvando

» Aplikasi Program TU Sekolah
Program Bahasa Pascal (Procedure) EmptyMon Apr 07, 2014 9:35 am by Admin

» ESET NOD32 Antivirus 5 Full Crak
Program Bahasa Pascal (Procedure) EmptyMon Apr 07, 2014 7:55 am by Admin

» Cara Install Anti Virus NOD32 Full Crak
Program Bahasa Pascal (Procedure) EmptyMon Apr 07, 2014 12:07 am by Admin

» Menampilkan File Flasdisk yang Terhiden
Program Bahasa Pascal (Procedure) EmptySun Apr 06, 2014 8:53 pm by Admin

» bahasa pemprogaman Pascal
Program Bahasa Pascal (Procedure) EmptyThu Dec 19, 2013 11:13 pm by julpiyanur

» bahasa pemprogaman Pascal
Program Bahasa Pascal (Procedure) EmptyThu Dec 19, 2013 11:08 pm by julpiyanur

» bahasa pemprogaman Pascal
Program Bahasa Pascal (Procedure) EmptyThu Dec 19, 2013 11:06 pm by julpiyanur

» Membuat Folder Lock Sederhana
Program Bahasa Pascal (Procedure) EmptySat Jun 22, 2013 10:12 am by DK.pujangga

My Banner
Kolom blog tutorial
Tukeran link yuuk..
Silahkan copas code dibawah ini,,



 

 Program Bahasa Pascal (Procedure)

Go down 
PengirimMessage
Admin
Admin
Admin
Admin


Posts : 179
Join date : 01.04.09
Age : 35
Location : Bumiku tercinta

Program Bahasa Pascal (Procedure) Empty
PostSubyek: Program Bahasa Pascal (Procedure)   Program Bahasa Pascal (Procedure) EmptyFri Apr 24, 2009 10:06 am

Mengitung bangun datar dengan mengunkan bahasa pemrograman pascal, dan kali saya buat dengan mengunakan subprogram ( procedure). Dan anda bisa tau perbedaan pungsi dari subprogram function dan procedure.

Dibawah ini sourcecode pemrograman tersebut.

program menghitung_bangun_datar;

uses wincrt;

const

phi=3.14;

var

sisi,P,L,r,luas,kell,no:integer;

ls,kl:real;

lagi:char;

ulang:boolean;

procedure garis;

begin

writeln(’============================================’);

end;

procedure bujursangkar;

begin

write(’masukan sisi =’); readln(sisi);

luas:=sisi*sisi;

kell:=4*sisi;

writeln;

writeln(’luas bujur sangkar=’,luas);

writeln(’keliling bujur sangkar=’,kell)

end;

procedure persegipanjang;

begin

write(’masukan panjang =’); readln(P);

write(’masukan lebar =’); readln(L);

luas:=p*l;

kell:=2*(p+l);

writeln;

writeln(’luas persegi panjang=’,luas);

writeln(’keliling persegi panjang=’,kell);

end;

procedure lingkaran;

begin

write(’masukan jari-jari/r =’); readln(r);

ls:=phi*r*r;

kl:=2*phi*r;

writeln;

writeln(’luas lingkaran=’,luas);

writeln(’keliling lingkaran=’,kell);

end;

begin

ulang:=true;

while ulang=true do begin

clrscr;

writeln(’>>> pilih menu <<<’);

writeln(’1. menghitung luas dan keliling bujur sangkar’);

writeln(’2. menghitung luas dan keliling persegi panjang’);

writeln(’3. menghitung luas dan keliling lingkaran’);

garis;

write(’masukan no pilihan program=’); readln(no);

case no of

1:begin

lagi:=’y';

while lagi=’y’ do

begin

clrscr;

writeln(’>>>menghitung luas dan keliling bujur sangkar’);

garis;

bujursangkar;

write(’jika mau menghitung lagi tekan y/n =’); readln(lagi);

end;

end;

2:begin

lagi:=’n';

clrscr;

repeat

begin

clrscr;

writeln(’>>>menghitung luas dan keliling persegi panjang’);

garis;

persegipanjang;

end;

write(’jika mau menghitung lagi tekan y/n =’); readln(lagi);

until lagi=’n';

end;

3:begin

lagi:=’y';

while lagi=’y’ do

begin

clrscr;

writeln(’>>>menghitung luas dan keliling lingkaran’);

garis;

lingkaran;

write(’jika mau menghitung lagi tekan y/n =’); readln(lagi);

end;

end;

else

writeln(’tidak ada menu’);

end;

end;

end.

:_+@#: :_+@#: :_+@#:
Kembali Ke Atas Go down
https://dumay.forum.st
 
Program Bahasa Pascal (Procedure)
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Program Bahasa Pascal “While - Do”
» bahasa pemprogaman Pascal
» Pemograman Bahasa Pascal dengan If Then

Permissions in this forum:Anda tidak dapat menjawab topik
Dumay Community :: FORUM TEKNIK INFORMATIKA :: Forum Membahas Semua Jenis Programming :: Forum Membahas Algoritma, pemograman terstruktur dan Pascal-
Navigasi: