Page 188 - Pemrograman Dasar kelas X

184 Pemrograman Dasar SMK Kelas X Sem 2

Write(‘Masukkan banyak CD :’);readln(jmlCD);
Write (‘Masukkan hari keterlambatan, isi 0 jika tidak :’); readln(Hterlambat);

BiayaSewa:=jmlCD*2000;
Denda:=jmlCD*500;
Total:=BiayaSewa*Denda;

Writen(‘Total yang harus dibayar adalah : ‘, Total);
End.

Buatlah perhitungan manual sebagai perbandingan, langkah per langkah.
2. Progam menentukan jumlahan deret bilangan 1+4+7+10+13+.... yang kurang dari n
Program Deret;

Var suku, jum:integer;
Begin

Readln(n);
Suku:=1;
i:=1;

jum:=0
While(suku<=n) do
Begin

Suku:=suku+3*i;
Jum:=jum+suku;
I:=i+1;

End;
Writeln(jum);

Readln;
End.
a. Apakah program di atas sudah menghasilkan output yang benar?

b. Dapatkah kita terapkan teknik debugging untuk memperbaiki program di atas. Jika tidak
jelaskan, jika bisa, lakukan.

Mengasosiasikan
Dari hasil pekerjaan LKS,buat kesimpulan apa itu debugging, seberapa pentingnya proses
debugging ini, dan bagaimana melakukannya?

Mengkomunikasikan

Presentasikan pekerjaan LKS kalian di depan kelas, dan diskusikan dengan teman-teman
yang lain.

Rangkuman