File Sekuensial

Function and Procedure pada Pascal

FUNCTION

Fungsi, seperti halnya pada pelajaran matematika. Fungsi merupakan pemetaan suatu domain ke ko-domain. Seperti contoh f(x)=3/x. Fungsi f tersebut memiliki parameter x yang dapat diubah ubah, serta fungsi tersebut memiliki nilai tergantung dari nilai x tersebut. 

Nah, pada pascal juga tidak begitu berbeda. Coba pahami contoh program function di bawah:

Gambar di atas merupakan contoh dari penggunaan function.
Format penulisannya berupa :
function [nama function] ([parameter]):[tipe data function]
 begin
  [statement, di mana harus mencantumkan parameter beserta nama fungsi nya]
end;

Parameter yang digunakan pada pembuatan fungsi adalah parameter formal.

PEMANGGILAN FUNCTION
Function dapat diassign atau dimasukkan ke variabel lain,
contoh pada program di atas:
L:=luas(alas,tinggi);
yang berarti hasil dari variabel function dimasukkan ke dalam variabel L.

Function dapat diletakkan pada write/writeln, nilai dari function dikeluarkan, seperti halnya variabel biasa.
contoh pada program di atas:
write(luas(alas,tinggi);

Pada pemanggilan fungsi, parameter yang digunakan adalah parameter aktual.

PROCEDURE
Procedure, dalam bahasa Indonesia berarti prosedur. Nah, dari situ kita dapat mengetahui keuntungannya, yaitu dapat membagi suatu program ke dalam beberapa prosedur.
Contoh: Untuk menentukan indeks nilai suatu matkul mahasiswa, dibutuhkan prosedur prosedur sbb.
a. Prosedur input nilai
b. Prosedur penghitungan nilai
c. Prosedur penentuan indeks
ini nih contoh programnya:

nah, pada program utama, hanya ditulis nama nama procedure kan? nah itu dia cara pemanggilan procedure. Hanya tinggal menuliskan nama procedure beserta parameternya.

Semoga bermanfaat;

Pascal Source Code : Konversi Skor

program papan_score;
uses wincrt;
function
 convert (kar:char): integer;
 begin
  if kar='1' then convert:=1;
  if kar='2' then convert:=2;
  if kar='3' then convert:=3;
  if kar='4' then convert:=4;
  if kar='5' then convert:=5;
  if kar='6' then convert:=6;
  if kar='7' then convert:=7;
  if kar='8' then convert:=8;
  if kar='9' then convert:=9;
  if kar='0' then convert:=0;
 end;
var
 score      :string;
 teamA,teamB:string;
 scA,scB    :integer;
 i,j,n      :integer;
begin
write ('Nama team ke-1: '); readln (teamA);
write ('Nama team ke-2: '); readln (teamB);
write ('Input score (',teamA,'-',teamB,'): '); readln (score);
scA:=0; scB:=0;
for i:=1 to length(score) do
 begin
 if score[i]='-' then
  begin
  n:=1;
   for j:=i-1 downto 1 do
    begin
     scA:=scA+convert(score[j])*n;
     n:=n*10;
    end;
  n:=1;
   for j:=length(score) downto i+1 do
    begin
     scB:=scB+convert(score[j])*n;
     n:=n*10;
    end;
  end;
 end;
writeln ('Score untuk ',teamA,': ',scA);
writeln ('Score untuk ',teamB,': ',scB);
end.

The miracle of '2'

Ni gan ada source code buatan ane, bisa dicoba, tentang keajaiban angka 2 Click image below to see more

FROST

Tidur Telentang Ternyata Sangat Berbahaya

Apakah anda sering tidur telentang? Apakah anda pikir itu adalah kebiasaan yg baik? Anda SALAH BESAR. Saya ulangi, SALAH BESAR. Kebiasaan ini sangat buruk bagi anda. Banyak ahli mengatakan #serius bahwa tidur semacam itu dapat menyebabkan susah tidur, susah nafas hingga KEMATIAN.

Berikut ini dampak yang ditimbulkan dari tidur telentang:
1. Susah nafas.
2. Susah tidur.
3. Ketika bangun, anda akan susah bicara.
4. Dalam kasus yang sangat parah dapat menimbulkan kematian.

Oleh karena itu, sebaiknya anda mengubah gaya tidur anda. Tidurlah dengan wajar. Tidur TELEN DREI, TELEN SEKRUP aja udah bahaya, apalagi anda tidur TELEN TANG, gimana tu ceritanya :p

When Love comes and talks.

Duh, bosen gila sama tema ini. Di mana mana diomongin, diumbar dan dijual. Tapi ga ada kok yang ngelarang kita untuk mencintai. Selama dalam batas normal.

Definisi cinta, menurut sumber yang terpercaya. Cinta itu definisinya banyak sekali. Jadi, cari aja yang sesuai dengan anda.

Apa sih yang membuat cinta itu menarik? Cinta itu menjanjikan 2 hal yang berlawanan. Kadang menyakitkan dan kadang menentramkan atau mengindahkan.

Banyak orang yang mengatakan patah hati itu menyakitkan. Ini ni yang digambarkan oleh Tipe-X mengenai patah hati. "Jadinya mati rasa, sakit luar biasa, karena bukan luka biasa. Nggak ada rasa lagi, hidup nggak sempurna lagi. Bahkan ada yg nekat sampai mau bunuh diri." Patah hati ga perlu lama lama men. Jodoh itu nggak bisa dipaksain, kalo emang nggak jodoh nggak bisa diapa apain kok. Jodoh kan ditangan Tuhan *katanya begitu

Kalo pernah patah hati, pernah jatuh cinta juga dong cinta dong ya? Cieee. Indah ya? Memang Tuhan membuatnya seperti itu. Hati kita itu seperti pekarangan kosong, kemudian cinta itu seperti benih benih yang ditanami oleh seseorang. Dan bila terus dirawat akan mekar dan bersemi. Yang akan "Indah pada waktunya". Menurut agama yg gue anut, waktunya adalah ketika kita menikah. *sumber: buku, surat #eh.

Itu sudut pandang cinta dari gue terhadap lawan jenis. Sekarang terhadap segala sesuatu. Cinta itu bagaikan makanan. Memberikan tenaga tambahan kepada kita. Coba deh perhatiin, orang culun bisa jadi gaul gara gara cewek, berandal bisa jadi alim, orang orang hebat bisa jadi seperti itu karena mereka cinta terhadap apa yang mereka lakuin. Sungguh betapa hebatnya kekuatan cinta apabila kita mencintai hal yang tepat. Seperti mencintai Tuhan agar kita tetap di jalanNya, mencintai orang tua agar dapat membahagiakan mereka, dan mencintai diri sendiri dan segala sesuatu yang kita lakukan agar kita hidup lebih baik.