Program pengulangan kalimat

Berikut merupakan Program untuk Pengulangan kalimat menggunakan bahasa Pascal dengan menggunakan statement REPEAT.

• SOURCE CODE

Program pengulangan_kalimat;
uses crt;
var
  i : integer;
  n : integer;
begin
clrscr;
     write('Masukkan angka pengulangan = ');readln(n);
     i := 1;
     repeat
     writeln(i,'. SMK Marhas');
     i := i + 1;
     until i > n;
readkey;
end.

• PENJELASAN SOURCE CODE

Program pengulangan_kalimat;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   i : integer;     {Inisiasi Variabel}
   n : integer;     {Inisiasi Variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     write('Masukkan angka pengulangan = ');     {Cetak Masukkan angka pengulangan =}
     readln(n);     {Baca variabel n}
     i := 1;     {Nilai awal i}
     repeat     {Ulang kerjakan}
     writeln(i,'. SMK Marhas');     {Cetak variabel i, SMK Marhas}
     i := i + 1;     {Counter pertambahan i}
     until i > n;     {Pembatasan repeat}
readkey;     {Instruksi untuk menunggu}
end.     {Akhir instruksi program}

• PRINT SCREEN OUTPUT

Untuk mempermuda anda dalam mempelajari pemograman dengan menggunakan bahasa pascal, admin telah menyediakan file Source code, Penjelasan source code, Output program, Flowchart dari source code, serta file pascalnya. Anda dapat mendownloadnya secara gratis di link download di bawah ini.

• Title Program        : Pengulangan kalimat
• Source Code .pdf   : .:_Download_:.
• Flowchart .png      : .:_Download_:.
• Program .pas         : .:_Download_:.
• Password               : kamuspascal.blogspot.com

Jika anda tidak tahu bagaimana cara mendownload file-file diatas klik Disini, untuk mempelajarinya.