program bintangkecil;
uses crt;
var
i,j,n:integer;
begin
clrscr;
writeln('masukan jumlah baris');
readln(n);
for i:=0 to n do
begin
for j:=1 to i do
write('*');
writeln;
end;
readkey;
end.
Berikut screenshoot nya :
Membuat bintang dengan pascal
Kali ini saya akan membagikan cara untuk membuat bintang berderet dengan menggunakan bahasa pemrograman pascal. Pada program ini menggunakan perulangan. semoga bisa menambah wawasan bagi para pembaca semuanya.
program bintangkecil;
uses crt;
var
i,j,n:integer;
begin
clrscr;
writeln('masukan jumlah baris');
readln(n);
for i:=0 to n do
begin
for j:=1 to i do
write('*');
writeln;
end;
readkey;
end.
program bintangkecil;
uses crt;
var
i,j,n:integer;
begin
clrscr;
writeln('masukan jumlah baris');
readln(n);
for i:=0 to n do
begin
for j:=1 to i do
write('*');
writeln;
end;
readkey;
end.
Post a Comment
This blog needed you to understand the word spam - never spam on this blog, although i will not moderate all of it, but you will learn it yourself, educate yourself