25 Desember 2013

Cara Membuat Program Segitiga pascal

By Wiwit keni 12/25/2013 3 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

3 komentar:

  1. esmita purba30 Januari, 2016

    menguji bgt

    BalasHapus
  2. Wiwit keni02 Februari, 2016

    iya dong harus diuji

    BalasHapus
  3. Sorenson06 Desember, 2020

    The table compares interest savings if someone makes additional payments of $50, $100, and $250 month after month. mortgage calculator With over 5 numerous years of service within the financial industry, I look toward providing you with professional financial advice and exceptional customer satisfaction. canadian mortgage calculator

    BalasHapus