Turbo Pascal

contactwahyu on October 15th, 2014

Uses crt; Type simpul = ^data; data = record bilangan : integer; next : simpul; end; var awal,akhir,baru,bantu : simpul; procedure sisip_depan; begin new(baru); write (‘Masukkan Bilangan : ‘); readln (baru^.bilangan); if awal=nil then begin baru^.next:=nil; awal:=baru; akhir:=baru; end else begin baru^.next:=awal; awal:=baru; end; end; procedure tampil; begin bantu:=awal; while (bantu<>nil) do begin writeln(bantu^.bilangan); bantu:=bantu^.next; […]

Continue reading about Contoh Linked List Sederhana dengan Pascal

contactwahyu on October 1st, 2014

Buatlah sebuah program penjumlahan dan pengurangan matriks dengan ordo 2×2 dengan semua elemennya diinputkan Buatlah menu pulldown untuk mengontrol program tersebut, contoh: 1. Penjumlahan Matriks 2. Pengurangan Matriks 3. Keluar

Continue reading about Membuat Program Operasi Matriks

contactwahyu on September 11th, 2014

Untuk kesempatan kali ini, saya akan mencoba membuat prosedur membuat box. Langsung saja berikut adalah listing programnya yang dicompile dengan compiler FreePascal uses crt; var i:integer; procedure box(x,y,w,h,c:integer); var i,j:integer; begin textcolor(15); textbackground(c); gotoxy(x,y); write(chr(201)); for i:=1 to w do begin gotoxy(x+i,y); write(chr(205)); end; gotoxy(x+i+1,y); write(chr(187)); for j:=1 to h do begin gotoxy(x,y+j); write(chr(186)); for […]

Continue reading about Membuat Procedure Box

contactwahyu on March 15th, 2014

uses crt; var peg1,peg2,peg3: array[1..4] of string; top1,top2,top3: byte; m,n:byte; t:string; function pop(stack:byte):string; begin case stack of 1: begin pop:=peg1[top1]; peg1[top1]:=”; dec(top1); end; 2: begin pop:=peg2[top2]; peg2[top2]:=”; dec(top2); end; 3: begin pop:=peg3[top3]; peg3[top3]:=”; dec(top3); end; end; end; procedure push(stack:byte;element:string); begin case stack of 1: begin inc(top1); peg1[top1]:=element; end; 2: begin inc(top2); peg2[top2]:=element; end; 3: begin […]

Continue reading about Hanoi Tower using Pascal

contactwahyu on February 17th, 2014

Share the new thing that you’ve learned Michelle -How’s the procedure box working? -User Interface, annoying with the black space in the middle -There are numbers 1-6, but the choice only 5 and 6? -If customers only order one menu, they need to input all the menu -When printing out the invoice, the program can […]

Continue reading about Restaurant Simple Cash Program

contactwahyu on February 11th, 2014

A small restaurant known as the famous Indonesian Food Restaurant in Surabaya offers several foods for their customers.  They’d like to create a simple cash program when their customers want to pay the bill. The Menu Interface designed as follows: ======================================== DELICIOUS BLUE RESTAURANT ======================================== 1. SPECIAL DELICIOUS SATAY IDR 30,000 2. FAVORITE GRILLED FISH […]

Continue reading about Simple Cash Program with Pascal

contactwahyu on February 10th, 2014

uses crt; var pilih:integer; Const MenuItem : Array [1..5] of String[25] = (‘1.Celcius ke Fahrenheit ‘, ‘2.Fahrenheit ke Celcius ‘, ‘3.Celcius ke Reamur ‘, ‘4.Reamur ke Celcius ‘, ‘5.Keluar Program ‘); procedure tulis(x,y,c1,c2:integer;t:string); begin textbackground(c1); textcolor(c2); gotoxy(x,y); write(t); end; procedure tulistengah(x,y,w,c:integer;t:string); var p,tgh:integer; begin textcolor(c); p:=length(t); tgh:=round((w-p)/2); gotoxy(x+tgh,y); write(t); end; procedure kotak(x,y,w,h,t,b:integer); var i,j:integer; begin […]

