Bagi teman-teman yang ingin listing program-program tersebut bisa cemot di sini dan jangan lupa comenx............... Read More..

Part 1 : Program Data_Mahasiswa;

Uses WinCrt;
var
nama, alamat, mail: String;
nim, no_hp: Longint;
Begin
Write ('Masukkan Nama : '); Readln(nama);
Write ('Masukkan NIM : '); Readln(nim);
Write ('Masukkan Alamat : '); Readln(alamat);
Write ('Masukkan Nomer HP: 085'); Readln(no_hp);
Write ('Masukkan E-Mail : '); Readln(mail);

Clrscr;
Writeln ('>>> DATA MAHASISWA <<<');
Writeln (' Nama : ',nama);
Writeln (' NIM : ',nim);
Writeln (' Alamat : ',alamat);
Writeln (' Nomer HP : 085',no_hp);
Writeln (' E-Mail : ',mail);
end.

Hasil :

Read More..

Part 2 : Program Login;

uses wincrt;
Var
id, id2, pass, pass2: String;

Begin
Write ('User Name: '); Readln(id);
Write ('Password : '); Readln(pass);
Clrscr;

Repeat
Begin
Write ('Masukkan User Name: '); Readln(id2);
Write ('Masukkan Password : '); Readln(pass2);
Writeln;
Begin
If (id=id2) and (pass=pass2) Then
Writeln ('Selamat Anda Masuk')
Else
If (id=id2) and (pass<>pass2) Then
Writeln ('Maaf Password anda salah ')
Else
Writeln ('Anda Belum Terdaftar');
End;
Writeln;
End;
Until (id=id2) and (pass=pass2);
End.

Hasil :

Read More..

Part 3 : Program Wartel;

Uses wincrt;
Var
LA,SU,BA,JA :integer;
a,b,c,d,j,m,x,t :integer;
Begin
gotoxy (17,1); write ('************************************************');
gotoxy (17,2); write ('*** Program Menghitung Biaya Telpon Wartel ***');
gotoxy (17,3); write ('************************************************');
gotoxy (5,5); write ('Masukkan waktu memulai telepon {00.00} : '); readln (a);
gotoxy (51,5); write ('.');

gotoxy (52,5); write (''); readln (b);
gotoxy (5,6); write ('Masukkan waktu mengakhiri telepon {00.00} : '); readln (c);
gotoxy (51,6); write ('.');
gotoxy (52,6); write (''); readln (d);
gotoxy (5,7); writeln ('Pilih kota tujuan telepon anda : ');
gotoxy (5,8); writeln ('1. Lamongan');
gotoxy (5,9); writeln ('2. Surabaya');
gotoxy (5,10); writeln ('3. Bandung');
gotoxy (5,11); writeln ('4. Jakarta');
gotoxy (5,12); write ('Kota Tujuan anda adalah {masukkan nomor 1-4} : '); readln (x);
j:=((c-a)*60)+(d-b);
case x of
1:Begin
LA:=100;
t:=LA*j;
gotoxy (5,14); writeln ('Lama pembicaraan ',j,' menit');
gotoxy (5,15); writeln ('Tujuan Lamongan');
gotoxy (5,16); writeln ('Biaya yang harus di bayar adalah Rp. ',t);
End;
2:Begin
SU:=500;
t:=SU*j;
gotoxy (5,14); writeln ('Lama pembicaraan ',j,' menit');
gotoxy (5,15); writeln ('Tujuan Surabaya');
gotoxy (5,16); writeln ('Biaya yang harus di bayar adalah Rp. ',t);
End;
3:Begin
BA:=1000;
t:=BA*j;
gotoxy (5,14); writeln ('Lama pembicaraan ',j,' menit');
gotoxy (5,15); writeln ('Tujuan Bandung');
gotoxy (5,16); writeln ('Biaya yang harus di bayar adalah Rp. ',t);
End;
4:Begin
JA:=1200;
t:=JA*j;
gotoxy (5,14); writeln ('Lama pembicaraan ',j,' menit');
gotoxy (5,15); writeln ('Tujuan Surabaya');
gotoxy (5,16); writeln ('Biaya yang harus di bayar adalah Rp. ',t);
End;
end;
end.

Hasil :

Read More..

Part 4 : Program Jumlah_Hari;

uses wincrt;
Var
tahun, bulan:integer;
Begin
Write (' Masukkan Tahun='); readln(Tahun);
Write (' Masukkan Bulan='); readln(Bulan);
Clrscr;

If (Bulan=1) Or (Bulan=3) Or (Bulan=5) Or (Bulan=7) Or (Bulan=8) Or (Bulan=10) Or
(Bulan=12) Then
Writeln ('Pada tahun ',tahun,' bulan ',bulan,' ada 31 hari')
Else
If (Bulan=4) Or (Bulan=6) Or (Bulan=9) Or (Bulan=11) Then
Writeln ('Pada tahun ',tahun,' bulan ',bulan,' ada 30 hari')
Else
If (Bulan=2) And (Tahun Mod 4= 0) Then
Writeln ('Pada tahun ',tahun,' bulan ',bulan,' ada 29 hari')
Else
If (Bulan=2) Then
Writeln ('Pada tahun ',tahun,' bulan ',bulan,' ada 28 hari');
End.

Hasil :

Read More..

Part 5 : Program Soal_UTS_Semester2;

uses wincrt;
Var
Lagi: String;
y, x, x2, x3, x4: Integer;

Begin
Lagi:='y';
While (Lagi='y') Or (Lagi='Y') Do
Begin
Write ('Masukan nilai n?'); Readln (y);
Clrscr;

Writeln ('Tebel perpangkatan nilai x sebagai berikut:');
Writeln ('x':1, 'x^2':6, 'x^3':11, 'x^4':14);
Writeln ('------------------------------------');
Begin
For x:=1 To y Do
Begin
x2:=x*x;
x3:=x*x*x;
x4:=x*x*x*x;
If x=5 Then
Writeln ('Mahasiswa UNISLA Harus bisa, Tapi Inget g pake contoh :-)')
Else
Writeln (x:1, x2:6, x3:11, x4:16);
End;
Writeln ('------------------------------------');
Write ('Coba lagi (Tekan y untuk ulang)'); Readln (Lagi);
Writeln;
End;
End;
End.

Hasil :

Read More..

Part 6 : Program Tambahan_Nilai

uses wincrt;
Var
y, x: Integer;
m: Real;

Begin
writeln('celcius':2, 'fahrenheid':20);
writeln('==============================');
write('masukan nilai n='); readln(y);

Begin
For x:=0 to y do
begin
m:=(x*1.8)+32;
if x=3 then
writeln ('maaf tidak bisa tampil')
else if x=4 then
else
writeln (x:1, m:20:3);
end;
end;
end.

Hasil :

Read More..