turbo pascal, pemogramn data peminjaman buku

program peminjaman_buku;
uses crt;
var
nama_peminjam, judul_buku, no_buku, lama_peminjaman:string;
nama : string;

begin
clrscr;
write(‘masukkan nama peminjam’);
readln(nama_peminjam);
write(‘masukkan judul buku’);
readln(judul_buku);
write(‘masukkan no buku’);
readln(no_buku);
if judul_buku =’sejarah’then
lama_peminjaman:=’5 hari’;
writeln(‘lama peminjaman’,lama_peminjaman);
readln;
end.

program turbo pascal
pemograman data peminjaman buku
CP RAUDHATUL RIZA

Iklan

turbo pascal, pemograman penerimaan mahasiswa baru

uses crt;
type siswa=record
nama,alamat,asal,alasal,ttl:string;
jurusan:1..5;
prestasi:1..3;
nem:real;
end;
larik_baru=array[1..17] of siswa;

var sisba,copy:larik_baru;
i,j,x,n,acak:byte;
pil:1..9;

procedure daftar(var a:larik_baru);
var lagi:char;
begin
repeat
begin
inc(n);
writeln(‘No Pendaftaran ke ‘,n);
writeln;
write(‘Nama : ‘);readln(a[n].nama);
write(‘Tempat Tanggal Lahir : ‘);readln(a[n].ttl);
write(‘Alamat : ‘);readln(a[n].alamat);
write(‘Asal Sekolah : ‘);readln(a[n].asal);
write(‘Alamat Sekolah : ‘);readln(a[n].alasal);;
write(‘Jumlah NEM : ‘);readln(a[n].nem);
writeln;
writeln(‘Prestasi yang pernah diraih (0:Tidak, 1:Tingkat Kabupaten, 2:Tingkat Nasional, 3:Tingkat Internasional)’);
writeln(‘Hanya boleh melampirkan 1 prestasi’);
write(‘Prestasi Anda? ‘);readln(a[n].prestasi);
writeln;
writeln(‘Pilihan Jurusan:’);
writeln(‘ 1. Teknik Jaringan (TKJ)’);
writeln(‘ 2. Multimedia (MM)’);
writeln(‘ 3. Akuntansi (AK)’);
writeln(‘ 4. Administrasi Perkantoran (AP)’);
writeln(‘ 5. Pemasaran (PM)’);
write(‘Pilihan Jurusan (1/2/3/4/5) : ‘);readln(a[n].jurusan);
writeln;
write(‘Daftar Selanjutnya (y/t)? ‘);readln(lagi);
writeln;
end
until (lagi<>’y’);
end;

procedure cetak(var a:larik_baru);
var jur:string;
pres,jumlah,e,b,c,d:real;

begin
clrscr;
writeln(‘ Data Pendaftar Siswa Baru SMKN 1 Bireuen ‘);
writeln(‘ Tahun Ajaran 2018/2019 ‘);
writeln(‘_______________________________________________________________________________’);
writeln(‘| No | Nama | Asal Sekolah | Jurusan | NEM |Prestasi| Total Nilai |’);
writeln(‘|—-|———–|——————-|———|——-|——–|————-|’);
for i:=1 to n do
begin
e:=0.25;
b:=0.50;
c:=1.00;
d:=0;
with a[i] do
begin
if (a[i].jurusan= 1) then jur:=’TKJ’ else
if (a[i].jurusan= 2) then jur:=’MM’ else
if (a[i].jurusan= 3) then jur:=’AK’ else
if (a[i].jurusan= 4) then jur:=’AP’ else
jur:=’PM’;
if (a[i].prestasi=1) then begin pres:=0.25;jumlah:=a[i].nem+e;end else
if (a[i].prestasi=2) then begin pres:=0.50;jumlah:=a[i].nem+b;end else
if (a[i].prestasi=3) then begin pres:=1.00;jumlah:=a[i].nem+c;end else
begin pres:=0.00;jumlah:=a[i].nem+d;end;
writeln(‘|’,i:3,’ |’,nama:10,’ | ‘,asal:15,’ | ‘,jur:3,’ | ‘,nem:2:2,’ | ‘,pres:2:2,’ | ‘,jumlah:2:2,’ |’);
end;
end;
writeln(‘|____|___________|___________________|_________|_______|________|_____________|’);
end;

