Bagaimana Cara Membuat Program Animasi Teks Berjalan dengan Menggunakan Pascal

Selanjutnya, Pada artikel kali ini saya akan membahas tentang program untuk menampilkan teks bergerak dengan pascal (animasi sederhana),,
Program ini saya publikasikan ulang dari rekan saya sesama blogger. yaitu Cody Coding :D

Oke Gan, Langsung Sedot Ajah Scriptnya :D

Berikut ini Listing program :

uses crt;
var
i,j,p,q,x,y,z: integer;
procedure delay33;

begin
for x:=1 to 100 do
begin
for y:=1 to 30 do
begin
write(�);
end;
end;
end;

begin
for j:= 1 to 10 do
begin
for i := 1 to 40 do
begin
clrscr;
gotoxy(15,2);write(���������-�);
gotoxy(15,4);write(���������-�);
gotoxy(i,3);
writeln(�SELAMAT DATANG�);
gotoxy(1,3);
writeln(�             |�);
gotoxy(40,3);
writeln(�|             �);
delay33;
end;
end;

readln();
end.


* * *

Maka Tampilan Output Program Akan Seperti ini :

nah,, itu dia outputnya,, sebenarnya itu teks selamat datang nya yaa aslinya sich berjalan,, mungkin kalo ga jalan anda kurang senyum kali ya..hehee becanda..

kalo saya ga salah,, di pascal ada fungsi khusus untuk men-delay program sementara, tapi di program ini saya menggunakan looping yang banyak untuk memperlambat proses program supaya terlihat berjalan,, dan untuk melatih logika kita juga..

semoga bermanfaat, terimakasihh,, ^_^

Read More »

11.19 | 0 komentar

Cara Membuat Program Luas dan Keliling dengan Menggunakan Pascal

hmm,, postingan kali ini, saya share tugas pascal teman blogger saya dari dosennya yang dikasih tiap minggu sesuai dengan materinya,, jadi program ini sangat cocok buat anda yang baru belajar pascal, bisa pelajari program-program ini
Source By : Cody Coding

Nama program : Program Luas dan Keliling
Fungsi :
- Membuat berbagai rumus luas dan keliling bangun datar menggunakan program pascal.
- Menggunakan procedure/sub program pada pascal.

Listing Program :

uses crt ;
var pil : integer ;
Procedure lingkaran ;
var x,y,z : real ;
begin
writeln ( � ��� 1.lingkaran��� � ) ;
write ( �masukan jari-jari: � ) ;
readln (x) ;
y := 3.14 * x * x ;
z := 2 * x * 3.14 ;
writeln ( �luas lingkaran     = � , y : 9 : 2 ) ;
writeln ( �keliling lingkaran = � , z : 9 : 2 ) ;
end ;

Procedure persegi ;
var x,y,z : real ;
begin
writeln ( � ���2.persegi��� � ) ;
write ( �masukan sisi: � ) ;
readln (x) ;
y := x * x ;
z := x * 4 ;
writeln ( �luas persegi     = � , y : 9 : 2 ) ;
writeln ( �keliling persegi = � , z : 9 : 2 ) ;
end ;

Procedure persegi_panjang ;
var p,l,y,z : real ;
begin
writeln ( � ���3.persegi_panjang��� � ) ;
write ( �masukan panjang: � ) ;
readln (p) ;
write ( �masukan lebar: � ) ;
readln (l) ;
y := p * l ;
z := 2 * ( p + l ) ;
writeln ( � luas persegi panjang     =� , y : 9 : 2 ) ;
writeln ( �keliling persegi panjang =� , z : 9 : 2 ) ;
end ;

begin
clrscr ;
writeln ( �program luas dan keliling� ) ;
writeln () ;
writeln ( �1 = lingkaran� ) ;
writeln ( �2 = persegi� ) ;
writeln ( �3 = persegi panjang� ) ;
writeln () ;
write ( �masukan pilihan :� ) ;
readln (pil) ;
writeln () ;
if pil = 1 then lingkaran
else if pil = 2 then persegi
else if pil = 3 then persegi_panjang
else write ( �input salah� ) ;
readln
end.

* * *

Maka Nanti Output Tampilan Programnya seperti berikut :

tampilan awal program

tampilan jika input = 1

tampilan jika input = 2

tampilan jika input = 3

tampilan jika input Selain 1,2,3

Read More »

11.06 | 0 komentar

Cara Membuat Program Deret Fibbonancci dengan Menggunakan Pascal

Pada artikel kali ini saya kembali membuat program untuk menampilkan deret fibbonacci dengan menggunakan pascal. langsung aja kita liat listingnya :

