PEMDAS:: Tugas Mandiri 2
Label: Zha Skylab
Salam sukses luar biasa semuanya! Berikut respon tugas Pemrograman Dasar "Record-Array". Keep SPIRIT.
SOURCE CODE PROGRAM
uses wincrt;
label tabel;
type
datacd = record
nomorcd : string [10] ;
nama,c : string [20] ;
jml : byte ;
end;
var
jumlahcd,i : byte ;
namacd : array [1..50] of datacd ;
nama2 : string;
lagi : char;
Begin
writeln('=========================================');
writeln(' ++ TOKO PENYEWAAN CD FILM ++ ');
writeln('=========================================');
writeln;
write('Inputkan banyaknya CD => '); readln(jumlahcd);
for i:=1 to jumlahcd do
begin
writeln ;
with namacd[i] do
begin
writeln ;
write('Indeks CD => ',i:2,' ? '); readln(nomorcd);
write('Nama Film => ',i:2,' ? '); readln(nama);
write('Jumlah Barang => ',i:2,' ? ');readln(jml);
end;
end;
tabel:
clrscr;
writeln;
writeln('-----------------------------------------');
writeln('Indeks Nama Jumlah ');
writeln(' CD CD Film Barang ');
writeln('-----------------------------------------');
for i:=1 to jumlahcd do
with namacd[i] do
writeln(nomorcd:5,nama:20,jml:12);
writeln('-----------------------------------------');
writeln;
begin
write('Ingin membeli CD film berjudul => ');readln(nama2);
for i:=1 to jumlahcd do begin
if nama2=namacd[i].nama then namacd[i].jml:=namacd[i].jml-1;
writeln('Sisa CD film => ',namacd[i].nama,' adalah => ',namacd[i].jml);
writeln;
end;
end;
write('Ingin memilih film lagi [y/t]? ');readln(lagi);
if lagi='y' then goto tabel;
end.
Silahkan download source code lengkap beserta penjelasannya dibawah ini!
SOURCE CODE PROGRAM
uses wincrt;
label tabel;
type
datacd = record
nomorcd : string [10] ;
nama,c : string [20] ;
jml : byte ;
end;
var
jumlahcd,i : byte ;
namacd : array [1..50] of datacd ;
nama2 : string;
lagi : char;
Begin
writeln('=========================================');
writeln(' ++ TOKO PENYEWAAN CD FILM ++ ');
writeln('=========================================');
writeln;
write('Inputkan banyaknya CD => '); readln(jumlahcd);
for i:=1 to jumlahcd do
begin
writeln ;
with namacd[i] do
begin
writeln ;
write('Indeks CD => ',i:2,' ? '); readln(nomorcd);
write('Nama Film => ',i:2,' ? '); readln(nama);
write('Jumlah Barang => ',i:2,' ? ');readln(jml);
end;
end;
tabel:
clrscr;
writeln;
writeln('-----------------------------------------');
writeln('Indeks Nama Jumlah ');
writeln(' CD CD Film Barang ');
writeln('-----------------------------------------');
for i:=1 to jumlahcd do
with namacd[i] do
writeln(nomorcd:5,nama:20,jml:12);
writeln('-----------------------------------------');
writeln;
begin
write('Ingin membeli CD film berjudul => ');readln(nama2);
for i:=1 to jumlahcd do begin
if nama2=namacd[i].nama then namacd[i].jml:=namacd[i].jml-1;
writeln('Sisa CD film => ',namacd[i].nama,' adalah => ',namacd[i].jml);
writeln;
end;
end;
write('Ingin memilih film lagi [y/t]? ');readln(lagi);
if lagi='y' then goto tabel;
end.
Silahkan download source code lengkap beserta penjelasannya dibawah ini!