Suunlah pemograman pacal untuk menghitung kelipatan 7 mulai dari 5.
Jawaban:
program Kelipatan7;
// Deklarasi variabel
var
i, j: integer;
begin
// Inisialisasi variabel
i := 5;
j := 7;
// Perulangan untuk menghitung kelipatan 7
while i <= 50 do
begin
// Cetak hasil kelipatan 7
writeln(i);
// Tambahkan i dengan j (7)
i := i + j;
end;
end.
Pada pemrograman di atas, pertama-tama kita mendeklarasikan variabel i dan j dengan tipe integer. Kemudian, kita menginisialisasi nilai awal dari variabel i dengan 5 dan variabel j dengan 7.
Selanjutnya, kita menggunakan perulangan while untuk menghitung kelipatan 7 mulai dari 5. Perulangan ini akan berjalan selama nilai dari variabel i kurang dari atau sama dengan 50. Di dalam perulangan, kita mencetak hasil kelipatan 7 dengan menggunakan perintah writeln(i). Kemudian, kita menambahkan nilai dari variabel i dengan nilai dari variabel j (7) dengan perintah i := i + j;.
Setelah perulangan selesai, program akan mencetak hasil kelipatan 7 mulai dari 5 sampai 50. Hasil yang diperoleh adalah sebagai berikut:
5
12
19
26
33
40
47
Cacah dari 5 sampai ??. Jika bilangan ke i dapat di bagi 7 masukan ke variabel 'sum' dan tambahkan ke sum. Repeat sampai ??