procedure cari(var a:larik_baru);
var search,jur:string;
pres,e,b,c,d,jumlah:real;
tempat:byte;
begin
clrscr;
acak:=0;
write(‘Siapa yang Anda cari? ‘);readln(search);
for i:=1 to n do
begin
if (a[i].nama=search) then
begin
tempat:=i;
inc(acak);
writeln(acak,’ ‘,search,’ ada di nomor pendaftaran ‘,tempat,’ dengan data sebagai berikut.’);
writeln(‘Nama : ‘,a[tempat].nama);
writeln(‘Tempat Tanggal Lahir : ‘,a[tempat].ttl);
writeln(‘Alamat : ‘,a[tempat].alamat);
writeln(‘Asal Sekolah : ‘,a[tempat].asal);
writeln(‘Alamat Sekolah : ‘,a[tempat].alasal);
writeln(‘Jumlah NEM : ‘,a[tempat].nem:2:2);
writeln;
end;
end;
if (acak=0) then writeln(‘nama ‘,search,’ tidak ada di dalam daftar’);
end;

procedure fil_jur(var a:larik_baru);
var lagi:char;
acak:byte;
jur:string;
pres,e,b,c,d,jumlah:real;
begin
repeat
begin
e:=0.25;
b:=0.50;
c:=1.00;
d:=0;
with a[i] do
begin
if (a[i].jurusan= 1) then jur:=’TKJ’ else
if (a[i].jurusan= 2) then jur:=’MM’ else
if (a[i].jurusan= 3) then jur:=’AK’ else
if (a[i].jurusan= 4) then jur:=’AP’ else
jur:=’PM’;
if (a[i].prestasi=1) then begin pres:=0.25;jumlah:=a[i].nem+e;end else
if (a[i].prestasi=2) then begin pres:=0.50;jumlah:=a[i].nem+b;end else
if (a[i].prestasi=3) then begin pres:=1.00;jumlah:=a[i].nem+c;end else
begin pres:=0.00;jumlah:=a[i].nem+d;end;
end;
begin
for i:=1 to n do
clrscr;
writeln(‘Daftar Jurusan’);
writeln(‘1. Teknik Komputer Jaringan’);
writeln(‘2. Multimedia’);
writeln(‘3. Akuntansi’);
writeln(‘4. Administrasi Perkantoran’);
writeln(‘5. Pemasaran’);
writeln;
write(‘Masukkan Pilihan Anda 1/2/3/4/5 : ‘);readln(pil);
case pil of
1: begin
acak:=0;
writeln;
writeln(‘Data pendaftar pada jurusan Teknik Komputer Jaringan’);
writeln(‘____________________________________________________________’);
writeln(‘| No | No Daftar | Nama | Asal Sekolah | NEM |’);
writeln(‘|—-|———–|————–|——————|——-|’);
for i:=1 to n do
begin
if (a[i].jurusan=1) then
begin
inc(acak);
writeln(‘|’,acak:3,’ |’,i:10,’ |’,a[i].nama:12,’ | ‘,a[i].asal:15,’ | ‘,a[i].nem:2:2,’ |’);
end;
end;
writeln(‘|____|___________|______________|__________________|_______|’);
end;
2: begin
acak:=0;
writeln;
writeln(‘Data pendaftar pada jurusan Multimedia’);
writeln(‘____________________________________________________________’);
writeln(‘| No | No Daftar | Nama | Asal Sekolah | NEM |’);
writeln(‘|—-|———–|————–|——————|——-|’);
for i:=1 to n do
begin
if (a[i].jurusan=2) then
begin
inc(acak);
writeln(‘|’,acak:3,’ |’,i:10,’ |’,a[i].nama:12,’ | ‘,a[i].asal:15,’ | ‘,a[i].nem:2:2,’ |’);
end;
end;
writeln(‘|____|___________|______________|__________________|_______|’);
end;
3: begin
acak:=0;
writeln;
writeln(‘Data pendaftar pada jurusan Akuntansi’);
writeln(‘____________________________________________________________’);
writeln(‘| No | No Daftar | Nama | Asal Sekolah | NEM |’);
writeln(‘|—-|———–|————–|——————|——-|’);
for i:=1 to n do
begin
if (a[i].jurusan=3) then
begin
inc(acak);
writeln(‘|’,acak:3,’ |’,i:10,’ |’,a[i].nama:12,’ | ‘,a[i].asal:15,’ | ‘,a[i].nem:2:2,’ |’);
end;
end;
writeln(‘|____|___________|______________|__________________|_______|’);
end;
4: begin
acak:=0;
writeln;
writeln(‘Data pendaftar pada jurusan Administrasi Perkantoran’);
writeln(‘____________________________________________________________’);
writeln(‘| No | No Daftar | Nama | Asal Sekolah | NEM |’);
writeln(‘|—-|———–|————–|——————|——-|’);
for i:=1 to n do
begin
if (a[i].jurusan=4) then
begin
inc(acak);
writeln(‘|’,acak:3,’ |’,i:10,’ |’,a[i].nama:12,’ | ‘,a[i].asal:15,’ | ‘,a[i].nem:2:2,’ |’);
end;
end;
writeln(‘|____|___________|______________|__________________|_______|’);
end;
5: begin
acak:=0;
writeln;
writeln(‘Data pendaftar pada jurusan Pemasaran’);
writeln(‘____________________________________________________________’);
writeln(‘| No | No Daftar | Nama | Asal Sekolah | NEM |’);
writeln(‘|—-|———–|————–|——————|——-|’);
for i:=1 to n do
begin
if (a[i].jurusan=5) then
begin
inc(acak);
writeln(‘|’,acak:3,’ |’,i:10,’ |’,a[i].nama:12,’ | ‘,a[i].asal:15,’ | ‘,a[i].nem:2:2,’ |’);
end;
end;
writeln(‘|____|___________|______________|__________________|_______|’);
writeln;
end;
end;
write(‘Mau Filter lagi <y/t> ? ‘);readln(lagi);
end;
end;
until (lagi<>’y’);
end;

