Saturday, 20 June 2015

Looping Simbol bintang dari 1 sampai N (pascal)




uses crt;
var
n,y,x:integer;
begin
clrscr;
write('Masukan Bilangan: ');readln(n);
for y:=1 to n do
begin
for x:=1 to n do
begin
if (x<=y) then
write('*')
else
write(' ');
end;
writeln;
end;
readln;
end.

No comments :

Post a Comment