November 2016 ~ Ilmu PILKOM

Wednesday, November 23, 2016

Pengantar Teknologi Informasi - Program Pascal "Menghitung Huruf"

By Unknown 1:05 AM Pengantar Teknologi Informasi No comments

Nama : Mutia Yustifisiyah Rahmah Safira
NIM : A1C614208

program menghitunghuruf;
uses wincrt;
var
kata :string;
n :array['A'..'Z'] of byte;
i :byte;
begin
writeln('Mutia Yustifisiyah R. S. ');
writeln('A1C614208');
writeln('*****************************************');
writeln('selamat datang di program penghitung huruf');readln;
write('masukkan suatu kata= ');readln(kata);
for i:=1 to length(kata) do
n[upcase(kata[i])]:=n[upcase(kata[i])]+1;
for i:=1 to 26 do
if (n[upcase(chr(64+i))]<>0) then
writeln(upcase(chr(64+i)),' banyaknya huruf=',n[upcase(chr(64+i))]);
end.

Pengantar Teknologi Informasi - Program Pascal "Sewa VCD"

By Unknown 1:03 AM Pengantar Teknologi Informasi No comments

Nama : M Fajar Firdaus
NIM : A1C614204

Program Sewa_VCD;
uses wincrt;

Type
VCD = RECORD
NP, KDVCD, JNS, STATUS : String[25];
LM, JML : Byte;
TRF, DENDA, DIS, TB : Real;
end;

DATAVCD = array [1..50] of VCD;

var
DATA : DATAVCD;
I, N : INTEGER;
GT : REAL;

procedure ISI;

begin
clrscr;

write ('Masukkan Jumlah Datanya : ');readln(N);
for I:=1 to N do
with DATA[I] do

begin

writeln;
writeln('Data Ke : ',I);
write('Nama Peminjam : ');readln(NP);
write('Kode VCD [V01-V02] : ');readln(KDVCD);
write('Status Peminjam [ANGGOTA / BUKAN ] : ');readln(STATUS);
write('Lama Pinjam : ');readln(LM);
write('Jumlah VCD Yang Dipinjam : ');readln(JML);
end;
end;

procedure TAMPIL;

begin
clrscr;
writeln(' PENYEWAAN VCD FAJAR UTAMA');
writeln(' JL. PANGLIMA BATUR');
Writeln(' BANJARBARU');

writeln('----------------------------------------------------------------------------');
writeln('NO NAMA KODE JENIS TARIF STATUS LAMA JUMLAH BESAR DISKON TOTAL');
writeln(' PEMINJAM VCD VCD SEWA PEMINJAM PINJAM PINJAM DENDA BAYAR ');
writeln('----------------------------------------------------------------------------');

for I:=1 to N do
with DATA[I] do
begin

if KDVCD='V01' then
JNS:='KOMEDI'
else
if KDVCD='V02' then
JNS:='DRAMA'
else
if KDVCD='V03' then
JNS:='ACTION';

if (JNS='KOMEDI') AND (STATUS='ANGGOTA') then
TRF:=5000
else
if (JNS='DRAMA') AND (STATUS='ANGGOTA') then
TRF:=6000
else
if (JNS='ACTION') AND (STATUS='ANGGOTA') then
TRF:=7000
else
if (JNS='KOMEDI') AND (STATUS='BUKAN') then
TRF:=6000
else
if (JNS='DRAMA') AND (STATUS='BUKAN') then
TRF:=7000
else
if (JNS='ACTION') AND (STATUS='BUKAN') then
TRF:=8000;

if LM>3 then
DENDA:=0.1*(TRF*JML)
else
DENDA:=0;

if (STATUS='ANGGOTA') AND (JNS='DRAMA') then
DIS:=0.15*(TRF*JML)
else
DIS:=0;

TB:=(TRF*JML)+DENDA-DIS;

writeln(I:2,NP:8,KDVCD:6,JNS:8,TRF:6:0,STATUS:10,LM:6,JML:8,DENDA:8:0,DIS:8:0,TB:8:0);

GT:=GT+TB;
end;
writeln('------------------------------------------------------------------------------');
writeln('GRANDTOTAL : ',' ',GT:9:0);
writeln('------------------------------------------------------------------------------');
end;

begin
ISI;
TAMPIL;
readln;
end.