uses crt;
var a,b,c : byte;
begin
clrscr;
write('Input Batas Bintang=');readln(b);
a:=1;
for c:=1 to b do
begin
write('*':a);
a:=a+3;
writeln;
end;
readln;
end.
layout
Share On
program bintang membentuk grs diagonal
program bintang;
uses crt;
var a,b,c : byte;
begin
clrscr;
write('Input Batas Bintang=');readln(b);
a:=1;
for c:=1 to b do
begin
write('*':a);
a:=a+3;
writeln;
end;
readln;
end.
layout
uses crt;
var a,b,c : byte;
begin
clrscr;
write('Input Batas Bintang=');readln(b);
a:=1;
for c:=1 to b do
begin
write('*':a);
a:=a+3;
writeln;
end;
readln;
end.
layout
No comments:
Post a Comment
Silahkan masukkan komentar sobat, komentar sobat sangat berarti buat saya