25 Desember 2013

Cara Membuat Program Segitiga pascal

2 comments
Berikut Codingnya :
uses crt;
var
i,j,k:integer;
begin
clrscr;
write('masukkan banyak baris : '); readln(k);
for i:=1 to k do
begin
for j:=1 to k do
if j<=i then write('*');
writeln;
end;
readln;
end.
Jika tidak terjadi kesalahan maka outputnya akan seperti ini:

segitiga pascal

If You Enjoyed This, Take 5 Seconds To Share It

2 komentar: