Akhlak

Ibaratkan AKHLAK itu ialah kopi dan manusia dibaratkan sebuah gelas, maka ketika gelas diisi dengan kopi jadilah ia "segelas kopi" dan jika diisi dengan racun, jadilah ia "segelas racun". Begitu juga dengan manusia, jika diisi dengan akhlak yang mulia, maka jadilah ia seorang yang mulia, begitu juga sebaliknya.

Berbagi Itu Indah, Berbagi itu GUE BANGET

Ambillah zakat dari sebagian harta mereka, dengan zakat itu kamu membersihkan dan mensucikan mereka, dan mendo`alah untuk mereka. Sesungguhnya do`a kamu itu (menjadi) ketenteraman jiwa bagi mereka. Dan Allah Maha Mendengar lagi Maha Mengetahui(Q.S.At-Taubah:103).

Jalan Dakwah

Jalan ini bukanlah jalan yang ditaburi bunga-bunga harum, bukan jalan yang mudah ditempuh. Namun, jalan ini adalah jalan yang penuh onak dan duri. Jalan yang tidak semua orang bisa menikmatinya dengan penuh ketabahan, kesabaran, dan keistiqamahan.

Ya', Ini Kebutuhan bukan Keterpaksaan

Dan tersenyumlah dengan perjuangan hari Ini, Hari esok akan lebih cerah, PASTI!!!

UKMI Ar-Rahman Unimed

Tempat menempa jiwa, memulai perubahan dan siap menggenggam peradaban untuk hidup umat manusia yang lebih baik. Ini mimpiku kawan!

Tampilkan postingan dengan label Pascal. Tampilkan semua postingan
Tampilkan postingan dengan label Pascal. Tampilkan semua postingan

Kamis, 10 Februari 2011

Mencari Nilai Rata-rata, Tertinggi, Terendah.

05.39    No comments 

Mencari nilai rata-rata, tertinggi, terendah.


 


 

uses wincrt;

 
 

var a, siswa :
						integer;

nilai, total, tinggi, rendah, rata :
						real;

 
 

begin
					

  total :=
						0;


						write
						('jumlah siswa : '); readln
						(siswa);


						writeln;


						for a :=
						1
						to siswa do
					


						begin
					


						write
						('nilai siswa ke ',a,' : '); readln
						(nilai);

    total := total + nilai;


						if a =
						1
						then
						begin
					

      tinggi := nilai;

      rendah := nilai;


						end
					


						else
						begin
					


						if nilai > tinggi then tinggi := nilai


						else
						begin
					


						if nilai < rendah then rendah := nilai;


						end;


						end;


						end;

  rata := total / siswa;


						writeln;


						writeln
						('nilai terendah    : ', rendah :1:2);


						writeln
						('nilai tertinggi   : ', tinggi :1:2);


						writeln
						('rata-rata         : ',rata :1:2);

end.

Read More

Program Pencarian hambatan

05.37    No comments 

Prog. Pencarian hambatan


 


 


 

uses wincrt;

 
 

var hambatan1,hambatan2,t   :
						real;

    a :
						char;

begin
					


						write
						('hambatan 1            : ');readln (hambatan1);


						write
						('hambatan 2            : ');readln (hambatan2);


						write
						('kode pemasangan (p/s) : ');readln (a);


						if
						(a='p')or(a='P')
						then
						begin
					

    t :=
						1/((1/hambatan1)+(1/hambatan2));


						end
					


						else
						begin
					

    t := hambatan1 + hambatan2;


						end;


						writeln;


						writeln
						('Hambatan total      :',t:1:2
						);

end.


 


 


 


 

Program mencari mata uang


 

uses wincrt;

 
 

var uang :
						longint;

 
 

begin
					


						write('Nilai uang : ');readln(uang);

 
 


						if uang div
						100000 > 0
						then
						begin
					


						writeln(uang div
						100000,
						' lembar seratus ribuan');

    uang := uang mod
						100000;


						end;

 
 


						if uang div
						50000 > 0
						then
						begin
					


						writeln(uang div
						50000,
						' lembar lima puluh ribuan');

    uang := uang mod
						50000;


						end;

 
 


						if uang div
						20000 > 0
						then
						begin
					


						writeln(uang div
						20000,
						' lembar dua puluh ribuan');

    uang := uang mod
						20000;


						end;

 
 


						if uang div
						10000 > 0
						then
						begin
					


						writeln(uang div
						10000,
						' lembar sepuluh ribuan');

    uang := uang mod
						10000;


						end;

 
 


						if uang div
						5000 > 0
						then
						begin
					


						writeln(uang div
						5000,
						' lembar lima ribuan');

    uang := uang mod
						5000;


						end;

 
 


						if uang div
						1000 > 0
						then
						begin
					


						writeln(uang div
						1000,
						' lembar ribuan');

    uang := uang mod
						1000;


						end;

 
 


						if uang div
						500 > 0
						then
						begin
					


						writeln(uang div
						500,
						' lembar lima ratusan');

    uang := uang mod
						500;


						end;

 
 


						if uang div
						100 > 0
						then
						begin
					


						writeln(uang div
						100,
						' ratusan');

    uang := uang mod
						100;


						end;

 
 


						if uang div
						50 > 0
						then
						begin
					


						writeln(uang div
						50,
						' limapuluhan');

    uang := uang mod
						50;


						end;

 
 


						if uang > 0
						then
						begin
					


						writeln(uang,
						' satuan');


						end;

 
 

