CONTOH PROGRAM BINTANG PADA PASCAL program bintang_segitiga; uses wincrt; var a,b,c: integer; begin readln(a); for b:=a downto 1 do begin for c:=1 to a do write('*'); writeln; a:=a-1; end; end. CONTOH PROGRAM BERBENTUK BINTANG MENURUN program bintang_turun; uses wincrt; var i,n,j:integer; begin write('jumlah n : '); readln (n); for i:=1 to n do begin for j:=1 to n do begin if (j
0 komentar:
Posting Komentar