uses crt;
var
x,y,z:integer;
fibo:array[1..100]of integer;
begin
clrscr;
write(�masukan banyak deret: �);
readln(x);
clrscr;
writeln(�deret fibonacci: �);
for y:=1 to x do
begin
if y<3 then
begin
fibo[y]:=1;
end
else
begin
fibo[y]:=fibo[y-1]+fibo[y-2];
end;
write(fibo[y],�  �);
end;
readln();
end.


* * *

Read More »

18.44 | 0 komentar

Cara Membuat Program Struktur Percabangan Array dengan Menggunakan Pascal

Postingan selanjutnya adalah,membuat program struktur percabangan array dengan menggunakan Pascal. digunakan untuk mengkonversi nilai yang diinput menjadi huruf dan menentukan apakah orang tersebut lulus atau tidak.
Source : Cody Coding

Nama program : Program Percabangan dan Array
Fungsi program : - Menggunakan statement percabangan pada pascal.
                             - Menggunakan array pada pascal dan menampilkan elemen array.

Listing program :

uses crt ;

var

a,b,c,d : Integer ;
nama    : array [1..5] of string ;
nilai   : array [1..5] of integer ;
predikat: array [1..5] of string ;
ket     : array [1..5] of string ;
begin
clrscr ;
for a := 1 to 5 do

begin
write ( � nama mahasiswa : � ) ;
readln ( nama[a] ) ;
write ( � nilai          : � ) ;
readln ( nilai[a] ) ;
if nilai[a] >= 90 then predikat[a] := �A� else
if nilai[a] >= 75 then predikat[a] := �B� else
if nilai[a] >= 50 then predikat[a] := �C� else
if nilai[a] >= 40 then predikat[a] := �D� else
predikat[a] := �E� ;
if nilai[a] >= 90 then ket[a] := �lulus� else
if nilai[a] >= 75 then ket[a] := �lulus� else
if nilai[a] >= 50 then ket[a] := �lulus� else
if nilai[a] >= 40 then ket[a] := �perbaikan� else
ket[a] := �tidak lulus� ;
writeln (�) ;
end ;

clrscr ;
writeln (�) ;
writeln ( �              DAFTAR NILAI SEMESTER 1            � ) ;
writeln ( �����������������-� ) ;
writeln ( �      nama        nilai    predikat      ket     � ) ;
writeln ( �����������������-� ) ;
for b := 1 to 5 do
writeln ( �     �+nama[b]+�        �,nilai[b],�        �+predikat[b]+�         �+ket[b]) ;
writeln ( �����������������-� ) ;
readln
end.


* * *

Maka Output Tampilannya adalah Sebagai Berikut :

tampilan program saat input data

tampilan program saat menampilkan data

Read More »

16.05 | 0 komentar

Cara Membuat Program Record data Siswa dengan Menggunakan Pascal

Pada Postingan Kali ini adalah Cara Membuat Program Record dengan Menggunakan Pascal.
Okehh.. Langsung Simak aja yaa sobat listing dan Outputnya ^_^

Source : Cody Coding
Nama program : Program record
Fungsi : Menggunakan record pada pemrograman pascal
Listing Programnya :


uses crt;
type mahasiswa = RECORD
NPM     : String;
Nama    : String;
Thnmasuk: Integer;
ket     : String;
end;

var
mhs : Array[1..50] of mahasiswa;
x,y,z:Integer;
begin
clrscr;
writeln(������������������);
writeln(�                  PROGRAM RECORD                �);
writeln(������������������);
write  (� banyak data mahasiswa yang akan dimasukkan: �);
readln (x);
writeln();
for y:=1 to x do
begin
with mhs[y] do
begin
write(� NPM mahasiswa   : �);
readln(NPM);
write(� Nama mahasiswa  : �);
readln(Nama);
write(� Tahun masuk     : �);
readln(Thnmasuk);
writeln();
end;
end;

clrscr;
writeln();
writeln(�                        DAFTAR NAMA MAHASISWA                        �);
writeln(������������������������-�);
writeln(�| NO |    NPM    |           NAMA           |  TAHUN MASUK |    KET  |�);
writeln(������������������������-�);
for y:=1 to x do
begin
gotoxy(1,y+5);write(�|�);
gotoxy(3,y+5);write(y);
with mhs[y] do
begin
gotoxy(6,y+5);write(�|�);
gotoxy(8,y+5);
write(NPM);
gotoxy(18,y+5);write(�|�);
gotoxy(20,y+5);
write(Nama);
gotoxy(45,y+5);write(�|�);
gotoxy(51,y+5);
write(Thnmasuk);
gotoxy(60,y+5);write(�|�);
z := 2010 � Thnmasuk;
if z>3 then ket := �senior� else
ket:=�junior�;
gotoxy(63,y+5);
write(ket);
gotoxy(70,y+5);write(�|�);
end;
end;
writeln();
writeln(������������������������-�);
readln;
end.