procedure sortir_nama(var a:larik_baru);
var backup:siswa;
begin
for i:=1 to n do copy[i]:=a[i];
for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
if (copy[i].nama>copy[j].nama) then
begin
backup:=copy[i];
copy[i]:=copy[j];
copy[j]:=backup;
end;
end;
end;
writeln(‘Data Pendaftar sesuai nama’);
writeln;
cetak(copy);
end;

procedure sortir_nem(var a:larik_baru);
var backup:siswa;
jumlah:real;
begin
for i:=1 to n do copy[i]:=a[i];
for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
if (copy[i].nem<copy[j].nem) then
begin
backup:=copy[i];
copy[i]:=copy[j];
copy[j]:=backup;
end;
end;
end;
writeln(‘Data Pendaftar sesuai jumlah NEM’);
writeln;
cetak(copy);
end;

procedure edit(var a:larik_baru);
var ganti:byte;
begin
write(‘Data yang akan diedit: ‘);readln(ganti);
writeln(‘Mengedit data ke ‘,ganti);
writeln;
write(‘Nama : ‘);readln(a[ganti].nama);
write(‘Tempat Tanggal Lahir : ‘);readln(a[ganti].ttl);
write(‘Alamat : ‘);readln(a[ganti].alamat);
write(‘Asal Sekolah : ‘);readln(a[ganti].asal);;
write(‘Alamat Sekolah : ‘);readln(a[ganti].alasal);
write(‘Jumlah NEM : ‘);readln(a[ganti].nem);
writeln;
writeln(‘Prestasi yang pernah diraih (0:Tidak, 1:Tingkat Kabupaten, 2:Tingkat Nasional, 3:Tingkat Internasional)’);
writeln(‘Hanya boleh melampirkan 1 prestasi’);
write(‘Prestasi Anda? ‘);readln(a[ganti].prestasi);
writeln(‘Pilihan Jurusan:’);
writeln(‘ 1. Teknik Jaringan (TKJ)’);
writeln(‘ 2. Multimedia (MM)’);
writeln(‘ 3. Akuntansi (AK)’);
writeln(‘ 4. Administrasi Perkantoran (AP’);
writeln(‘ 5. Pemasaran (PM)’);
write(‘Pilihan Jurusan (1/2/3/4/5) : ‘);readln(a[ganti].jurusan);
writeln;
writeln(‘Pendaftar ke ‘,ganti,’ sudah di edit’);
end;

procedure hapus(var a:larik_baru);
var hilang:byte;
begin
write(‘Data yang akan dihapus: ‘);readln(hilang);
for i:=hilang to n-1 do a[i]:=a[i+1];
dec(n);
writeln(‘Pendaftar ke ‘,hilang,’ sudah di hapus’);
end;

begin
repeat
begin
clrscr;
writeln(‘ ..::SELAMAT DATANG DI SMKN 1 Bireuen::..’);
writeln(‘ Penerimaan Siswa Baru Tahun Ajaran 2018/2019’);
writeln(‘_____________________________________________________’);
writeln;
writeln(‘1. Daftar’);
writeln(‘2. Tabel Pendaftar’);
writeln(‘3. Cari Nama Pendaftar’);
writeln(‘4. Daftar Perjurusan’);
writeln(‘5. Sortir Nama Pendaftar’);
writeln(‘6. Sortir Jumlah NEM’);
writeln(‘7. Edit Data’);
writeln(‘8. Hapus Data’);
writeln(‘9. Selesai’);
write(‘pilihan anda? ‘);readln(pil);
clrscr;
case pil of
1: daftar(sisba);
2: cetak(sisba);
3: cari(sisba);
4: fil_jur(sisba);
5: sortir_nama(sisba);
6: sortir_nem(sisba);
7: edit(sisba);
8: hapus(sisba);
9: begin
writeln;
writeln(‘ ..::Terima Kasih::.. ‘);
writeln(‘ Telah mendaftar di SMK N 1 Bireuen’);
writeln(‘..Silahkan tunggu info selanjutnya..’);
end;
end;
readln;
end;
until (pil=9);

end.

program turbo pascal
pemograman penerimaan mahasiswa baru
pemograman terlengkap
cp FAIZAH HUMAIRA

turbo pascal, pemograman kredit motor

program kredit_moetor;
uses crt;
var harmor,harmor2,lama,hasil,bunga, kredit,DP : real;
a : char;

begin
repeat
clrscr;
writeln(‘ Selamat Datang di UD. Berjaya Honda Motor’);
writeln(‘ Jln. Medan – Banda Aceh, Matangglumpang Dua’);

writeln(‘—————————————————————‘);
write(‘Masukkan Harga Motor = Rp ‘); readln(harmor);
write(‘DP yang Ingin Anda Berikan = Rp ‘); readln(DP);
writeln(‘Pilihan lama kredit yaitu: 12 bulan (bunga 10%)’);
writeln(‘ 24 bulan (bunga 20%)’);
writeln(‘ 36 bulan (bunga 30%)’);
write(‘Lama pengkreditan Motor : ‘);read(lama);
if (lama=12)then
begin
bunga:=harmor*10/100;
hasil:=harmor+bunga;
harmor2:=hasil-DP;
kredit:=harmor2/12;
end
else if (lama=24)then
begin
bunga:=harmor*20/100;
hasil:=harmor+bunga;
harmor2:=hasil-DP;
kredit:=harmor2/24;;
end
else
begin
bunga:=harmor*30/100;
hasil:=harmor+bunga;
harmor2:=hasil-DP;
kredit:=harmor2/36;;
end;
writeln(‘==============================================================’);
writeln(‘Cicilan Motor Perbulan Yang Harus Anda Bayar = Rp ‘,kredit:0:2);
writeln(‘Dengan DP = Rp’,DP:0:2);
readln;
writeln(‘Harga Motor Sudah Termasuk Bunga = Rp ‘,hasil:0:2);
readln;

write(‘Apakah Anda ingin kredit motor lagi? (y/t)= ‘);readln(a);
until (a’y’);
if a’y’ then
writeln (‘Terima Kasih Atas Kunjungan Anda’);
end.

pemograman turbo pascal
pemograman keredit motor
cp HANIS SIDDIQ

turbo pascal, program cicilan smartphone, terlengkap

program cicilan_smartphone;
uses crt;
var panjar,harga,harga1,harga2,cicilan:real;
lama_bulan,n:integer;
nama,alamat:string;
pilih:1..11;
label lagi;

begin
lagi:
writeln(‘ TOKO MIZAN PONSEL ‘);
writeln(‘Jln. Medan – B.aceh Matangglumpang Dua, Bireuen Hp.0823-7040-8666’);
writeln(‘=====================================================’);

write(‘Nama : ‘);readln(nama);
write(‘Alamat : ‘);readln(alamat);
writeln;
writeln(‘1. Xiomi Redmi 5 Ram 2/16 GB Rp 1.450.000’);
writeln(‘2. Xiomi Redmi 5 Ram 3/32 GB Rp 2.350.000’);
writeln(‘3. Xiomi Redmi 5A Ram 2/16 GB Rp 1.300.000’);
writeln(‘4. Xiomi Redmi 5A Ram 3/32 GB Rp 1.700.000’);
writeln(‘5. Iphone X Rp 10.200.000’);
writeln(‘6. Oppo F7 Rp 4.200.000’);
writeln(‘7. Vivo V9 Rp 4.400.000’);
writeln(‘8. Luna Rp 2.500.000’);
writeln(‘9. Oppo V7 Rp 3.800.000′);
writeln(’10. Iphone 7 Rp 4.200.000′);
writeln(’11. Tidak Memilih’);
write(‘SmartPhone Yang Anda Inginkan: ‘);readln(pilih);
case pilih of
1:begin
writeln(‘=====================================================’);
write(‘Masukkan panjar yang Anda inginkan min 500000: ‘);read(panjar);
writeln(‘=====================================================’);
if panjar>=500000 then
begin
writeln(‘Pilihan lama kredit yaitu: 12 bulan (bunga 5%)’);
writeln(‘ 24 bulan (bunga 10%)’);
writeln(‘ 36 bulan (bunga 15%)’);
write(‘Masukkan lama cicilan Smartphone Anda : ‘);read(lama_bulan);
writeln(‘=====================================================’);
if lama_bulan=12 then
begin
harga:=1450000*5/100;
harga:=1450000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan Panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2);
end
else if lama_bulan=24 then
begin
harga:=1450000*10/100;
harga:=1450000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2)
end
else
begin
harga:=1450000*15/100;
harga:=1450000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2)
end;
end
else
writeln(‘Maaf Anda tidak dapat melakukan transaksi’);
end;

