PROCEDURE DAN FUNCTION Procedure dan Function adalah suatu program terpisah dalam blok sendiri yang berfungsi sebagai sub-program (modul program) yang merupakan sebuah program kecil untuk memproses sebagian dari pekerjaan program utama. �� PROCEDURE Prosedur diawali dengan kata cadangan Procedure di dalam bagian deklarasi prosedur. Prosedur dipanggil dan digunakan di dalam blok program yang lainnya dengan menyebutkan judul prosedurnya. Prosedur banyak digunakan pada...

Dibawah ini adalah program Aritmatika (Sinus, Cosinus, Tangen) menggunakan bahasa pascal. program aritmatik; uses wincrt; var x:real; begin clrscr; gotoxy (18,3); writeln ('PROGRAM MENGHITUNG SINUS, COSINUS DAN TANGEN'); gotoxy (18,4); writeln ('--------------------------------------------'); gotoxy (18,5); write('Masukkan nilai dari x= '); readln(x); if x <0 then x:=abs(x); gotoxy (18,6); writeln('nilai x=',x:5:2); gotoxy (18,7); write('nilai x jika...

Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. Komponen-komponen tersebut disebut sebagai komponen type, larik mempunyai jumlah komponen yang jumlahnya tetap. Banyaknya komponen dalam larik ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subskript. Array dapat bertipe data sederhana seperti byte, word, integer, real, bolean, char, string dan tipe...

Struktur Case – Of mempunyai suatu ungkapan logika yang disebut dengan selector dan sejumlah statemen yang diawali dengan suatu label permasalahan (case label) yang mempunyai tipe sama dengan selector. Statement yang mempunyai case label yang bernilai sama dengan case label yang bernilai sama dengan nilai selector akan diproses sedang statemen yang lainya tidak. Bentuk struktur dari Case - Of: Case Variabel Kondisi Of Case – Label 1; Statement 1; Case – Label 2; Statement...

BAB I PENGANTAR PASCAL A. Program Turbo Pascal Pascal adalah salah satu bahasa pemrograman tingkat tinggi (high level language). Nama Pascal diambil dari nama seorang ahli matematika dan filosofi terkenal abad 17 dari Perancis, yaitu Blaise Pascal. Bahasa ini dirancang oleh Prof. Niklaus Wirth dari Technical University di Zurich, Switzerland. Turbo Pascal adalah salah satu versi Pascal yang paling popular dan banyak digunakan saat ini. Bentuk tampilan awal Turbo Pascal...

Seorang pria bijak memasuki sebuah cafe dan mulai menceritakan sebuah lelucon dan membuat semua orang dalam cafe itu tertawa. Beberapa saat kemudian pria itu mengulangi leluconnya, namun kali ini hanya beberapa orang saja yang tertawa. 5 menit kemudian pria itu kembali menceritakan lelucon yang sama, dan ternyata tidak ada yang tertawa. Pria inipun tersenyum lebar, sambil berkata : "Bila kamu tidak bisa tertawa berulang-ulang pada lelucon yang sama , lalu mengapa kamu...

uses wincrt; var a,n : integer; data, total, max, min, mean : real; begin total := 0; write ('*****Banyaknya data***** : '); readln (n); writeln; for a := 1 to n do begin write ('####Data ke#### ',a,' : '); readln (data); total := total + data; if a = 1 then begin max := data; min := data; end; else begin if data > max then max := data else begin if data < min then min := data; end; end; end; mean := total / n; writeln; writeln ('^^^Nilai terendah^^^ :...

program faktorial; uses wincrt; var i,a,n,f:integer; begin readln(n); f:=1; i:=0; if (n>1)then begin repeat i:=i+1; f:=f*i; until i=n; a:=n; for i:=n downto 2 do begin write (a,'x'); a:=a-1; end; write(1,'=',f) end else if (n=0)then writeln ('1') else if (n=1)then writeln ('1') else writeln ('tidak terdifinisi') e...

program matrik; uses wincrt; type data = array[1..10,1..10] of integer; var matrikI,matrikII : data; baris,kolom,pil : integer; procedure isimatrik; var i,j : integer; begin writeln('Penentuan ORDO MATRIK I'); write('Masukan banyak baris matrik I = ');readln(baris); write('Masukan banyak kolom matrik I = ');readln(kolom); for i:=1 to baris do for j:=1 to kolom do begin gotoxy(j*10,i*5); readln(matrikI[i,j]); end; clrscr; writeln('Penentuan ORDO MATRIK...

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