Berikut ini adalah contoh program pascal animasi stack (tumpukan) .
Program AnimasiStack;
Uses wincrt;
const
max = 10;
var
top,i : byte;
pil,tem,E : char;
stack : array [1..max] of char;
procedure pushanim;
begin
for i :=1 to 18 do
begin
gotoxy(23+i,7); write(tem);
{Delay(30);}
gotoxy(23,7); clreol;
end;
for i:=1 to 14-top do
begin
{delay(30);}
gotoxy(41,6+i); write(' ');
gotoxy(41,7+i); write(tem);
end;
end;
procedure popanim(tem:char);
begin
for i:=1 to 14-top do
begin
{delay(30);}
gotoxy(41,22-i-top); write(' ');
gotoxy(41,21-i-top); write(tem);
end;
for i:=1 to 19 do
begin
gotoxy(40+i,7); write(tem);
{delay(30);}
gotoxy(16,7); clreol;
end;
end;
procedure push(e:char);
begin
inc(top);
stack[top] :=e;
pushanim;
end;
procedure pop(e:char);
begin
if top<> 0 then
begin
E:=stack[top];popanim(e);
dec(top);
end else
begin
gotoxy(1,7); write('stack telah kosong');
readkey;
gotoxy(1,7); clreol;
end;
end;
begin
clrscr;
writeln('ANIMASI STACK');
writeln('1. PUSH');
writeln('2. POP');
writeln('3. QUIT');
writeln('Pilihan anda[1/2/3] = ');
gotoxy(49,6);write('\');
gotoxy(49,8);write('/');
gotoxy(37,10);write('\ /');
for i:=1 to 11 do
begin
gotoxy(38,10+i);
if i=11 then write('|_____|')else write
('| |');
end;
top := 0;
repeat
gotoxy(23,5);clreol;
pil := readkey;write(pil);
if pil ='1' then
begin
if top<> max then
begin
gotoxy(1,7);write('Masukkan satu Huruf = ');
tem := readkey;write(tem);
push(tem);
gotoxy(1,7);clreol;
end else
begin
gotoxy(1,7);write('Stack sudah penuh');readkey;
gotoxy(1,7);clreol;
end;
end else
if pil='2' then pop(tem);
until pil='3';
end.
Tags : Struktur Data, Animasi Stack , Stack, Tumpukan, pascal, program pascal, pascal stack
Tampilkan postingan dengan label Pascal. Tampilkan semua postingan
Tampilkan postingan dengan label Pascal. Tampilkan semua postingan
Jumat, 29 Juli 2011
Rabu, 27 Juli 2011
Pascal : Contoh program biodata
program biodata;
uses crt;
var
nama, alamat : string;
umur : integer;
begin
clrscr;
writeln('===========================================');
writeln(' Biodata');
writeln('===========================================');
write('Nama : '); readln(nama);
write('Umur : '); readln(umur);
write('Alamat : '); readln(alamat);
writeln('-------------------------------------------');
writeln('Jadi data Anda : ');
writeln('Anda bernama ',nama,'. Umur Anda ',umur,' tahun. Anda tinggal di ',alamat,'.');
writeln;
readkey;
end.
Tags: Pascal, program biodata
uses crt;
var
nama, alamat : string;
umur : integer;
begin
clrscr;
writeln('===========================================');
writeln(' Biodata');
writeln('===========================================');
write('Nama : '); readln(nama);
write('Umur : '); readln(umur);
write('Alamat : '); readln(alamat);
writeln('-------------------------------------------');
writeln('Jadi data Anda : ');
writeln('Anda bernama ',nama,'. Umur Anda ',umur,' tahun. Anda tinggal di ',alamat,'.');
writeln;
readkey;
end.
Tags: Pascal, program biodata
Pascal : Contoh program perhitungan gaji
Program Perhitungan_Gaji;
Uses crt;
Var nama:string[20];jabatan:string;
Gaji:longint;
Tunj,ppn,gajibersih:real;
Begin
Clrscr;
Write(‘Nama Karyawan : ‘); readln(nama);
Write(‘Masukkan Jabatan : ‘); readln(jabatan);
If (jabatan=’Direktur’) or (jabatan=’direktur’) then
Begin
Gaji:=3000000;
Tunj:=0.1* gaji;
End
Else If (jabatan=’Manager’) or (jabatan=’manager’) then
Begin
Gaji:=2000000;
Tunj:=0.05* gaji;
End
Else If (jabatan=’Karyawan’) or (jabatan=’karyawan’) then
Begin
Gaji:=1000000;
Tunj:=0.1* gaji;
End
Else
Begin
Gaji:=800000;
Tunj:=0.1* gaji;
End;
Writeln(‘Gaji Bersih : Rp.‘,gaji);
Writeln(‘Tunjangan Jabatan: Rp.‘,tunj:9:2);
Ppn:=0.1*gaji;
Writeln(‘PPN 10 % : Rp.‘,ppn:9:2);
Total:=(gaji+total)-ppn;
Writeln(‘Total Gaji : Rp.‘,total:9:2);
Readln;
End.Tags: Pascal, Perhitungan gaji, perhitungan pascal, gaji
Pascal : Contoh program laporan keuangan
program Laporan_Keuangan;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
pengeluaran=record
no,tgl,bln,thn:integer;
keterangan:String[25];
biaya:real;
end;
var
jml_eks, i : integer;
ekspense:array[1..1000] of pengeluaran;
procedure TampilanData;
begin
writeln(‘—————–Laporan Keuangan—————–’);
writeln(‘————————————————–’);
writeln(‘|No |Tanggal | Keterangan | Biaya |’);
writeln(‘————————————————–’);
for i:=1 to jml_eks do
begin
with ekspense do
writeln(‘|’,No:3,’|',tgl:2,’/',bln:2,’/',
thn:2,’|',keterangan:25,’|',biaya:10:2,’|');
end;
end;
procedure JumlahData(awal,akhir:integer);
var hasil:real;
begin
for i:=awal to akhir do
begin
hasil:=hasil+ekspense.biaya;
end;
writeln(‘Jumlah data dari ‘,awal,’s.d.’,akhir,
‘ = ‘, hasil:10:2);
end;
procedure inputdata(nomor:integer);
begin
with ekspense[nomor] do
begin
No:=nomor;
writeln(‘No. ‘, No);
write(‘Tanggal = ‘);readln(tgl);
write(‘Bulan = ‘);readln(bln);
write(‘Tahun = ‘);readln(thn);
write(‘Keterangan = ‘);readln(keterangan);
write(‘Biaya = ‘);readln(biaya);
end;
end;
begin
write(‘Berapa jumlah data? ‘);readln(jml_eks);
for i:=1 to jml_eks do
begin
inputdata(i);
end;
tampilandata;
jumlahdata(1,jml_eks);
readln;
end.
Tags : Contoh pascal, laporan keuangan
Senin, 25 Juli 2011
Pascal : Program menukarkan nilai
Program menukarkan nilai
Program Pertukaran;
uses wincrt;
var
a, b, temp : integer;
begin
write ('A : '); read (a);
write ('B : '); read (b);
temp := a;
a := b;
b := temp;
writeln;
write ('A : ' , a);
writeln;
write ('B : ' , b);
end.Tags: Pascal, Penukaran nilai,
Pascal : Contoh Program menghitung persegi panjang
Program Luas_Persegi_Panjang;
uses wincrt;
var
panjang, lebar, luas : real;
begin
write ('Masukkan panjang? '); readln (panjang);
write ('Masukkan lebar? ') ; readln (lebar);
luas := panjang*lebar;
writeln;
writeln ('Luas segiempat = ', luas:5:2, ' satuan luas');
end.Tags : Luas, Persegi panjang, luas persegi panjang, pascal, program pascal
Minggu, 24 Juli 2011
Pascal : Contoh program mencari bilangan genap
uses wincrt;
var genap : array[1..100] of integer;
a, b, jum : integer;
begin
a := 0;
b := 2;
write('Jumlah bilangan genap : ');readln(jum);
while a <> jum do begin
inc(a);
genap[a] := b;
b := b + 2;
end;
writeln;
writeln('Hasil yang disimpan di array : ');
for b := 1 to jum do
writeln('Bilangan genap ke-',b,' : ',genap[b]);
end. Tags : Pascal, Bilangan genap, program bilangan genap,mencari bilangan genap,
Pascal : Contoh program mencari bilangan prima
Dibawah ini adalah contoh program untukmencari bilangan prima 1 sampai 100 menggunakan array Program Bilangan_Prima_Array;
Uses Crt;
Var
Prima : Array[1..100] of Integer;
i,j : Integer;
bilangan : Integer;
Begin
ClrScr;
For i := 2 to 100 Do
Begin
Prima[i]:=i;
For j:= 2 to i-1 Do
Begin
bilangan := (i mod j);
If bilangan = 0 then Prima[i]:=0;
End;
If Prima[i] <> 0 Then Write(Prima[i],' ');
End;
Readln;
End. Tags : Pascal, program pascal, bilangan prima, prima, array, bilangan array prima,
Selasa, 19 Juli 2011
Contoh Program Pascal : Menghitung jumlah bilangan dan banyaknya data
Contoh program pascal untuk menghitung jumlah dari beberapa bilangan yang diinputkan beserta banyaknya data.
program JumlahRata2;
uses wincrt;
var
n, i,byk,jum, bil : integer;
begin
Write(‘Masukkan nilai perulangan : ‘);readln(n);
Writeln;
for i := 1 to n do
begin
write(‘Bilangan ‘,i,’ = ‘);read(bil);
if bil >= 10 then
begin
byk := byk+1;
jum := jum+bil ;
end;
end;
writeln;
writeln(‘banyak bilangan yang >= 10 : ‘,byk);
writeln(‘jumlah bilangan yang >= 10 : ‘,jum);
end.
Tags: jumlah, pascal
program JumlahRata2;
uses wincrt;
var
n, i,byk,jum, bil : integer;
begin
Write(‘Masukkan nilai perulangan : ‘);readln(n);
Writeln;
for i := 1 to n do
begin
write(‘Bilangan ‘,i,’ = ‘);read(bil);
if bil >= 10 then
begin
byk := byk+1;
jum := jum+bil ;
end;
end;
writeln;
writeln(‘banyak bilangan yang >= 10 : ‘,byk);
writeln(‘jumlah bilangan yang >= 10 : ‘,jum);
end.
Tags: jumlah, pascal
Contoh Program Pascal : Menghitung jumlah beberapa bilangan - dinamis (Perulangan For)
Program dibawah ini adalah contoh program untuk menghitung beberapa bilangan yang dimasukkan. Banyaknya bilangan dapat berubah-ubah sesuai inputan.
program jum_bil2;
uses wincrt;
var
i, n: integer;
jum, bil: real;
begin
write(‘Banyak bilangan yang akan dihitung: ’);read(n);
jum := 0;
For i:= 1 to n do
begin
write(‘Masukkan Bilangan ‘,i, ‘=’);read(bil);
jum := jum+bil;
end;
writeln(‘Jum = ‘,jum:0:2);
end.
Tags : Perulangan for, Program penjumlahan perulangan for, Dinamis
program jum_bil2;
uses wincrt;
var
i, n: integer;
jum, bil: real;
begin
write(‘Banyak bilangan yang akan dihitung: ’);read(n);
jum := 0;
For i:= 1 to n do
begin
write(‘Masukkan Bilangan ‘,i, ‘=’);read(bil);
jum := jum+bil;
end;
writeln(‘Jum = ‘,jum:0:2);
end.
Tags : Perulangan for, Program penjumlahan perulangan for, Dinamis
Contoh Program Pascal : Menghitung Luas dan keliling Persegi
Berikut ini adalah contoh program sederhana untuk menghitung luas dan keliling sebuah persegi dengan inputan sisi persegi.
program persegi;
uses
crt;
var
sisi : integer;
keliling, luas : real;
begin
clrscr;
write('Masukkan sisi persegi: ');
readln(sisi);
keliling := 4 * sisi;
luas := sisi * sisi;
writeln;
writeln('keliling persegi = ', keliling:0:2);
writeln('luas persegi = ', luas:0:2);
readln;
end.
Tags: Pascal, Luas keliling persegi, program pascal
program persegi;
uses
crt;
var
sisi : integer;
keliling, luas : real;
begin
clrscr;
write('Masukkan sisi persegi: ');
readln(sisi);
keliling := 4 * sisi;
luas := sisi * sisi;
writeln;
writeln('keliling persegi = ', keliling:0:2);
writeln('luas persegi = ', luas:0:2);
readln;
end.
Tags: Pascal, Luas keliling persegi, program pascal
Senin, 18 Juli 2011
Contoh Program Pascal : Menghitung jumlah dari 5 bilangan (for )
Ini adalah program sederhana dengan perulangan for untuk menghitung jumlah dari 5 bilangan yang dimasukkan.
program jumlah_bilangan;
uses wincrt;
var
i, jum,bil: integer;
begin
jum:=0; {inisialisasi}
for i:=1 to 5 do
begin
write(‘Masukkan Bilangan = ‘);readln(bil);
jum:=jum+bil;
end;
writeln(‘Jumlah Bilangan = ‘,jum);
end.
Tags : Pascal, Contoh program pascal, perulangan for, penjumlahan 5 bilangan.
program jumlah_bilangan;
uses wincrt;
var
i, jum,bil: integer;
begin
jum:=0; {inisialisasi}
for i:=1 to 5 do
begin
write(‘Masukkan Bilangan = ‘);readln(bil);
jum:=jum+bil;
end;
writeln(‘Jumlah Bilangan = ‘,jum);
end.
Tags : Pascal, Contoh program pascal, perulangan for, penjumlahan 5 bilangan.
Contoh Program Pascal : Menghitung perkalian dan penjumlahan dua bilangan
Di bawah ini adalah contoh perogram pascal untuk menghitung 2 bilangan, yaitu perkalian dan penjumlahan.
program MenghitungPerkalianPenjumlahanDuaBuahBilangan;
uses
crt;
var
x,y : real;
kali,tambah : real;
begin
clrscr;
write('Masukkan Bilangan ke 1= ');
readln(x);
write('Masukkan Bilangan ke 2= ');
readln(y);
kali := x * y;
tambah := x + y;
writeln;
writeln('Hasil Perkalian 2 bilangan : ', x:0:0, '*', y:0:0, '= ', kali:0:0);
writeln('Hasil Penambahan 2 bilangan : ', x:0:0, '+', y:0:0, '= ', tambah:0:0);
readln;
end.
Tags : Pascal, Contoh program pascal, penjumlahan 2 bilangan, perkalian 2 bilangan,
program MenghitungPerkalianPenjumlahanDuaBuahBilangan;
uses
crt;
var
x,y : real;
kali,tambah : real;
begin
clrscr;
write('Masukkan Bilangan ke 1= ');
readln(x);
write('Masukkan Bilangan ke 2= ');
readln(y);
kali := x * y;
tambah := x + y;
writeln;
writeln('Hasil Perkalian 2 bilangan : ', x:0:0, '*', y:0:0, '= ', kali:0:0);
writeln('Hasil Penambahan 2 bilangan : ', x:0:0, '+', y:0:0, '= ', tambah:0:0);
readln;
end.
Tags : Pascal, Contoh program pascal, penjumlahan 2 bilangan, perkalian 2 bilangan,
Langganan:
Komentar (Atom)