Tipe Bilangan

Bilangan Bulat Tipe ini sudah dikenal dalam kehidupan sehari-hari. Bilangan bulat adalah bilangan yang tidak menhgandung pecahan desimal, misalnya 34, 8, 1203, 0, -17 dan sebagainya. Nama Tipe Nama tipe bilangan bulat adalah integer. Ranah Nilai Secara teoretis, tipe bilangan bulat mempunyai ranah nilai yang tidak terbatas. rentang nilainy adalah dari minus tah hingga sampai plus tak hingga asalkan setiap nilainya tidak mengandung titik desimal. Namun di dalam algoritma kita dapat mendefinisikan ranah tertentu untuk objek yang kita definisikan. Pendefinisaian ranah ini diperlukan untuk menyatakan bahwa nilai objek hanya boleh berada dalam ranah tersebut. Misalnya objek “jam” didefinisaikan bertipe bilangan bulat dengan ranah nilai untuk “jam” adalah dalam {0..23}. Bila sebuah objek bilangan...

Read more »

Sub Program

Dalam suatu program, kadang ada bagian progam yang disembunyikan dan menggantinya dengan suatu kata. Bagian program tersebut dinamakan subprogram. Dalam bahasa pascal, ada dua tipe subprogram, yaitu procedure dan function. Keduanya merupakan kelompok dalam bahasa pascal yang dipisahkan dari program utamanya. keduanya dijalankan dan dieksekusi dengan memanggil namanya. Perbedaan procedure dan function adalah pengenal function mempunyai tipe dan membawa nilai ketika dieksekusi. sedangkan pengenal procedure tidak mempunyai tipe dan tidak membawa tipe. Suatu procedure atau finction mempunyai argument atau parameter yang ditulis dalam tanda kurung. Parameter formal adalah parameter yang terdapat pada pendeklarasian judul. parameter actual adalah parameter pada pemanggilan....

Read more »

Rekursi

Rekursi bisa melalui procedure atau function. Procedure memanggil dirinya sendiri meruakan suatu procedure yang memanggil atau menggunakan procedure itu juga. Fungsi juga dapat memanggil dirinya sendiri. Proses dari suatu program yang memenggil dirinya sendiri disebut rekursi. Contoh: Program Latihan_Rekursi_1; Uses Wincrt; Function Faktorial(a:real):real; Begin If (a=1)then Faktorial:=1 else Faktorial:=a*faktorial(a-1); End; Var x:longint; Begin Writeln('Berapa Faktorial? ');Readln(x); Writeln(x,' faktorial ','= ',Faktorial(x):5:0); End....

Read more »

Procedure

Dalam dunia pemrograman, procedure adalah modul program yang mengerjakan tugas yang spesifik dan menghasilkan efek netto. Suatu efek netto diketahui dengan membandingkan keadaan awal dan keadaan akhir pada pelaksanaan sebuah procedure. Setiap procedure mempunyai nama yang unik. nama procedure sebaiknya diawali dengan kata kerja. Contoh: Program Menukar_Nilai_A_dan_B; Uses Wincrt; Var A,B:real; Procedure Tukar(Var X,Y:real); Var penukar:real; Begin penukar:=X; X:=Y; Y:=penukar; End; Begin Write ('Masukkan Nilai A=');readln (A); Write ('Masukkan Nilai B=');readln (B); Writeln ('Nilai A sebelum ditukar',(A):5:0); Writeln ('Nilai B sebelum ditukar',(B):5:0); Tukar(A,B);...

Read more »

Pengulangan

Salah satu kelebihan komputer adalah kemampuannya untuk mengerjakan pekerjaan yang sama berulang kali tanpa mengenal lelah. ini berbeda dengan manusia yang cepat lelah bila mengerjakan pekerjaan yang sama berulang-ulang. tidak hanya lelah, tetapi juga cepat bosan. Dalam bahasa Pascal terdapat 3 macam kendali untuk melakukan proses pengulangan (looping) yang sering digunakan dalam bahasa pemrograman tingkat tinggi, yaitu pernyataan for, while dan repeat. masing-masing pernyataan mempunyai kekhususan dan keunggulan sendiri. Pada umumnya control pengulangan mengulang satu atau lebih pernyataan berdasarkan suatu kondisi. Hal ini sangat memudahkan kita membuat suatu program karena dapat menghemat jumlah pernyataan yang harus ditulis. Kontrol Program For For adalah salah satu pernyataan yang...

