Bulqis B
21 Oktober 2024 08:27
Iklan
Bulqis B
21 Oktober 2024 08:27
Pertanyaan
Rancang dan buatlah sebuah program pascal yang membaca N buah bilangan dan mencetak nya secara terbalik. Misalnya jika diberikan masukkan 1 2 3 4 5 6,program akan mencetak 6 5 4 3 2 1
Rancang dan buatlah sebuah program pascal yang membaca N buah bilangan dan mencetak nya secara terbalik. Misalnya jika diberikan masukkan 1 2 3 4 5 6,program akan mencetak 6 5 4 3 2 1
10
1
Iklan
BimBim B
22 Oktober 2024 02:35
<p>bisa copy paste code pascal di bawah ini ya ke visual code (https://vscode.dev/) untuk cek strukturnya.</p><p>====================</p><p> </p><p>program CetakTerbalik;<br>var<br> arr: array[1..100] of integer; { Array untuk menyimpan bilangan }<br> i, N: integer; { i untuk iterasi dan N untuk jumlah bilangan }<br>begin<br> { Membaca jumlah bilangan N }<br> writeln('Masukkan jumlah bilangan: ');<br> readln(N);<br> <br> { Membaca N bilangan }<br> writeln('Masukkan ', N, ' bilangan: ');<br> for i := 1 to N do<br> read(arr[i]);</p><p> { Mencetak bilangan secara terbalik }<br> writeln('Bilangan dalam urutan terbalik: ');<br> for i := N downto 1 do<br> write(arr[i], ' ');</p><p> writeln; { Untuk menambah baris baru setelah output }<br>end</p><p> </p><p>====================</p><p><strong><u>Penjelasan</u></strong></p><ul><li><strong>arr: array[1..100] of integer;</strong>: Array ini digunakan untuk menyimpan bilangan input. Jumlah maksimum bilangan yang bisa disimpan adalah 100.</li><li><strong>for i := 1 to N do read(arr[i]);</strong>: Digunakan untuk membaca N bilangan dari input.</li><li><strong>for i := N downto 1 do write(arr[i], ' ');</strong>: Untuk mencetak bilangan dalam urutan terbalik, mulai dari elemen terakhir hingga elemen pertama.</li></ul>
bisa copy paste code pascal di bawah ini ya ke visual code (https://vscode.dev/) untuk cek strukturnya.
====================
program CetakTerbalik;
var
arr: array[1..100] of integer; { Array untuk menyimpan bilangan }
i, N: integer; { i untuk iterasi dan N untuk jumlah bilangan }
begin
{ Membaca jumlah bilangan N }
writeln('Masukkan jumlah bilangan: ');
readln(N);
{ Membaca N bilangan }
writeln('Masukkan ', N, ' bilangan: ');
for i := 1 to N do
read(arr[i]);
{ Mencetak bilangan secara terbalik }
writeln('Bilangan dalam urutan terbalik: ');
for i := N downto 1 do
write(arr[i], ' ');
writeln; { Untuk menambah baris baru setelah output }
end
====================
Penjelasan
- arr: array[1..100] of integer;: Array ini digunakan untuk menyimpan bilangan input. Jumlah maksimum bilangan yang bisa disimpan adalah 100.
- for i := 1 to N do read(arr[i]);: Digunakan untuk membaca N bilangan dari input.
- for i := N downto 1 do write(arr[i], ' ');: Untuk mencetak bilangan dalam urutan terbalik, mulai dari elemen terakhir hingga elemen pertama.
· 0.0 (0)
Iklan
Mau pemahaman lebih dalam untuk soal ini?
Tanya ke Forum
Biar Robosquad lain yang jawab soal kamu
LATIHAN SOAL GRATIS!
Drill Soal
Latihan soal sesuai topik yang kamu mau untuk persiapan ujian
Perdalam pemahamanmu bersama Master Teacher
di sesi Live Teaching, GRATIS!
