|
<![CDATA[
<SCRIPT LANGUAGE="JavaScript">
<!--
document.write("幾何模様を描く<BR>");
num = prompt("Please Input Number ?","");
document.write("Number=",num,"<BR><BR>");
]]>変数の宣言<![CDATA[
sp = " ";
sl = "/";
at = "*";
co = (num-1)/2;
co1 = 1;
num1 = num-1;
co2 =num-2;
document.write("<PRE>");
document.write("sp=",sp,",sl=",sl,",at=",at,"<BR>");
document.write("TEST LINE<BR>");
]]>上半分ループ設定<![CDATA[
for (cntl = 1; cntl <= num; cntl++) {
for (cntc = 1; cntc <= co; cntc++)
document.write(sp);
for (cntc = 1; cntc <= 2*cntl-1; cntc++)
document.write(at);
document.write("<BR>");
num--;
co--;
}
]]>下半分ループ<![CDATA[
for (cntl = 1; cntl <= num1; cntl++) {
for (cntc = 1; cntc <= co1; cntc++)
document.write(sp);
for (cntc = 1; cntc <= co2; cntc++)
document.write(at);
document.write("<BR>");
co1++;
co2--;
co2--;
}
document.write("</PRE>");
-->
</SCRIPT>
]]>
|
このスクリプトは、菱形を描くためのものである。
上半分ループで上向き三角形を作る。最初の行の空白数は、
入力された値をNとすると、(n-1)/2であるので、
それを変数coに格納し、その分の空白を得る。
つづいて、アスタリスクを式2*A-1(Aは大ループの変数)で得て、
出力し、繰り返す。
そして下半分ループで下向き三角形を作り、
結合させて菱形を得る。
入力された文字Nから1を引いた値を用意し、段落用の条件とする。
空白のインクリメント用変数co1とアスタリスクの
デクリメント用変数co2を用意し、それぞれインクリメント
デクリメントしながら下三角を作ってゆく。
|