2: begin
writeln(‘=====================================================’);
write(‘Masukkan panjar yang Anda inginkan min 500000: ‘);read(panjar);
writeln(‘=====================================================’);
if panjar>=500000 then
begin
writeln(‘Pilihan lama kredit yaitu: 12 bulan (bunga 5%)’);
writeln(‘ 24 bulan (bunga 10%)’);
writeln(‘ 36 bulan (bunga 15%)’);
write(‘Masukkan lama cicilan Smartphone Anda : ‘);read(lama_bulan);
writeln(‘=====================================================’);
if lama_bulan=12 then
begin
harga:=2350000*5/100;
harga:=2350000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan Panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2);
end
else if lama_bulan=24 then
begin
harga:=2350000*10/100;
harga:=2350000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2)
end
else
begin
harga:=2350000*15/100;
harga:=2350000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2)
end;
end
else
writeln(‘Maaf Anda tidak dapat melakukan transaksi’);
end;

3:begin
writeln(‘=====================================================’);
write(‘Masukkan panjar yang Anda inginkan min 500000: ‘);read(panjar);
writeln(‘=====================================================’);
if panjar>=500000 then
begin
writeln(‘Pilihan lama kredit yaitu: 12 bulan (bunga 5%)’);
writeln(‘ 24 bulan (bunga 10%)’);
writeln(‘ 36 bulan (bunga 15%)’);
write(‘Masukkan lama cicilan Smartphone Anda : ‘);read(lama_bulan);
writeln(‘=====================================================’);
if lama_bulan=12 then
begin
harga:=1300000*5/100;
harga:=1300000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan Panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2);
end
else if lama_bulan=24 then
begin
harga:=1300000*10/100;
harga:=1300000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2)
end
else
begin
harga:=1300000*15/100;
harga:=1300000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2)
end;
end
else
writeln(‘Maaf Anda tidak dapat melakukan transaksi’);
end;

