Membuat Program Perulanagan Bintang Pada Pascal

Berikut adalah listing program yang bisa kita gunakan unutk membuat perulangan pada bahasa pemrograman pascal.

Program perulangan;

uses crt; var

   i,j,n:integer;

begin
    clrscr;

    writeln('===========================');
    writeln('     Program Perulangan    ');
    writeln('===========================');
    writeln(' NAMA  : ARIE SAGITA       ');
    writeln(' NIM   : 18171065059       ');
    writeln('===========================');
    writeln;

    write('Masukan Jumlah Bintang : ');readln(n);
          for i:=1 to n do

    begin
          for j:=1 to i do

write('*');

          writeln;
    end;

    for i:=1 to n do
    begin

          for j:= 1 to n-i do
          write('*');
          writeln;

end;

readln; end.

Dan outputnya adalah 

Bagaimana, sangat mudah bukan.

Oke cukup sekian teman-teman, jangan lupa share kalo tutorial singkat ini bermanfaat.

Terimakasih

Membuat Program Data Mahasiswa Sederhana

Untuk membuat sebuah program data mahasiswa pada bahasa pemrograman di pascal, ada beberapa hal simple namun wajib diperhatikan dalam pemberian tanda titik atau koma, karena salah saat penulisan maka program tidak akan berjalan. nah langsung saja tanpa basa basi, berikut listing program yang kalian tulis di text editor pascal. 

program biodata_ariesagita; 

uses crt; 

var 

nama, kampus : string; 

npm : integer; 

 begin 

clrscr; 

writeln ('========== TUGAS MENAMPILKAN NAMA =========='); 

writeln ('============= IDENTITAS PRIBADI ============'); 

write(' NAMA : '); readln(nama); 

write(' NPM : '); readln(npm); 

write(' KAMPUS : '); readln(kampus); 

writeln ('=============== TERIMA KASIH ==============='); 

writeln; 

readkey; 

end. 

 Dan akan menampilkan output seperti dibawah ini.

cukup mudah bukan, ingat kita bukan memcari hal mudahnya, tapi seberapa paham kalian dari listing yang kita tuliskan pada text editor pascal tersebut. belajarlah dari hal kecil untuk menjadi besar. oke cukup sekian, sampai bertemu di postingan berikutnya...