Read more »

Pemilihan

Adakalanya sebuah instruksidikerjakan jika kondisi tertentu dipenuhi. Pencarian data terkecil dilakukan dengan membandingkan data. Mula-mula data pertama dianggap data terkecil sementara (min). Bandingkan (min) denghan data ke-2, 3, …, N. Selama proses pembandingan, bila data ke-j lebih kecil dari min, maka data ke-j itu jadi min baru. If-then Struktur pemilihan if-then hanya memberikan satu pilihan aksi bila kondisi dipenuhi, dan tidak memberi pilihan aksi lain bila kondisi bernilai salah. Bentuk pemilihan yang lebih umum adalah memilih satu dari dua buah aksi bergantung pada nilai kondisinya: if kondisi then aksi 1 else aksi 2 Else artinya kalau tidak. Bila kondisi benar aksi 1 dikerjakan, kalau tidak aksi 2 dikerjakan. Contoh: If hari hujan then pergilah dengan mobil else pergilah...

Read more »

Function

Blok fungsi hamper sama dengan blok procedure, hanya fungsi harus dideklarasikan dengan tipenya. Tipe deklarasi ini menunjukkan tipe hasil dari function. Pada daftar parameter bisa berisi sejumlah parameter yang dipisahkan denga tanda koma. jika function tidak memiliki parameter, tanda() tidak perlu disertakan. Contoh: Program Latihan_Function; Uses Wincrt; Var x,y:longint; Function Tambah(a,b:longint):longint; Var Hasil:longint; Begin Hasil:=a+b; Tambah:=Hasil; End; Begin Write('Masukkan bilangan pertama: ');readln(x); Write('Masukkan bilangan kedua: ');readln(y); Write('Hasilnya adalah ',(Tambah(x,y))); end....

Read more »

Larik (Array)

Apakah Larik Itu? Larik adalah struktur data yang menyimpan sekumpulan elemen yang bertipe sama. Setiap elemen diakses langsung dari indeksnya. Indeks larik haruslah tipe data yang menyatakan keterurutan, misalnya integer atau karakter. Larik yang bernama A dengan delapan buah elemen dapat dibayangkan lecara logis sebagai sekumpulan kotak yang terurut. tiap kotak tersebut diberi indeks. Contoh: A[1], A[2], A[3], A[4], A[5] Angka didalam tanda kurung siku menyatakan indeks larik. Setiap elemen larik menyimpan sebuah nilai. Karena seluruh elemen larik bertipe sama, maka nilai yang disimpan setiap elemen harus bertipe sama pula. Contoh: Program Latihan_Array_1; Uses Wincrt; Var a,b:integer; tabel: array[1..3,1..2] of integer; Begin Write('Tabel 1,1:');Readln(tabel[1,1]); ...

Read more »

Apakah Algoritma Itu?

Ditinjau dari asal-usul kata, kata algoritma mempunyai sejarah yang aneh. Kata ini tidak muncul dalam kamus Webster sampai akhir tahun 1957. Orang hanya menemuka kata algorism yang berarti proses menghitung dengan angka arab. Anda dikatakan algorist jika anda menggunakan angka arab. para ahli sejarah matematika menemukan asal mula kata tersebut. Kata algorism berasal dari nama penulis buku arab yang terkenal, yaitu Abu Ja’far Muhammad ibnu Musa al-Khuwarizmi (al-Khuwarizmi dibaca orang barat menjadi algorism). Al-Khawarizmi menulis buku berjudul Kitab al jabar wal-muqabala, yang artinya “Buku pemugaran dan pengurangan”. Perubahan dari kata algorism menjadi algorithm muncul karena kata algorism sering dikelirukan dengan arithmetic, sehingga akhiran -sm berubah menjadi -thm. Kata algorithm...

Read more »

Algoritma