end.


 


 


 

Read More

Program Mencari Persamaan Kuadrat

05.35    No comments 

PersamaanKuadrat


 

Program PersamaanKuadrat;

uses wincrt;

var a,b,c,d,x1,x2 :real;

begin
					

  clrscr;


						writeln('Menghitung akar-akar persamaan kuadrat');


						writeln('Nilai a,b,c dimasukkan dengan jeda spasi');


						write('Masukkan nilai a,b,c:');


						readln(a,b,c);

  d:=(b*b)
						-
						(4*a*c);


						if d < 0
						then
						writeln('tidak ada akar real')
					


						else
					


						begin
					

    x1:=(-b +
						(sqrt(d)))/(2*a);

    x2:=(-b -
						(sqrt(d)))/(2*a);


						writeln('x1 =',x1:6:2);


						writeln('x2 =',x2:6:2);


						end;


						readln;

end.

Read More

Program Mencari Mencari Mata Uang

05.34    No comments 

Program mencari mata uang


 

uses wincrt;

 
 

var uang :
						longint;

 
 

begin
					


						write('Nilai uang : ');readln(uang);

 
 


						if uang div
						100000 > 0
						then
						begin
					


						writeln(uang div
						100000,
						' lembar seratus ribuan');

    uang := uang mod
						100000;


						end;

 
 


						if uang div
						50000 > 0
						then
						begin
					


						writeln(uang div
						50000,
						' lembar lima puluh ribuan');

    uang := uang mod
						50000;


						end;

 
 


						if uang div
						20000 > 0
						then
						begin
					


						writeln(uang div
						20000,
						' lembar dua puluh ribuan');

    uang := uang mod
						20000;


						end;

 
 


						if uang div
						10000 > 0
						then
						begin
					


						writeln(uang div
						10000,
						' lembar sepuluh ribuan');

    uang := uang mod
						10000;


						end;

 
 


						if uang div
						5000 > 0
						then
						begin
					


						writeln(uang div
						5000,
						' lembar lima ribuan');

    uang := uang mod
						5000;


						end;

 
 


						if uang div
						1000 > 0
						then
						begin
					


						writeln(uang div
						1000,
						' lembar ribuan');

    uang := uang mod
						1000;


						end;

 
 


						if uang div
						500 > 0
						then
						begin
					


						writeln(uang div
						500,
						' lembar lima ratusan');

    uang := uang mod
						500;


						end;

 
 


						if uang div
						100 > 0
						then
						begin
					


						writeln(uang div
						100,
						' ratusan');

    uang := uang mod
						100;


						end;

 
 


						if uang div
						50 > 0
						then
						begin
					


						writeln(uang div
						50,
						' limapuluhan');

    uang := uang mod
						50;


						end;

 
 


						if uang > 0
						then
						begin
					


						writeln(uang,
						' satuan');


						end;

 
 

end.


 


 


 


 

Mencari nilai rata-rata, tertinggi, terendah.


 


 

uses wincrt;

 
 

var a, siswa :
						integer;

nilai, total, tinggi, rendah, rata :
						real;

 
 

begin
					

  total :=
						0;


						write
						('jumlah siswa : '); readln
						(siswa);


						writeln;


						for a :=
						1
						to siswa do
					


						begin
					


						write
						('nilai siswa ke ',a,' : '); readln
						(nilai);

    total := total + nilai;


						if a =
						1
						then
						begin
					

      tinggi := nilai;

      rendah := nilai;


						end
					


						else
						begin
					


						if nilai > tinggi then tinggi := nilai


						else
						begin
					


						if nilai < rendah then rendah := nilai;


						end;


						end;


						end;

  rata := total / siswa;


						writeln;


						writeln
						('nilai terendah    : ', rendah :1:2);


						writeln
						('nilai tertinggi   : ', tinggi :1:2);


						writeln
						('rata-rata         : ',rata :1:2);

end.


 

Read More

Senin, 02 Agustus 2010

Pascal-Kalkulator

03.25    No comments
Contoh Bahasa Pascal:

uses wincrt;
var x,y,hasil:real;
jawab:char;
begin
write ('masukan angka ke-1:');readln (x);
write ('pilih operator: (+)/(-)/(*)/(/)');readln (jawab);
write ('masukan angka ke-2:');readln (y);
if ( jawab= '+') then
begin
hasil:= x+y
end;
if ( jawab = '-') then
begin
hasil:= x-y
end;
if ( jawab = '*') then
begin
hasil:= x*y
end;
if (jawab='/') then
begin
hasil:= x/y
end;
write ('hasilnya: ',(hasil):5:2);
end.
Read More