from Alfan
NO.6
program segitiga;
uses crt;
var a,b,klm:integer;
begin
clrscr;
a:=1;
klm:=20;
while a<=7 do
begin
gotoxy(klm,a);
for b:=1to a do
write(‘*’);
writeln;
a:=a+1;
klm:=klm-1;
end;
readln;
end.
Hasil Run:
*
* *
* * *
* * * *
* * * * *
NO.13
program segitiga;
uses crt;
var a,b,klm:integer;
begin
clrscr;
a:=1;
klm:=10;
while a<=7 do
begin
gotoxy(klm,a);
for b:=1to a do
write(‘*’);
writeln;
a:=a+1;
klm:=klm-1;
end;
a:=1;
while a<=7 do
begin
gotoxy(15,a);
for b:=7 downto a do
write(‘*’);
writeln;
a:=a+1;
end;
readln;
end.
hasil run:
Leave a comment