Analisa program
|
No
.
|
Program
|
Penjelasan
|
|
1.
|
Uses
crt
|
Uses
merupakan sebuah kata tercadana , crt unit berbasis DOS
|
|
2.
|
Var
A,B,C ,J,L:integer;
Rokok1,rokok2,rokok3,ttl:real;
Rokok:char;
|
Deklarasi variable
dimana variable A,B,C,J,L mempunyai tipe data integer ( bil. Bulat ) ,
rook1,rokok2,rokok3 mempunyai tipe data real ( bil. Pecahan ) dan rokok
bertipe data char ( karakter ) .
|
|
3.
|
begin
|
Merupakan
kata tercadang ( pembuka sebuah intruksi dalam program ) .
|
|
4.
|
Writeln(‘*************************’);
Writeln(‘ PROGRAM ROKOK AKBAR ‘);
Writeln(‘*************************’);
|
Menampilkan tulisan
di layar PROGRAM ROKOK AKBAR
|
|
5.
|
Writeln;
|
Memberikan
jarak antara baris atas dengan bawah
|
|
6.
|
Writeln(‘ DAFTAR ‘);
Writeln(‘=========================’);
|
Menampilkan tulisan
DAFTAR
|
|
7.
|
Writeln(‘Jenis
Rokok |Nama Rokok|Harga’);
Writeln(‘===========================’);
|
Menampilkan
tulisan Jenis rokok |Nama Rokok |Harga
|
|
8.
|
Writeln(‘rokok1
(tekan A)|djarum super |Rp
11.000 ‘);
Writeln(‘rokok2
(tekan B)|gudang garam filter |Rp 11.000
‘);
Writeln(‘rokok3
(tekan C)|U mild |Rp 9.000 ‘);
Writeln(‘=========================================’);
|
Menampilkan tulisan
rokok1 (tekan
A)|djarum super |Rp
11.000 , rokok2 (tekan B)|gudang garam
filter |Rp 11.000 , rokok3 (tekan C)|U
mild |Rp 9.000 .
|
|
9.
|
Writeln;
|
Memberikan
jarak antara baris atas dengan bawah
|
|
10.
|
Write(‘Jumlah rokok
yang akan di pesan :’);readln(L);
|
Menampilkan tulisan
jumlah rokok yang akan di pesan dan readln (L) mengeluarkan jumlah yang di
pesan
|
|
11.
|
Writeln
;
|
Memberikan
jarak antara baris atas dengan bawah
|
|
12.
|
Writeln (‘ silahkan
pilih jenis rokok ‘)
|
Menampilkan tulisan
silahkan pilih jenis rokok
|
|
13.
|
Repeat
|
Pengulangan
|
|
14.
|
Rokok:=readkey ;
|
Membaca
inputan dari variabel rokok
|
|
15.
|
Case
rokok of
|
Struktur case of didalam variabel rokok
|
|
16.
|
‘A’,’a’ : begin
Write(‘berapa bungkus
rokok 1 yang ingin di pesan :’);
readln (A);
Rokok1 :=A*11000;
End;
|
Jika
kita menekan huruf A atau a maka proses ini akan dikerjakan
masukan
nilai variabel A lalu tekan ENTER
Kemudian
melakukan pemrosesan kopikan nilai
dari variabel A dikali 11000 ke
variabel rokok1
|
|
17.
|
‘B’,’b’
: begin
Write(‘berapa
bungkus rokok 2 yang ingin di pesan :’); readln (B);
Rokok2
:=B*11000;
End;
|
Jika kita menekan huruf B atau b maka proses ini
akan dikerjakan
masukan nilai variabel B lalu tekan ENTER
Kemudian melakukan pemrosesan kopikan nilai dari variabel B dikali
11000 ke variabel rokok2
|
|
18.
|
Else
|
Jika
tidak memenuhi kondisi yang telah ditentukan sebelumnya maka akan melaksanakan proses berikutnya
|
|
19.
|
begin
Write(‘berapa
bungkus rokok 3 yang ingin di pesan :’); readln (C);
Rokok3
:=C*9000;
End;
|
Jika kita menekan huruf C atau c maka proses ini
akan dikerjakan
masukan nilai variabel C lalu tekan ENTER
Kemudian melakukan pemrosesan kopikan nilai dari variabel C dikali
9000 ke variabel rokok3
|
|
20.
|
End
;
|
Penutup dari sebuah pernyataan.
|
|
21.
|
J:=A+B+C;
|
Variable
J dari hasil penjumlahan var A+B+C
|
|
22.
|
Until J=L
|
Perulangan var J = L
|
|
23.
|
Ttl:=rokok1+rokok2+rokok3;
|
Total
dari penghitungan Rokok1+rokok2+rokok3
|
|
24.
|
Writeln ;
|
Memberikan jarak
antara baris atas dengan bawah
|
|
25.
|
IF rokok1<>0 then
writeln('Harga ',A,' bungkus rokok1 adalah : Rp ',rokok1:2:2);
|
Jika rokok1
tidak sama dengan 0 maka akan
muncul tulisan sebagai berikut:
Harga
(isi
dari variabel A) bungkus rokok 1
adalah : Rp (isi dari variabel rokok 1).
|
|
26.
|
IF
rokok2<>0 then
writeln('Harga
',B,' bungkus rokok2 adalah : Rp ',rokok2:2:2);
|
Jika
rokok2 tidak sama dengan 0 maka
akan muncul tulisan sebagai berikut:
Harga (isi
dari variable B) bungkus rokok 2 adalah :
Rp (isi dari variabel rokok 2).
|
|
27.
|
IF rokok3<>0 then
writeln('Harga ',C,' bungkus rokok3 adalah : Rp ',rokok3:2:2);
|
Jika rokok3
tidak sama dengan 0 maka akan
muncul tulisan sebagai berikut:
Harga
(isi
dari variabel C) bungkus rokok 3
adalah : Rp (isi dari variabel rokok 3).
|
|
28.
|
Writeln;
|
Memberikan jarak
antara baris atas dengan bawah
|
|
27.
|
Writeln(‘
total yang harus di bayar : Rp ‘,ttl
:2:2);
|
Manampilkan
tukisan total yang harus di bayar serta totalnya
|
|
28.
|
Writeln;
|
Memberikan jarak
antara baris atas dengan bawah
|
|
28.
|
Readln;
|
Membaca sebuah inputan yang masuk
|
|
29.
|
End .
|
Akhir dari sebuah
program
|
Hasil Program
Seorang gamers yang masih mencari jati diri sedang menempuh kuliah di jurusan Teknik Informatika di Universitas swasta di cirebon jawa Barat .
0 komentar:
Posting Komentar