Program SIM dalam Pascal

Berikut contoh program menampilkan tampilan SIM dengan menggunakan Record dalam Pascal

program sim;
uses crt;
type A = record
nama :string[25];
jnisklm :string[10];
dkh :string[15];
ds :string[15];
rt :byte;
rw :byte;
kec :string[15];
kta :string[15];
tmpt :string[25];
tgl :1..31;
bln :1..12;
thn :integer;
tinggi :byte;
peker :string[15];
no :string[15];
kbp :string[15];
prov :string[10];
end;
var dt : A;
p,q,r : integer;
G,H : string;
i,j : integer;

begin
clrscr;
G :=('---------------');
H :=('| |');
writeln(' Program SIM C ');
writeln(G,G,G);
writeln(' Masukkan Data Diri Anda(Isikan dengan HURUF KAPITAL) ');
writeln;
write('Nama : '); readln(dt.nama);
write('Jenis Kelamin(Pria/Wanita): '); readln(dt.jnisklm);
writeln('Alamat');
write(' Dukuh : '); readln(dt.dkh);
write(' Desa : '); readln(dt.ds);
write(' RT : '); readln(dt.rt);
write(' RW : '); readln(dt.rw);
write(' Kecamatan : '); readln(dt.kec);
write(' Kabupaten/Kota : '); readln(dt.kta);
write('Tempat Lahir : '); readln(dt.tmpt);
write('Tanggal Lahir : '); readln(dt.tgl);
write('Bulan Lahir(angka) : '); readln(dt.bln);
write('Tahun Lahir : '); readln(dt.thn);
write('Tinggi : '); readln(dt.tinggi);
write('Pekerjaan : '); readln(dt.peker);
write('No. SIM : '); readln(dt.no);
writeln(G,G,G);
writeln('Isikan Waktu dan Tempat anda membuat SIM');
write('Kabupaten : '); readln(dt.kbp);
write('Provinsi(singkatan) : '); readln(dt.prov);
write('Tanggal : '); readln(p);
write('Bulan(angka) : '); readln(q);
write('Tahun : '); readln(r);

clrscr;
if r >= (dt.thn+17) then
begin
writeln(G,G,G,G);
for i:=2 to 6 do
begin
write(H);
gotoxy(46,i);
writeln(H);
end;
gotoxy(1,7); writeln(G,G,G,G);
gotoxy(1,10); writeln(G);
gotoxy(6,4); write('LOGO');
gotoxy(24,2); write('KEPOLISIAN NEGARA');
gotoxy(23,3); write('REPUBLIK INDONESIA');
gotoxy(54,3); write('C');
gotoxy(52,6); write(dt.prov);
gotoxy(17,4); write(G,G);
gotoxy(23,5); write('SURAT IZIN MENGEMUDI');
gotoxy(23,6); writeln('( Driving License )');
writeln;
write('Nama : ',dt.nama);
gotoxy(52,8); write(' ',dt.jnisklm);
gotoxy(9,9); write('Alamat : '); writeln(dt.dkh,' ','RT ',dt.rt,'/',dt.rw,' ',dt.ds);
gotoxy(18,10);write(dt.kec);
gotoxy(18,11);write(dt.kta);
gotoxy(18,12);write('Tempat & : ',dt.tmpt);
gotoxy(18,13);write('Tgl.Lahir : ',dt.tgl,'-',dt.bln,'-',dt.thn);
gotoxy(18,14);write('Tinggi : ',dt.tinggi,'cm');
gotoxy(18,15);write('Pekerjaan : ',dt.peker);
gotoxy(18,16);write('No. SIM : ',dt.no);
gotoxy(18,17);write('Berlaku s/d: ',dt.tgl,'-',dt.bln,'-',r+5);
gotoxy(20,18);write(dt.kbp,',',p,'-',q,'-',r);
gotoxy(20,19);write('KAPOLRES');
gotoxy(26,21);write('TTD');
gotoxy(20,23);write('Drs. PUTRA ANGKASA, M.H');
gotoxy(20,24);write(G,G);
gotoxy(20,25);write(' AKBP NRP.567891234 ');
for j:=11 to 22 do
begin
gotoxy(1,j); writeln(H);
end;
gotoxy(6,16); write('Photo');
gotoxy(6,17); write('Anda');
gotoxy(1,22); writeln(G);
end
else
begin
write('***** MAAF UMUR ANDA TIDAK MENCUKUPI UNTUK MEMBUAT SIM C *****');
write(' SILAHKAN MENUNGGU BEBERAPA TAHUN LAGI ^_^ ');
end;
readln;
end.

PROGRAM MENCARI AKAR-AKAR PERSAMAAN KUADRAT DALAM JAVA

Practics make perfect (bener ga tulisannya). Tiga kata itu selalu diucapkan oleh bu Titin,dosen mata kuliah Pemrograman komputer di semester 2 ini. Nggak salah,malah kata-kata itu bener banget,dalam kuliah pemrograman komputer kalo kita mau mahir membuat dan menggunakan program diharuskan sesering mungkin mencoba terjun langsung membuat programnya. Dan diperbanyak latihan.

Ini salah satu program yang berhasil saya buat dan merupakan Ujian take home pada mata kuliah Pemkom. Semoga bisa menjadi referensi untuk anda dan semoga bermanfaat ^_^

PROGRAM MENCARI AKAR-AKAR PERSAMAAN KUADRAT

DALAM JAVA

import javax.swing.*;

public class akarpersamaan
{
public static void main(String[]args)
{
int a,b,c;
double D,x1,x2;
JOptionPane.showInputDialog("Program mencari akar-akar persamaan kuadrat dari sebuah persamaan kuadrat");
JOptionPane.showInputDialog("Rumus umum persamaan kuadrat : ax^2 + bx + c ");
String i = JOptionPane.showInputDialog("Masukkan Nilai a: ");
System.out.println("Nilai a : "+i);
a = Integer.parseInt(i);
String j = JOptionPane.showInputDialog("Masukkan Nilai b: ");
System.out.println("Nilai b : "+j);
b = Integer.parseInt(j);
String k = JOptionPane.showInputDialog("Masukkan Nilai c: ");
System.out.println("Nilai c : "+k);
c = Integer.parseInt(k);
D =(b*b) - (4*a*c);
if (D<0)
{
System.out.println("Akar-akar persamaan kuadrat tersebut adalah Imajiner");
}
else if (D==0)
{
x1 = -b/2*a;
System.out.println("Akar-akar persamaan kuadrat tersebut adalah x1 = x2= "+ x1);
}
else
{
x1 = (-b + Math.sqrt(D))/2*a;
x2 = (-b - Math.sqrt(D))/2*a;
System.out.println("Akar-akar persamaan kuadrat tersebut adalah ");
System.out.println(" x1 = "+x1);
System.out.println(" x2 = "+x2);
}
System.exit(0);
}
}