4:begin
writeln(‘=====================================================’);
write(‘Masukkan panjar yang Anda inginkan min 500000: ‘);read(panjar);
writeln(‘=====================================================’);
if panjar>=500000 then
begin
writeln(‘Pilihan lama kredit yaitu: 12 bulan (bunga 5%)’);
writeln(‘ 24 bulan (bunga 10%)’);
writeln(‘ 36 bulan (bunga 15%)’);
write(‘Masukkan lama cicilan Smartphone Anda : ‘);read(lama_bulan);
writeln(‘=====================================================’);
if lama_bulan=12 then
begin
harga:=1700000*5/100;
harga:=1700000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan Panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2);
end
else if lama_bulan=24 then
begin
harga:=1700000*10/100;
harga:=1700000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2)
end
else
begin
harga:=1700000*15/100;
harga:=1700000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2)
end;
end
else
writeln(‘Maaf Anda tidak dapat melakukan transaksi’);
end;

5:begin
writeln(‘=====================================================’);
write(‘Masukkan panjar yang Anda inginkan min 500000: ‘);read(panjar);
writeln(‘=====================================================’);
if panjar>=500000 then
begin
writeln(‘Pilihan lama kredit yaitu: 12 bulan (bunga 5%)’);
writeln(‘ 24 bulan (bunga 10%)’);
writeln(‘ 36 bulan (bunga 15%)’);
write(‘Masukkan lama cicilan Smartphone Anda : ‘);read(lama_bulan);
writeln(‘=====================================================’);
if lama_bulan=12 then
begin
harga:=10200000*5/100;
harga:=10200000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan Panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2);
end
else if lama_bulan=24 then
begin
harga:=10200000*10/100;
harga:=10200000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2)
end
else
begin
harga:=10200000*15/100;
harga:=10200000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2)
end;
end
else
writeln(‘Maaf Anda tidak dapat melakukan transaksi’);
end;

