Contoh Linked List Sederhana dengan Pascal

BY IN IB Computer Science, Turbo Pascal Comments Off on Contoh Linked List Sederhana dengan Pascal ,

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 …

Membuat Program Operasi Matriks

BY IN IB Computer Science, Turbo Pascal Comments Off on Membuat Program Operasi Matriks

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

Membuat Procedure Box

BY IN IB Computer Science, Turbo Pascal Comments Off on Membuat Procedure Box

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 …

Hanoi Tower using Pascal

BY IN IB Computer Science, Turbo Pascal Comments Off on Hanoi Tower using Pascal

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 …

Restaurant Simple Cash Program

BY IN IB Computer Science, Turbo Pascal Comments Off on Restaurant Simple Cash Program

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 …

Simple Cash Program with Pascal

BY IN IB Computer Science, Turbo Pascal Comments Off on Simple Cash Program with Pascal

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 …

Konversi Suhu dengan Menu Biasa

BY IN IB Computer Science, Turbo Pascal Comments Off on Konversi Suhu dengan Menu Biasa

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 …

Konversi Suhu dengan Menu Pulldown

BY IN IB Computer Science, Turbo Pascal Comments Off on Konversi Suhu dengan Menu Pulldown

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 …

Animasi Teks dengan Pascal

BY IN Turbo Pascal Comments Off on Animasi Teks dengan Pascal

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 …

Program Single Non Circular Linked List

BY IN Turbo Pascal Comments Off on Program Single Non Circular Linked List

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 …

Struktur Data: Linked List

BY IN Turbo Pascal Comments Off on Struktur Data: Linked List

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 …

Program Queue dengan Pascal

BY IN Turbo Pascal Comments Off on Program Queue dengan Pascal

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 …

Program Stack dengan Pascal

BY IN Turbo Pascal Comments Off on Program Stack dengan Pascal

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 …

Bubble Sort

BY IN Turbo Pascal Comments Off on Bubble Sort

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 …

Pengenalan Pascal (Part 10)

BY IN Turbo Pascal Comments Off on Pengenalan Pascal (Part 10)

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 …

Pengenalan Pascal (Part 9)

BY IN Turbo Pascal Comments Off on Pengenalan Pascal (Part 9)

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 …

Pengenalan Pascal (Part 8)

BY IN Turbo Pascal Comments Off on Pengenalan Pascal (Part 8)

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 …

Pengenalan Pascal (Part 7)

BY IN Turbo Pascal Comments Off on Pengenalan Pascal (Part 7)

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 …

Pengenalan Pascal (Part 6)

BY IN Turbo Pascal Comments Off on Pengenalan Pascal (Part 6)

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 …

Pengenalan Pascal (Part 5)

BY IN Turbo Pascal Comments Off on Pengenalan Pascal (Part 5)

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 …