Oke guys kita balik lagi saya akan membuat program dengan struktruk perulangan cekibrottt !!
Baiklah sebelum kita buat programnya saya akan menjelaskan sedikit tentang struktur perulangan
Struktur Perulangan
Jika dalam sebuah program terdapat 1 atau lebih beberapa pernyataan yang akan dikerjakan secara langsung atau lebih dari 1 kali maka digunakan struktur perulangan yang statemennya terdiri dari :
Struktur Perulangan
1. For
BU:
A. FlowChart
B. Program
For Nilai Awal to nilai akhir do
Ket:
Blok statemen akan dikerjakan dimulai dari nilai awal sampai nilai akhir yang ditentukan pada for
Contoh Soal :
Tentukan Total Hutang 5 orang nasabah jika total hutang tersebut didapat dari hutang pokok tambah bunga, bunga didapat dari sepuluh persen kali hutang pokok kali lama pinjam ( Tahun ) =
Analisi Kasus
Input
Nama Nasabah : (Nm)
Nomor Nasabah : (NN)
Hutang Pokok : (HP)
Lama Pinjam : (LP)
Proses
Untuk
BU = (0,1*HP*LP)
TH = HP+BU
Output
1. TH
2. BU
Program
Program TotalHutang;
Uses crt;
Var
NM string[20];
NN :byte;
Lp :byte;
Hp,bu :real;
TH :real;
a :byte;
Begin
Clrscr;
For A:= 1 to 5 do
Begin
Writeln('Inputkan Data Nasabah');
Writeln('------------------------');
Write('Masukan Nama Nasabah = ');readln(nm);
Write('Masukan Nomor Nasabah = ');readln(nn);
Write('Masukan Hutang Pokok Nasabah = ');readln(hp);
Write('Masukan Lama Pinjam (Tahun) = ');readln(Lp);
BU:=(0.1*hp*lp);
TH:=(HP+BU);
Write(' Bunga = ',BU:10:0);
Write('Jadi Total Hutang Nasabah Adalah = ',TH:10:0);
Readkey;
End;
End.
Ini Hasilnya :
Catatan = Huruf A diatas sebagai indetifikasi pada program , kalo mau diganti huruf lain juga bisa kok terukalo mau ngitung lebih dari 5 bisa aja , tinggal ganti 5 nya jadi terserah yg anda mau , nah ini rahasia loh , nah kalo pas analisis kasus kan suka bingung tuh mau tulis yg di input apa aja , nah ini rahasianya jadi data yg di proses tidak ditulis pada input sekian terima kasih semoga bermanfaat !!!
