kali ini aku akan men share perihal source code untuk membentuk diamond memakai pascal. disini kita memakai cara for to do faktual dan for todo negatif . sebab windows di laptop aku tidak kompatibel dengan turbo pascal jadi aku mengakalinya dengan memakai DOS BOX. okey eksklusif saja silahkan liat karenanya akan menyerupai ini
sepakat eksklusif saja ini beliau kodenya :
jadwal 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 ialah menciptakan segitiga memakai for todo faktual dan negatif dari rata kanan
lihat karenanya menyerupai ini
source codenya:
jadwal 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 aku kali ini mohon maaf apabila ada kesalahan , agar sanggup membantu kallian semua dan agar kalian selalu membuka blog aku TERIMA KASIH ^^
jangan lupa tinggalkan komentar dan follow blog ini ^^.
Sumber http://sulaiman4fun.blogspot.com
EmoticonEmoticon