kali ini saya akan men share tentang source code untuk membentuk diamond menggunakan pascal. disini kita menggunakan cara for to do positif dan for todo negatif . karena windows di laptop saya tidak kompatibel dengan turbo pascal jadi saya mengakalinya dengan menggunakan DOS BOX. okey langsung saja silahkan liat hasilnya akan seperti ini
oke langsung saja ini dia kodenya :
program Bintang;
uses crt;
var x,y :integer;
begin
clrscr;
for x:=1 to 4do
begin
for y:=1 to 4-x do
begin
write (' ');
end;
for y:=x downto 1 do
begin
write('* ');
end;
writeln;
end;
for x:=1 to 3do
begin
for y:=2 downto 3-x do
begin
write (' ');
end;
for y:=x to 3 do
begin
write('* ');
end;
writeln;
end;
readln;
end.
yang kedua adalah membuat segitiga menggunakan for todo positif dan negatif dari rata kanan
lihat hasilnya seperti ini
source codenya:
program Bintang;
uses crt;
var x,y :integer;
begin
clrscr;
for x:=1 to 4do
begin
for y:=1 to 4-x do
begin
write (' ');
end;
for y:=x downto 1 do
begin
write('*');
end;
writeln;
end;
for x:=1 to 3do
begin
for y:=2 downto 3-x do
begin
write (' ');
end;
for y:=x to 3 do
begin
write('*');
end;
writeln;
end;
readln;
end.
okey mungkin cukup segitu saja postingan saya kali ini mohon maaf apabila ada kesalahan , semoga dapat membantu kallian semua dan semoga kalian selalu membuka blog saya TERIMA KASIH ^^
jangan lupa tinggalkan komentar dan follow blog ini ^^.
4 comments:
nice, keep posting :)
tpi klo disuruh bwt pinggirannya doang(frame) gimana gan ? pusing ane mikirin tugas bikin frame segitiga
Minta programnya
Kok gak bisa kode programanya
Post a Comment