Contoh Program Pascal Menggunakan While Do

Contoh Program Pascal Menggunakan While Do

Sobat, saya share Contoh Program Turbo Pascal menggunakan While Do. Ini adalah program perulangan dalam Turbo Pascal. Kodingan programnya berada dibawah ini beserta hasil atau outputnya.  Bila anda ada yang memerlukannya, silahkan saja gunakan scrift program dibawah ini yang mungkin anda memerlukanna untuk menghapal tugas kuliah atau untuk belajar sendiri atau juga untuk sekedar contoh buat tugas-tugas kuliah.

Program I
program perulangan;
uses crt;
var
a, b : interger;
begin
clrscr;
a:=1;
while a<=5 do
begin
b:=1;
while b<=a do
begin
write (b,' ');
b:=b+1;
end;
writeln;
a:=a+1;
end;
readln;
end.
Output
Contoh Program Pascal Menggunakan While Do

Program II

program perulangan ;
uses crt;
var
a, b : integer;
begin
clrscr;
a:=1;
while a<=5 do
begin
b:=1;
while b<=a do
begin
write ('*':3);
b:=b+1;
end;
writeln;
a:=a+1;
end;
readln;
end.
Output
Contoh Program Pascal Menggunakan While Do


Coba saja sobat semuanya !!
Perhatian Copas !!! "Mohon bagi anda para sahabat blog, jangan sekali-kali copy paste dengan tanpa mencantumkan link sumber kami dan menulis tanpa anda tulis dalam narasi atau kalimat anda sendiri saya akan mengapus url anda sesuai kebijakan privasi google DMCA/DMCA.com. Atas perhatiannya, saya ucapkan terimakasih."
Next
Previous

8 comments

  1. wuih mantep infnya sob, saya belum ngerti trik cara di atas, itu program atau apa sob.

    ReplyDelete
    Replies
    1. maaf sobat saya baru balas komentar anda...
      saya sangat sibuk ... hingga membalas komentarnya juga berbulan2 wkwkkwk
      itu program while do sobat... jadi bagian mana yg tidak anda mengerti sobat? :)

      Delete
  2. artikel yang menarik .

    thanks ya :)

    ReplyDelete
    Replies
    1. sama sama sob...
      terimakasih atas kunjungannya..
      sering-sring mampir sob.. hhe

      Delete
  3. boleh minta penjelasan logikanya pakai flowchart gak? dan pada bagian "while ('*':3) do" guna :3 untuk apa ya.. makasih sebelumnya sob :)

    ReplyDelete
    Replies
    1. itu write ('*':3) sob, write buat apa yg mau kita munculkan/tulis sob, sprti dari '*' itu yg dihasilkan adalah tanda bintang dan guna :3 itu buat memberi jarak (sepasi) dari kanan ke kiri angka tersebut...
      kalo pnjlasan logka dgn flowchat, maaf sya blm begitu mahir yg bgtu sob,,, takut salah sya mnjelskan nanti jadi sesat wwkkwkwk :D

      Delete
  4. yang atas jika outputnya seperti ini berarti di tambah dimana ?
    1
    12
    123
    1234
    12345
    gimana bro?

    ReplyDelete

aturan berkomentar pada blog ini !.
1. berkomentarlah dengan baik, sesuai konten yang dibahas dan berkualitas.
2. kalimat yang tidak berkenan saya akan hapus.
3. jika menaruh "LINK HIDUP" akan dimasukan ke folder spam.
4. dilarang mempromosikan produk melalui komentar.

Emoticon