Home » » Contoh lanjutan Instruksi Pengulangan Bahasa Pascal

Contoh lanjutan Instruksi Pengulangan Bahasa Pascal

By  April 20, 2023  No comments
Contoh-contoh Instruksi Pengulangan Bahasa Pascal
Pelajari cara melakukan pengulangan dalam bahasa Pascal dengan mudah melalui materi dan contoh yang disajikan di blog ini. Blog ini memberikan panduan langkah demi langkah tentang cara menggunakan loop dalam bahasa Pascal untuk mengulang kode tertentu dengan efisien. Berikut akan disajikan contoh-contoh program instruksi pengulangan bahasa pascal yang merupakan lanjutan pembahasan tulisan terkait instruksi pengulangan bahasa pascal. ayo disimak !!
Contoh-contoh :
Program genap
Program yang meminta masukan N dan masukan angka-angka sebanyak N. Program akan menghitung jumlah nilai bilangan yang genap-genap saja. Misal pengguna ingin memasukkan 3 bilangan. 
program genapsaja;
uses crt;
var
n,i,x,Jumlah_genap: integer;
begin
clrscr;
write('Masukkan Jumlah bilangan = ');
readln(n);
i:=0;
while i<=n do
begin
    write('Masukkan bilangan ke-',i,'= ');
    readln(x);
    if x mod 2=0 then
        Jumlah_genap := Jumlah_genap + x;
    i:=i+1;
end;
writeln('Jumlah bilangan genap = ',Jumlah_genap);
readln;
end.
Harga Fotokopian
Buatlah tabel harga fotokopian dari 1 –100 lembar, dimana harga perlembar kertas adalah 125 rupiah!
program harga_fc;
const
hrg= 125;
var
n: integer;
begin
writeln('TABEL HARGA FOTOKOPI');
writeln('|-------------||--------------|');
writeln('|LEMBAR ||HARGA |');
n := 1;
while n <= 100 do
begin
    writeln('|',n,' ||',n*hrg,' |');
    n := n +1 ;
end;
readln;
end.
Program Hitung Usia
Dibaca data usia N orang mahasiswa dari masukan. program menghitung jumlah mahasiswa yang berusia 17 tahun, 18 tahun, 19 tahun, dan 20 tahun, dan jumlah mahasiswa yang berusia selain itu. 
program Hitungjumlah;
uses crt
var
n,i,umur,u17,u18,u19,u20,ulain: integer;
begin
clrscr;
write('Masukkan Jumlah siswa = '); readln(n);
u17:=0;
u18:=0;
u19:=0;
u20:=0;
ulain:=0;
i:=1;
while i<=n do
begin
    write('Masukkan usia mahasiswa ke-',i,' ='); readln(umur);
    if (umur=17) then
        u17:= u17+1;
    if (umur=18) then
        u18:= u18+1;
    if (umur=19) then
        u19:= u19+1;
    if (umur=20) then
        u20:= u20+1;
    if (umur<17) or (umur>20) then
        ulain:=ulain+1;
    i:=i+1;
end;
writeln('Jumlah mahasiswa berusia 17 =',u17);
writeln('Jumlah mahasiswa berusia 18 =',u18);
writeln('Jumlah mahasiswa berusia 19 =',u19);
writeln('Jumlah mahasiswa berusia 20 =',u20);
writeln('Jumlah mahasiswa berusia lain = ',ulain);
readln;
end.
Program Lagu Anak Ayam
Menggunakan struktur while-do, program meminta masukan angka N. Program akan menuliskan teks lagu Anak Ayam Turun N. Misal jika N=5 maka pada layar ouput:
Masukkan jumlah anak ayam: 5
Anak Ayam Turun 5
Anak Ayam turun 5, mati satu tinggal 4
Anak Ayam turun 4, mati satu tinggal 3
Anak Ayam turun 3, mati satu tinggal 2
Anak Ayam turun 2, mati satu tinggal 1 
Anak Ayam turun 1, mati satu tinggal induknya.
Program LaguAnakAyam;
uses crt;
var
angka,n : integer;
begin
write ('Masukkan Jumlah anak ayam : ');
readln (n);
writeln('Anak Ayam Turun ', n);
angka := n;
while angka >= 1 do
begin
    if angka = 1 then
    writeln ('Anak ayam turun ',angka,',Mati satu tinggal induknya')
    else
    writeln ('Anak ayam turun ',angka,',Mati satu tinggal ',angka-1);
    angka := angka-1;
end;
readln;
end.
Ptogram Mencetak Angka
1. Program untuk mencetak output seperti di bawah ini dimana yang diinput hanya jumlah barisnya saja.
0 1 2 3 4 5 6 7 8 9
9 8 7 6 5 4 3 2 1 0
0 1 2 3 4 5 6 7 8 9
9 8 7 6 5 4 3 2 1 0
0 1 2 3 4 5 6 7 8 9
2. Modifikasi sedemikian sehingga outputnya menjadi:
segitiga rata kiri
segitiga rata kanan
segitiga rata tengah
3. Modifikasi sedemikian sehingga outputnya menjadi:
segitiga rata kiri
segitiga rata kanan
segitiga rata tengah
4. Buatlah program yang outputnya segitiga pascal.
Keterangan : Keempat Program Mencetak Angka penulis gabungkan kedalam satu program dengan pemilihan case of sesuai program yang diinginkan. Dapat di akses melalui link drive berikut Program Mencetak Angka

Materi terkait instruksi pengulangan bahasa pascal. klink tautan berikut atau cari di kolom pencarian untuk melihat materi terkait instruksi pemilihan  bahasa pascal.

Terima Kasih Telah Membaca semoga bermanfaat, jika ada saran, kritik, dan pertanyaan silakan sampaikan di kolom komentar ya !!! see you...
Categories: 

0 komentar:

Posting Komentar