pascal : pola segitiga II (kebalikkan dari yang pertama)

 Pola yang saya maksud kali ini adalah kebalikan dari pola yang pertama, yang sudah pernah saya bahas sebelumnya di sini.

ok, langsung saja, nanti bentuknya akan seperti ini :

*****
****
***
**
*

ini dia list scriptnya :


var a,b,c,d:integer;
begin
read(a);
c:=a;
for b:=1 to a do begin
for d:=1 to c do begin
write('*');
end;
writeln;
c:=c-1;
end;
end.

 Prinsipnya hampir sama seperti yang pertama, yang ada di sini. Yang beda hanya di sini variabel "c" nilainya sama dengan variabel "a" dan yang tadinya variabel "c" di operasikan seperti ini :

c:=c+1;

menjadi ini :

c:=c-1;


ok, sekian