6:begin
writeln(‘=====================================================’);
write(‘Masukkan panjar yang Anda inginkan min 500000: ‘);read(panjar);
writeln(‘=====================================================’);
if panjar>=500000 then
begin
writeln(‘Pilihan lama kredit yaitu: 12 bulan (bunga 5%)’);
writeln(‘ 24 bulan (bunga 10%)’);
writeln(‘ 36 bulan (bunga 15%)’);
write(‘Masukkan lama cicilan Smartphone Anda : ‘);read(lama_bulan);
writeln(‘=====================================================’);
if lama_bulan=12 then
begin
harga:=4200000*5/100;
harga:=4200000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan Panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2);
end
else if lama_bulan=24 then
begin
harga:=4200000*10/100;
harga:=4200000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2)
end
else
begin
harga:=4200000*15/100;
harga:=4200000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2)
end;
end
else
writeln(‘Maaf Anda tidak dapat melakukan transaksi’);
end;

7:begin
writeln(‘=====================================================’);
write(‘Masukkan panjar yang Anda inginkan min 500000: ‘);read(panjar);
writeln(‘=====================================================’);
if panjar>=500000 then
begin
writeln(‘Pilihan lama kredit yaitu: 12 bulan (bunga 5%)’);
writeln(‘ 24 bulan (bunga 10%)’);
writeln(‘ 36 bulan (bunga 15%)’);
write(‘Masukkan lama cicilan Smartphone Anda : ‘);read(lama_bulan);
writeln(‘=====================================================’);
if lama_bulan=12 then
begin
harga:=4400000*5/100;
harga:=4400000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan Panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2);
end
else if lama_bulan=24 then
begin
harga:=4400000*10/100;
harga:=4400000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2)
end
else
begin
harga:=4400000*15/100;
harga:=4400000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2)
end;
end
else
writeln(‘Maaf Anda tidak dapat melakukan transaksi’);
end;

8:begin
writeln(‘=====================================================’);
write(‘Masukkan panjar yang Anda inginkan min 500000: ‘);read(panjar);
writeln(‘=====================================================’);
if panjar>=500000 then
begin
writeln(‘Pilihan lama kredit yaitu: 12 bulan (bunga 5%)’);
writeln(‘ 24 bulan (bunga 10%)’);
writeln(‘ 36 bulan (bunga 15%)’);
write(‘Masukkan lama cicilan Smartphone Anda : ‘);read(lama_bulan);
writeln(‘=====================================================’);
if lama_bulan=12 then
begin
harga:=2500000*5/100;
harga:=2500000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan Panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2);
end
else if lama_bulan=24 then
begin
harga:=2500000*10/100;
harga:=2500000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2)
end
else
begin
harga:=2500000*15/100;
harga:=2500000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2)
end;
end
else
writeln(‘Maaf Anda tidak dapat melakukan transaksi’);
end;

9:begin
writeln(‘=====================================================’);
write(‘Masukkan panjar yang Anda inginkan min 500000: ‘);read(panjar);
writeln(‘=====================================================’);
if panjar>=500000 then
begin
writeln(‘Pilihan lama kredit yaitu: 12 bulan (bunga 5%)’);
writeln(‘ 24 bulan (bunga 10%)’);
writeln(‘ 36 bulan (bunga 15%)’);
write(‘Masukkan lama cicilan Smartphone Anda : ‘);read(lama_bulan);
writeln(‘=====================================================’);
if lama_bulan=12 then
begin
harga:=3800000*5/100;
harga:=3800000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan Panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2);
end
else if lama_bulan=24 then
begin
harga:=3800000*10/100;
harga:=3800000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2)
end
else
begin
harga:=3800000*15/100;
harga:=3800000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2)
end;
end
else
writeln(‘Maaf Anda tidak dapat melakukan transaksi’);
end;