Continue reading about Konversi Suhu dengan Menu Biasa

contactwahyu on February 9th, 2014

uses crt; var pilih:integer; Const MenuItem : Array [1..5] of String[25] = (‘1.Celcius ke Fahrenheit ‘, ‘2.Fahrenheit ke Celcius ‘, ‘3.Celcius ke Reamur ‘, ‘4.Reamur ke Celcius ‘, ‘5.Keluar Program ‘); procedure tulis(x,y,c1,c2:integer;t:string); begin textbackground(c1); textcolor(c2); gotoxy(x,y); write(t); end; procedure tulistengah(x,y,w,c:integer;t:string); var p,tgh:integer; begin textcolor(c); p:=length(t); tgh:=round((w-p)/2); gotoxy(x+tgh,y); write(t); end; procedure kotak(x,y,w,h,t,b:integer); var i,j:integer; begin […]

Continue reading about Konversi Suhu dengan Menu Pulldown

contactwahyu on December 10th, 2013

TUGAS PROGRAM PASCAL Buat sebuah program yang menerima input jumlah pantulan, selanjutnya menggeser tulisan tersebut ke kanan dan ke kiri sebanyak jumlah pantulan yang diinputkan. Tulisan harus bisa diinputkan. (75) +5 jika warna bisa berubah2 saat tulisan dipantulkan +5 jika saat memantul, tulisan bisa turun satu baris ke bawah +5 jika ada pengecekan maximum pantulan […]

Continue reading about Animasi Teks dengan Pascal

contactwahyu on January 18th, 2013

USES CRT; TYPE DataString  = STRING[30]; ListPointer = ^ListRecord; ListRecord  = RECORD Data : DataString; Next : ListPointer; END; VAR Awal : ListPointer; Akhir : ListPointer; Baru : ListPointer; Bantu : ListPointer; Pilihan : Integer; PROCEDURE InsertBelakang; VAR Teks:STRING[30]; BEGIN WRITELN(‘Masukkan datanya :’); READLN(Teks); IF (Awal=Nil) THEN BEGIN New(Baru); Awal:=Baru; Akhir:=Baru; Awal^.Data:=Teks; Awal^.Next:=Nil; Akhir^.Next:=Nil; END […]

Continue reading about Program Single Non Circular Linked List

contactwahyu on January 17th, 2013

Linked List adalah salah satu bentuk struktur data, berisi kumpulan data (node) yang tersusun secara sekuensial, saling sambung-menyambung, dinamis dan terbatas. Linked List sering disebut juga Senarai Berantai Linked List saling terhubung dengan bantuan variabel pointer Masing-masing data dalam Linked List disebut dengan node (simpul) yang menempati alokasi memori secara dinamis dan biasanya berupa struct […]

Continue reading about Struktur Data: Linked List

contactwahyu on January 16th, 2013

Queue mempunyai struktur data yang hampir sama dengan Stack. Yang membedakan adalah procedure Deque, dimana terjadi iterasi untuk pergeseran komponen2 array, karena Queue menggunakan metode FIFO (First In First Out) sedangkan Stack menggunakan metode LIFO (Last In First Out). Berikut adalah listing program Queue yang ditulis dalam bahasa Pascal uses crt; var queue:array[1..10] of integer; […]

Continue reading about Program Queue dengan Pascal

contactwahyu on January 15th, 2013

uses crt; var stack:array[1..10] of integer; i,pos,pil:integer; procedure push; var bil:integer; begin clrscr; if (pos>=10) then begin writeln(‘Stack sudah penuh’); readln(); end else begin write(‘Masukkan bilangan : ‘);readln(bil); pos:=pos+1; stack[pos]:=bil; end; end; procedure pop; begin clrscr; if (pos=0) then begin writeln(‘Stack masih kosong’);readln(); end else begin stack[pos]:=-1; pos:=pos-1; end; end; procedure empty; var i:integer; begin […]

