tugas konsep pemograman

Uses crt;
var
kode:byte;
harga,th:longint;
nama:string;

Begin
clrscr;
writeln(‘Nama  :Ranto Simarmata’);
writeln(‘’);
writeln(‘Kelas   :TI-M1222’);
writeln(‘’);
writeln(‘Npm    :12110030’);
writeln(‘’);
writeln(‘’);
writeln(‘                      <<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>’);
writeln(‘                                      Tugas Konsep Pemograman            ‘);
writeln(‘                      <<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>’);
writeln(‘’);
writeln(‘Inputkan Kode Penjualan’);
writeln(‘---------------------------’);
writeln(‘kode:’);readln(kode);

Case kode of

1:begin
clrscr;
nama:=’Televisi’;
writeln(‘Nama               : ’,nama);
writeln(‘’);
harga:=1750000
writeln(‘Harga              :’,harga);
writeln(‘’);
writeln(‘Jumlah Beli    :  ’);readln(jumlah);
th:=harga*jumlah;
writeln(‘--------------------------’);
writeln(‘’);
writeln(‘Total Harga:’,th);
writeln(‘==========================’);
writeln(‘==========================’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘                          {{{{{{{{{{{{       STMIK BUDIDARMA MEDAN}}}}}}}}}}}}
end;

2:begin
clrscr;
nama:=’DVD’;
writeln(‘Nama               : ’,nama);
writeln(‘’);
harga:=650000
writeln(‘Harga              :’,harga);
writeln(‘’);
writeln(‘Jumlah Beli    :  ’);readln(jumlah);
th:=harga*jumlah;
writeln(‘--------------------------’);
writeln(‘’);
writeln(‘Total Harga:’,th);
writeln(‘==========================’);
writeln(‘==========================’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘                          {{{{{{{{{{{{       STMIK BUDIDARMA MEDAN}}}}}}}}}}}}
end;

3:begin
clrscr;
nama:=’CD ROOM’;
writeln(‘Nama               : ’,nama);
writeln(‘’);
harga:=1750000
writeln(‘Harga              :’,harga);
writeln(‘’);
writeln(‘Jumlah Beli    :  ’);readln(jumlah);
th:=harga*jumlah;
writeln(‘--------------------------’);
writeln(‘’);
writeln(‘Total Harga:’,th);
writeln(‘==========================’);
writeln(‘==========================’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘’);
writeln(‘                          {{{{{{{{{{{{       STMIK BUDIDARMA MEDAN}}}}}}}}}}}}
end;

end;
readln;
end.

 

http://mesran.blogspot.com/2013/03/nggak-sulit-belajar-bahasa-pemrograman.html