Program Pascal Dengan Menggunakan Struktur Perulangan

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 !!!

Program Pascal Sederhana

Ok kali ini saya akan membuat program melalu aplikasi turbo pascal

Baiklah Langsung aja Cekibrot !!
Ini Link untuk download aplikasi turbo pascalnya Turbo Pascal 

Contoh Soal:
Tentukan Nilai Rata-Rata Algoritma Seorang mahasiswa ,jika nilai rata-rata tersebut  berasal dari akumulasi nilai ujian tengah semester dengan nilai akhir semester dibagi dua :

Solusi :

Input 

Nomor Bp              :(NoBp)
Nama Mahasiswa   : (NM)
Nilai UTS               : (NUTS)
Nilai UAS              : (NUAS)

Proses 

Nilai Rata-Rata (NR) : (NUTS+NUAS)/2

Output

Nilai Rata-Rata

Program

Program NilaiMahasiswa;
Usescrt;
var
Nobp :byte;
NM    :[string];
NUTS,NUAS: real;
Begin
Clrscr;
Writeln('Input Data Mahasiswa ');
Writeln('-------------------------------');
Write('Masukan Nomor Bp = ');readln(nobp);
Write('Masukan Nama        = ');readln(nm);
Write('Masukan Nilai UTS  = ');readln(nuts);
Write('Masukan Nilai UAS = ');readln(nuas);
Nr:=(Nuts+nuas)/2;
Write(' Nilai Rata-Rata = ',nr:6:2);
Readkey;

End.

Pernyataan : Kalo bikin program stres dulu baru tau kesalahan abis itu bisa deh terus kalo bikin program harus secara berurutan sesuai dengan flowchartnya , maaf gk bisa kasih flowchartnya
Sekian Dan terima kasih kalo bermanfaat silahkan komentar ..!!

Hasilnya :