Continue reading about Program Stack dengan Pascal

contactwahyu on February 15th, 2011

Berikut adalah program Bubble Sort dalam bahasa Pascal dengan menggunakan prosedur untuk swapnya, semoga bisa dijadikan referensi { Program Pengurutan Data dengan BUBLE SORT TUGAS II Praktikum PASCAL (C) April 1998 } uses crt; var i,j,k,jumlah:integer; bil:array[1..20] of integer; procedure swap(var a,b:integer); var dum:integer; begin dum:=a; a:=b; b:=dum; end; begin clrscr; writeln(‘Program Sorting dengan BUBBLE […]

Continue reading about Bubble Sort

contactwahyu on February 15th, 2011

Procedure dan Function Procedure dan Function adalah salah satu cara untuk membagi-bagi satu program utuh ke dalam sub program atau modul-modul, sehingga akan lebih mudah bagi kita ataupun orang lain untuk mempelajari algoritma dan aliran program. Di dalam Turbo Pascal, penulisan procedure dan function diletakkan di sebelah atas setelah pendeklarasian tipe data, variabel ataupun konstanta […]

Continue reading about Pengenalan Pascal (Part 10)

contactwahyu on February 15th, 2011

Variabel Array Apakah variabel array itu? Kita dapat mengartikan bahwa variabel array adalah variabel yang mempunyai indeks atau nomor atau urutan tertentu, dimana satu variabel dapat mempunyai nilai yang berlainan antara yang satu dengan lainnya dengan tipe data yang sama. Sebagai contoh, jika saya memiliki variabel array bernama data yang mempunyai batasan 1 sampai dengan […]

Continue reading about Pengenalan Pascal (Part 9)

contactwahyu on February 15th, 2011

Tipe Variabel String Variabel String digunakan untuk menyimpan data berupa teks atau kalimat. Dalam hal ini apabila kita mempunyai sederetan bilangan, kita bisa saja menyimpannya ke dalam variabel string, namun konsekuensinya bilangan-bilangan ini akan dianggap sebagai kalimat atau teks, sehingga tidak dapat dilakukan untuk operasi perhitungan. Berikut ini adalah perintah-perintah yang biasa digunakan sehubungan dengan […]

Continue reading about Pengenalan Pascal (Part 8)

contactwahyu on February 15th, 2011

Lebih jauh tentang Operator Logika Sebagaimana sudah dibahas, bahwa sebuah operator logika dapat berupa NOT, AND ataupun OR. Hasil yang akan kita peroleh dengan menggunakan operator yang berbeda tentu saja akan menghasilkan output yang berbeda pula. Sebuah operator logika dapat dimanfaatkan untuk menggabungkan dua buah kondisi atau keadaan, dimana masing-masing kondisi tersebut akan memiliki nilai […]

Continue reading about Pengenalan Pascal (Part 7)

contactwahyu on February 15th, 2011

Pencabangan Bersarang Jika pada suatu saat kita menjumpai sebuah pencabangan di dalam pencabangan, maka hal ini yang disebut sebagai pencabangan bersarang atau nested branching. Mengapa bisa timbul hal seperti ini? Hal ini dimungkinkan apabila kita akan memeriksa beberapa kondisi atau syarat sehingga kita tidak hanya membutuhkan satu pencabangan melainkan banyak pencabangan untuk memeriksa kondisi yang […]

Continue reading about Pengenalan Pascal (Part 6)

contactwahyu on February 15th, 2011

Looping Bersarang Istilah looping bersarang akan dijumpai apabila kita menggunakan looping di dalam looping yang sudah ada. Maka looping yang ada di bagian dalam harus diselesaikan terlebih dahulu sebelum kembali ke looping yang ada di luarnya. Tidak hanya dapat membuat dua looping, kita bahkan dapat membuat tiga atau empat looping yang saling bersarang di dalam […]

Continue reading about Pengenalan Pascal (Part 5)