Definisi: Algoritma adalah urutan langkah-langkah logis penyelesaian masalah yang disusun secara sistematis. Sebagai pembanding, disini dikemukakan definisi algoritma menurut Kamus besar Bahasa Indonesia: Algoritma adalah urutan logis pengambilan putusan untuk pemecahan masalah. Kata logis merupakan kata kunci dalam sebuah algoritma. Langkah-langkah di dalam algoritma harus logis, ini berarti hasil dari urutan langkah-langkah tersebut harus dapat ditentukan benar atau salah. Langkah-langkah yang tidak benar dapat memberikan hasil yang salah....

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang segitiga asik.Program Jumlah_Segitiga_Asik;Uses Wincrt;Var a,b,c,d:longint;Begin Write ('Berapa baris segitiga asik yang kamu inginkan: '); read (a); For c:=1 to a do Begin For b:=1 to c do Begin Write (c:2); If bc then="" write="" ('="" +="" '); End; For b:=1 to c do d:=b*b; Write (' = '); Write (d); Writeln; Writeln; End;End.Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang segitiga asik.Program Jumlah_Segitiga_Asik;Uses Wincrt;Var a,b,c,d:longint;Begin Write ('Berapa baris segitiga asik yang kamu inginkan: '); read (a); For c:=1 to a do Begin For b:=1 to 1 do Write (c:2); ...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang for to do.Program For_to_do;Uses Wincrt;Var a:longint;Begin For a:=1 to 5 do Writeln (a,' . Pemrograman Komputer');End.Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang repeat until.Program Repeat_until;Uses Wincrt;Var a:longint;Begin a:=0; Repeat a:=a+1; Writeln (a,' . Pemrograman Komputer'); Until a>4;End.Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang while do.Program While_do;Uses Wincrt;Var a:longint;Begin a:=0; While a<5 do Begin a:=a+1; Writeln (a,' . Pemrograman Komputer'); End;E...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang rekursi.Program Latihan_Rekursi_1;Uses Wincrt;Function Faktorial(a:real):real;Begin If (a=1)then Faktorial:=1 else Faktorial:=a*faktorial(a-1);End;Var x:longint;Begin Writeln('Berapa Faktorial? ');Readln(x); Writeln(x,' faktorial ','= ',Faktorial(x):5:0);End.Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang rekursi.Program Latihan_Rekursi_2;Uses Wincrt;Procedure Rekursi(a:integer);Var y:integer;Begin If a<10 then Begin Writeln('Pascal'); Writeln; a:=a+1; Rekursi(a); End;End;Var x:integer;Begin Writeln('Berapa batas awalnya?');Readln(x); Rekursi(x);End.Bagi teman-teman yang sedang...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang konversi detik ke jam.Program Konversi_Detik_ke_Jam;Uses Wincrt;Var hh,mm,ss,Total_Detik:longint;Begin Write ('Total Detik= ');readln (Total_Detik); hh:=Total_detik div 3600; mm:=(Total_detik mod 3600) div 60; ss:=(Total_detik mod 3600) mod 60; Writeln ('Waktu dalam Jam adalah ',hh,(' jam, '),mm,(' menit, '),ss,(' detik.'));End.Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang konversi detik ke jam.Program Konversi_Detik_ke_Jam;Uses Wincrt;Type Jam = record hh:longint; mm:longint; ss:longint; end;Var J:Jam; Total_Detik:longint;Begin Write ('Total Detik= ');readln (Total_Detik);...

Read more »

Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang konversi suhu.Program Konversi_Suhu;Uses Wincrt;Var C,K,F:real;Begin Write ('Masukkan suhu dalam Celcius= ');readln(C); F:=((9/5)*C)+32; K:=C+273; Writeln ('Suhu dalam Fahrenheit= ',(F):5:2); Writeln ('Suhu dalam Kelvin= ',(K):5:2);End.Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang konversi suhu.program Konversi_Suhu;uses wincrt;vara:real;b,c,d:real;beginwrite ('Masukkan suhu dalam Celcius=');readln(a);b:=(5/9*a)+32;c:=(4/5*a);d:=a+273;writeln ('Suhu dalam Fahrenheit=',(b):5:2);writeln ('Suhu dalam Reamur=',(c):5:2);writeln ('Suhu dalam Kelvin=',(d):5:2);e...

Read more »