Pages

Thursday, 22 January 2015

TUGAS MATA KULIAH

SAYA ORANG BODOH JADI BELAJAR DEH
==============================================
Alhamdullilah aku ucapkan puji syukur kehadiran Allah yang sudah menyelesaikan tugas ku
karena tanpa pertolongannya tugasku ini tidak akan pernah selesai karna aku itu manusia yang bodoh
persis lagunya ada band.
=================================
ok. langsung saja kita lihat secript di bawah ini :

Program segitiga_bintang;                                
Uses Wincrt;                                                   
Var i,j,n:integer;                                               
Begin                                                                
Writeln('Program Menampilkan Bintang');             
Writeln('===========================');    
Writeln;                                                             
Write('Masukkan Jumlah Baris: ');readln(n);
For i:= 1 to n do
Begin
For j:= 1 to i do
Write('*');
Writeln;
End;
End.

akan muncul Outnya seperti ini 


0 comments:

Post a Comment