-
ARRAY / LARIK
Array (larik ) adalah tipe terstruktur yang terdiri dari sejumlah komponen yang mempuyai tipe sama. B.U : Array [ 1 . . 20 ] of tipe_data ; (Dimensi 1) B.U : Array [1 . . 3 , 1 . . 2] of tipe_data; (Dimensi 2) Contoh Program Array : Uses crt ; Var Nama :…
-
Soal UTS Algoritma 08/09 No. 2 (procedure & function)
uses wincrt; function aku(a,b:integer):integer; begin if a = 1 then aku := 2*a else if b = 1 then aku := 2*b else aku := a*b+ (aku(a-1,b)+ aku(a,b-1)); end; function lagi (a,b : integer):integer; begin if (a>b) then lagi :=lagi (b,a) else if (a=0) then lagi := b else lagi := lagi (b mod a,…
-
Soal UTS Algoritma 08/09 No. 1 (function)
uses wincrt; function uji (a,b : integer):integer; begin if a = 1 then uji := a*3 else if b = 1 then uji := b*3 else uji := a*b + (uji(a-1,b) + uji (a,b-1)); end; begin write (uji (2,2)); end. tampilan. 10 proses. uji (2,2) yang ada di program utama = function uji (a,b) jadi…
-
Perulangan dengan Repeat Until
uses wincrt; { program KRS sederhana dalam dua versi bahasa} var total,IP:real; sks,x:integer; mk:string; begin writeln (‘ SELAMAT DATANG DALAM PENGISIAN KRS ‘); writeln (‘ 1. dalam versi bahasa jawa’); writeln (‘ 2. dalam versi bahasa indonesia’); write (‘pilih versi = ‘);read (x); if (x= 1) then begin write (‘lebokno nilai IP semestermu = ‘);…
-
Pengulangan dan Perbedaan Penggunaannya
1. For Do ( Pengulangan Tanpa Kondisi ) For do merupakan struktur pengulangan dimana aksi dilakukan sebanyak hitungan pencacah pengulangan. Pencacah pengulangan dapat diset sesuai dengan nilai yang ingin kita mulai. Example: for pencacah pengulangan dari x sampai y do berarti aksi dilakukan sebanyak hitungan pencacah pengulangan, yaitu dari x sampai y sebanyak b-a+1 kali.…
-
Tipe Data
Dalam algoritma, kita harus bias menentukan tipe-tipe data yang sesuai digunakan dalam penyelesaian masalah. Sehingga computer dapat mengolah dan mendapatkan hasil yang sesuai menurut kebutuhan data. Ada beberapa tipe data yang harus kita ketahui antara lain : 1. Tipe data Char dan String Ini merupakan tipe data dasar, tipe data ini didefinisikan pada deklarsi var…
-
Program Konversi Suhu
Saya mencoba membuat program konversi suhu menggunakan procedure. Didalam program ini terdapat percabangan case of else dan perulangan repeat until. Coba pahami kegunaannya. Program Konversi_Suhu; Uses WinCrt; var f,c,r : real; a,ul : char; procedure farein_celcius; begin Writeln(‘Program Konversi Fareinheit Ke Celcius’); Writeln(‘======================================’); Writeln; Write(‘Masukan Suhu dalam Farenheit: ‘);readln(f); c:=5/9*(f-32); Writeln; Writeln(‘Jadi Suhu Dalam Celcius…
-
Membuat Piramid Bintang
Program piramid bintang dengan pascal kiriman Saipul Bahrie program bintang_piramid; uses wincrt; var c,a,b,n : integer; begin write (‘masukkan angka : ‘);readln(n); writeln; if n mod 2 = 0 then for a := 1 to (n div 2) do begin for b := 1 to (n div 2)-a do write (‘ ‘); for c :=…
-
Program Kalkulator Sederhana
Contoh program penghitungan dengan 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;…
-
Perulangan
Jika dibandingkan dengan computer, manusia mempunyai kekurangan. Salah satu kekurangannya adalah manusia tidak mampu melaksanakan suatu perintah berulangkali tanpa mengenal lelah dan bosan. Sedangkan computer sebaliknya, computer mampu melaksanakan suatu perintah berulangkali tanpa mengenal lelah dan bosan. Di dalam algoritma pengulangan/ loop dapat dilakukan sejumlah kali, atau sampai kondisi berhenti pengulangan tercapai. * Struktur Pengulangan…