Cara Membuat Segitiga Pascal
Ok kalini kita akan membuat program segitiga pada pascal langsung saja kita buka pascallalu kita masukan perintah seperti dalam tabel
Program Segitiga; uses crt; var i,j,k,bil:integer; Begin clrscr; write('================'); write('Membuat Segitiga'); write('================'); writeln('Masukan Angka Untuk Membuat Segitiga :'); readln(bil); for i:=1 to bil do {perulangan dari 1 Sampai Jumlah angka yang dimasukan} end; for j:=bil downto i do {perulangan untuk jarak/spasi} begin write(' '); end; for k:=1 to i+i-1 {perulangan untuk membuat segitiga} begin write('*') end; Writeln; end; readln; End. |
Lalu Compile (Ctrl+F9)
Jika sudah Di Compile lalu Run (Alt+F9)
Terima Kasih
Terima Kritik dan Saran !!!
Tidak ada komentar:
Posting Komentar