* * *
Maka Output dari Program nantinya akan Seperti ini :

Read More »

15.33 | 0 komentar

Cara Membuat Program Konversi Suhu dengan Menggunakan Pascal

Pada artikel ini saya akan membahas tentang program untuk menghitung atau mengkonversikan satuan suhu celcius ke satuan lainnya,, 
Pada program ini anda dapat memilih 3 pilihan yaitu konversi dari celsius ke kelvin, celsius ke fahrenheit, atau dari celcius ke reamur..

Listing programnya sebagai berikut :

uses crt;
var
cel, pil:integer;
hasil : real;
param: string;
begin
clrscr;
writeln(����������);
writeln(�KONVERSI SUHU�);
writeln(����������);
writeln(�1. celcius->kelvin�);
writeln(�2. celcius->fahrenheit�);
writeln(�3. celcius->reamur�);
writeln(����������);
write(�masukan pilihan: �);
readln(pil);
write(�masukan besar suhu dalam celcius: �) ;

readln(cel);
case pil of
1:
begin
hasil:= cel+273;
param:=�kelvin�;
end;

2:
begin
hasil:= cel*1.8+32;
param:=�fakrenheit�;
end;

3:
begin
hasil:= cel*0.8;
param:= �reamur�;
end;

else
writeln(�input salah..�);
end;
writeln(cel, � celcius = �,hasil:10:2, � �,param);
readln();
end.


* * *
Maka Outputnya Seperti ini :

* * *
demikian penjelasan programnya, logika program tinggal dikaliin aja, (saya lagi males jelasin logika), jari udah mulai kriting,,hahaaa.. :D  
#LOL.

semoga bermanfaat ya..
terima kasih ^_^ Sudah Berkunjung

Read More »

22.36 | 0 komentar

Cara Membuat Program Bintang Segitiga Sama Sisi dengan Menggunakan Pascal

Di artikel kali ini saya akan membahas bagaimana membuat program yang menampilkan bintang/asterik yang berbentuk segitiga sama sisi,,
Meskipun Saya Belum Pernah di Ajarkan Praktek Mengenai Program Pascal di Kampus saya (karna Memang tidak Ada Mata Kuliahnya),

Tapi Saya Akan Mencoba Berbagi saja Sekadar ilmu pengetahuan Buat Temen2 semua yg di Kampusnya ada Pelajaran Pemrograman Pascal.

ada dua macam output yang diharapkan:

output 1 :

ouput 2 :

nah,, bagusan mana yah kira � kira?? hehe..
tapi bukan bagus atau tidaknya yang akan saya bahas disini,, tetapi tingkat kesulitannya,,

kita mulai dari output yang pertama dulu,, kalau anda perhatikan,, jumlah bintang/asterik pada tiap barinya hanya bertambah 1,, baris pertama = 1 bintang, baris kedua=2 bintang, dst,, dan kalau diperhatikan dengan seksama,, cobalah hilangkan spasi yang ada diantara bintang � bintang tersebut(bukan spasi yang sebelum bintang).
hasilnya akan menjadi output bintang rata kanan (klao ga tau kaya gimana liat artikel program bintang rata kanan dengan java),, betul ga??

nah,, jadi untuk membuat output yang pertama tidaklah terlalu sulit,,listingnya sama dengan jika kita membuat program bintang rata kanan, kita cuma harus menambahkan spasi setelah mencetak bintang,, seperti ini listingnya :

uses crt;

var
x,y,z : integer;

begin
clrscr;
write (�masukan jumlah baris: �);
readln(x);
for y:=1 to x do
begin

for z:=1 to x-y do
begin
write(� �);
end;

for z:=1 to y do
begin
write(�* �);
end;

writeln();
end;
readln();
end.


* * *
selanjutnya,, kita bahas output kedua,, nah,, tingkat kesulitannya pada program ini lebih rumit karena bintangnya rapet2..(apa sehh??) haha,,
intinya, output kedua ini, jumlah bintang tiap barisnya selalu ganjil, baris pertama = 1 bintang, baris kedua = 3 bintang,dst dan berbentuk segitiga sama sisi.

langsung aja kita liat listingnya :

uses crt;
var
p,q,x,y,z:integer;
begin
clrscr;
write(�masukan jumlah baris: �);
readln(x);
for y:=1 to x do
begin
p:=y*2;
z:=1;
for q:=1 to x-y do
begin
write(� �);
end;
while(z < p) do
begin
write(�*�);
z:=z+1;
end;
writeln();
end;
readln();
end.


* * *
demikian bahasan programnya,, maaf klao jelasin logikanya agak ribet,, memang agak sulit kalo menjelaskan logika program, tapi akan lebih mengerti kalo mencoba sendiri..

Selamat Mencoba ^_^

Read More »

22.12 | 0 komentar