10:begin
writeln(‘=====================================================’);
write(‘Masukkan panjar yang Anda inginkan min 500000: ‘);read(panjar);
writeln(‘=====================================================’);
if panjar>=500000 then
begin
writeln(‘Pilihan lama kredit yaitu: 12 bulan (bunga 5%)’);
writeln(‘ 24 bulan (bunga 10%)’);
writeln(‘ 36 bulan (bunga 15%)’);
write(‘Masukkan lama cicilan Smartphone Anda : ‘);read(lama_bulan);
writeln(‘=====================================================’);
if lama_bulan=12 then
begin
harga:=4200000*5/100;
harga:=4200000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan Panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2);
end
else if lama_bulan=24 then
begin
harga:=4200000*10/100;
harga:=4200000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2)
end
else
begin
harga:=4200000*15/100;
harga:=4200000+harga;
harga1:=harga-panjar;
writeln(‘Harga Smartphone menjadi ‘,harga:4:2);
writeln(‘Dengan panjar ‘,panjar:4:2,’ maka cicilan perbulan= ‘,harga1/lama_bulan:4:2)
end;
end
else
writeln(‘Maaf Anda tidak dapat melakukan transaksi’);
end;

11:begin
writeln(‘Terima kasih’);
end;
end;

writeln(‘=====================================================’);
writeln(‘Saudara ‘,nama,’ berikut kami tampilkan rincian cicilan Anda:’);
n:=0;
cicilan:=harga1;
harga2:=harga1/lama_bulan;
while (cicilan>0.1) do
begin
if (pilih=1) then
begin
cicilan:=cicilan-(harga1/lama_bulan);
end
else if (pilih=2) then
begin
cicilan:=cicilan-(harga1/lama_bulan);
end
else if (pilih=3) then
begin
cicilan:=cicilan-(harga1/lama_bulan);
end
else if (pilih=4) then
begin
cicilan:=cicilan-(harga1/lama_bulan);
end
else if (pilih=5) then
begin
cicilan:=cicilan-(harga1/lama_bulan);
end
else if (pilih=6) then
begin
cicilan:=cicilan-(harga1/lama_bulan);
end
else if (pilih=7) then
begin
cicilan:=cicilan-(harga1/lama_bulan);
end
else if (pilih=8) then
begin
cicilan:=cicilan-(harga1/lama_bulan);
end
else if (pilih=9) then
begin
cicilan:=cicilan-(harga1/lama_bulan);
end
else if (pilih=10) then
begin
cicilan:=cicilan-(harga1/lama_bulan);
end
else
begin
cicilan:=cicilan-(harga1/lama_bulan);
end;
inc(n);
writeln(‘setelah cicilan ke’,n,’ maka kekurangan Anda ‘,cicilan:4:2);
end;
readln;
writeln(‘==================================================’);
writeln(‘Smartphone akan Kami kirim ke alamat Anda ‘,alamat);
writeln(‘Terima kasih Telah Berkunjung Ke Toko Mizan’);
readln;
clrscr;
end.

program turbo pascal
program ciclan smartfone
program cicilan hp
cp muhazzar

turbo pascal, program data dosen fikom

(‘masukkan ttl dosen =’);
readln(ttl_dosen);
readln;
end. program data_dosen_fikom;
uses crt;
var
nm_dosen,nidn_dosen,alamat_dosen,ttl_dosen:string;
nama:string;
begin
clrscr;
writeln(‘ program data dosen fikom ‘);
writeln(‘========================================’);
write(‘masukkan nama dosen =’);
readln(nm_dosen);
write(‘masukkan nidn dosen =’);
readln(nidn_dosen);
write(‘masukkan alamat dosen =’);
readln(alamat_dosen);
write

program data dosen fikom
turbo pascal
cp zahara

turbo pascal, jual beli laptop

_laptop:string;

jumlah:integer;

harga,total:real;

begin

write(‘masukkan nama laptop’);

readln(nama_laptop);

write(‘jumlah’);

if nama_laptop = ‘asus’ then

begin

harga:=6000000;

writeln(‘harga:’,harga:4:2);

total:=harga*jumlah;

writeln(‘total:’,total:4:2);

end

else

harga:=7000000;

writeln(‘harga:’,harga:4:2);

total:=harga*jumlah;

writeln(‘total:’,total:4:2);

end;

readln;

end.

if

nama_laptop = ‘acer’ then

begin

 

 

 

pemograman jual beli laptop

pemograman turbo pascal

 

 

 

turbo pascal, data pasien

program data_pasien;
uses crt;
begin
writeln (‘input data pasien’);
writeln (‘rumah sakit umum peusangan’);
writeln (‘kota bireun’);
readln;
write (‘1}. jenis asuransi :’);readln;
write (‘2}. no :’);readln;
write (‘3}. tangal daftar :’);readln;
write (‘4}. nama pasien :’);readln;
write (‘5}. jenis kelamin :’);readln;
write (‘6}. usia :’);readln;
write (‘7}. alamat :’);readln;
write (‘8}. pekerjaan :’);readln;
write (‘9}. jenis perawatan:’);readln;
write (’10}. nama doter :’);readln;
write (’11}. rungan :’);readln;
write (’12}. hasil diagnosa:’);readln;
end.

program pascal
program data pasien rumah sakit
cp lia paramita

program turbo pascal, penjualan mobil

var biaya :real;
jenis,kelas,kelas1:char;
begin
clrscr;
write(‘sewa keendaraan-mobil-sepeda motor:’);
readln(jenis);
write(‘tipe kendaraan
-mewah-biasa-jadul:’);
readln(kelas);
writeln;
if(jenis)=’a’then
begin
if kelas=’a’then
biaya:=1000000
else
if kelas=’b’then
biaya:=1000000
uses crt;
else
biaya:=850000
end
else
s>=’a’)then
biaya:=187.00000
else
if (jeni
if kelas=’a’then
biaya:=187.000
else
if kelas=’b’then
biaya:=900000
else
begin
biaya:=4000000;
end;
writeln(‘biaya sewa:’,biaya:7:0);
readln;
end.

program pascal
program penjualan mobil

turbo pascal, program data mahasiswa

uses crt;
yang di beli:’);readln(barang);
write(‘jumlah barang yang di beli:’);readln(jumlah);
program kasir;

if(barang=’gula’)or(barang=’gula’)then
harga:=13000
else if (barang=’odol’)or(barang=’odol’)then
harga:=7000
else if (barang=’sabun’)or(barang=’sabun’)then
harga:=3000
else if (barang=’mie’)or(barang=’mie’)then
harga:=2500
else
var
barang : string;
tagihan, bayar, jumlah, harga, kembali : real;
ulang : char ;
label aw;
begin
aw: clrscr;
writeln(‘welcome obama market’);
writeln(‘====================’);
writeln(‘ ‘);
write(‘masukkan barang
writeln(‘barang habis atau tidak ada’);
tagihan:=jumlah*harga;
writeln(‘harga satuan:rp.’,harga:0:2);
writeln(‘ ‘);
writeln(‘______’);
writeln(‘jumlah yang harus dibayar:rp.’,tagihan:0:2);
write(‘uang pembayaran:rp.’);
readln(bayar);
kembali:=bayar-tagihan;
write(‘uang kembalian= ‘,kembali:4:0);
writeln(”);
write(‘apakah ingin belanja lagi?{y}/{n}=’);readln(ulang);
if(ulang=’n’)or(ulang=’n’)then
writeln(‘terimakasih sudah berbelanja:)’);
if(ulang=’y’)or(ulang=’y’)then goto aw;
readln;
end.

program data mahasiswa turbo pascal
cp amrizal

program turbo pascal, pemograman kasir obama m4rket

uses crt;
yang di beli:’);readln(barang);
write(‘jumlah barang yang di beli:’);readln(jumlah);
program kasir;

if(barang=’gula’)or(barang=’gula’)then
harga:=13000
else if (barang=’odol’)or(barang=’odol’)then
harga:=7000
else if (barang=’sabun’)or(barang=’sabun’)then
harga:=3000
else if (barang=’mie’)or(barang=’mie’)then
harga:=2500
else
var
barang : string;
tagihan, bayar, jumlah, harga, kembali : real;
ulang : char ;
label aw;
begin
aw: clrscr;
writeln(‘welcome obama market’);
writeln(‘====================’);
writeln(‘ ‘);
write(‘masukkan barang
writeln(‘barang habis atau tidak ada’);
tagihan:=jumlah*harga;
writeln(‘harga satuan:rp.’,harga:0:2);
writeln(‘ ‘);
writeln(‘______’);
writeln(‘jumlah yang harus dibayar:rp.’,tagihan:0:2);
write(‘uang pembayaran:rp.’);
readln(bayar);
kembali:=bayar-tagihan;
write(‘uang kembalian= ‘,kembali:4:0);
writeln(”);
write(‘apakah ingin belanja lagi?{y}/{n}=’);readln(ulang);
if(ulang=’n’)or(ulang=’n’)then
writeln(‘terimakasih sudah berbelanja:)’);
if(ulang=’y’)or(ulang=’y’)then goto aw;
readln;
end.

turbo pscal
pemograman data kasir

cp faddal