三四郎でストライク！！・・・【解答】

問題はこちらを参照

【解答・三四郎】

A1に・・・

=If((Row(A1)-6)^2<=(Col(A1)-6)^2,"*")

３７文字です。

【解答・Excel】

A1からK１１のうちの任意のセルに・・・

=LEFT("*",(ROW()-6)^2<=(COLUMN()-6)^2)

Comments

[投稿情報: 悪児]

やっぱり。(^^)(^^)

=If((Row(A1)-6)^2<=(Col(A1)-6)^2,"*")

=LEFT("*",(ROW()-6)^2<=(COLUMN()-6)^2)

三四郎もExcelも全く同じ。(^^)ゞ

[投稿情報: y sakuda]

提出版です（何の変哲もありませんが）
=IF((ROW()-6)^2＞(COLUMN()-6)^2,"","*")

ひねくり回して長くなった失敗作
=IF((ROW()-COLUMN())*(ROW()+COLUMN()-12)＞0,"","*")

[投稿情報: ジョー3]

同じ発想で、御免なさい
=IF((6-ROW())^2-(6-COLUMN())^2>0,"","*")

表示形式で　・・・
=(6-COLUMN())^2-(6-ROW())^2

何か、ないかなーーー

[投稿情報: かず]

やはり、皆さんと同じですね～

=COS(COLUMN()/2)-COS(ROW()/2)　なんて考えてみましたが、
ちょっと図形が崩れちゃいました。ｗ

[投稿情報: くまぷー]

あ、みなさん、どもです。(^。^)
やはり、だいたい同じですね。
どうみても「ピラミッド」の
お友達みたいなもんですからね～。

その中でも、かずさんの・・・
=COS(COLUMN()/2)-COS(ROW()/2)
・・・は図形が多少、異なってはいますが
おもろいです～。　

[投稿情報: y sakuda]

かずさんの面白い^^

[投稿情報: かず]

三角関数を使うなら、やはりPI()関数を無視できませんね。
=SIN(PI()*COLUMN()/12)-SIN(PI()*ROW()/12)
書式は、;"*";"*"
でも、41文字でした。

[投稿情報: ジョー3]

＞三角関数を使うなら、やはりPI()関数を＞無視できませんね。
おーーーーすばらしいです！！

[投稿情報: えくせるバカ]

私もくまぷーさんの解答例と同じです
みなさん色々工夫をされてるようなので
むりやり配列式の一例を・・・

A1：K11を選択状態で
A1に
　=MID(SUBSTITUTE(REPT(" ",11)," ",REPT("*",ABS(COLUMN()-6)*2+1),6-ABS(COLUMN()-6)),ROW(1:11),1)
と入力してCtrl+Shift+Enter

[投稿情報: くまぷー]

えくせるバカさん、どもです。

=MID(SUBSTITUTE(REPT(" ",11)," ",REPT("*",ABS(COLUMN()-6)*2+1),6-ABS(COLUMN()-6)),ROW(1:11),1)

・・・の式ですが・・・
Ctrl+Shift+Enterしないで
普通にコピペしてもいいような・・・。(^^ゞ

[投稿情報: えくせるバカ]

はい！そのとおりです
全部同じになるだけで
むりやりです(^^ゞ

[投稿情報: きっちー]

答えが同じになってしまったので、別のもの。

=If(Tan(Angle(Col(F6)*1.1-6.6,Row(F6)-6)+Pi()/4)>0,"*")

５５文字。

[投稿情報: えくせるバカ]

昨日の式は一例になっておらず
すいませんでした。m(__)m
なので・・・
一番シンプルな配列式の一例を
A1:K11を選択しておき
=REPT("*",{1;2;3;4;5;6;5;4;3;2;1}>{0;1;2;3;4;5;4;3;2;1;0})
　Ctrl+Shift+Enter

[投稿情報: えくせるバカ]

また、やってしまいました(~_~;)

右辺配列で「；」は「，」の間違いでした。
（正）
=REPT("*",{1;2;3;4;5;6;5;4;3;2;1}>{0,1,2,3,4,5,4,3,2,1,0})

[投稿情報: くまぷー]

きっちーさん、こんばんは。
＞=If(Tan(Angle(Col(F6)*1.1-6.6,Row(F6)-6)+Pi()/4)>0,"*")

おおおお、かずさんに続き、また三角関数だ～
上式の定数値「・・・*1.1-6.6」などは
試行錯誤で見つけてくるんですかね～？
それとも何か決まりでも？

[投稿情報: くまぷー]

えくせるバカさん、どもです。(^^ゞ
＞=REPT("*",{1;2;3;4;5;6;5;4;3;2;1}>{0,1,2,3,4,5,4,3,2,1,0})

とうとう、Row()やColumn()を使わない解答が！！
こんなのぜんぜん考えもしませんでした(^。^)

いろいろなやり方があるもんだ。
勉強になります。

[投稿情報: きっちー]

解説。
「*1.1」
これは、「＊」の並びがF6を中心に９０度内にないので、比率を変えて９０度範囲内の座標に変換しています。
セル数１１の１だけ差を作ると、
１１／（１１－１）　→　１．１

Angle 関数は、Ｘ座標とＹ座標の両方に、
同時に０を指定するとエラーになりますが、

(Col(F6)*1.1-6.6, Row(F6)-6)

この式を手計算すると、(0,0) となるのですが、
実際は、(0.00000000000000088817842,0)
演算誤差でエラーを回避しています。
というか偶然、誤差が。(^^)
これでわかるかなぁ・・・。

[投稿情報: くまぷー]

きっちーさん、わざわざ解説どもです(^^ゞ

でも最初の・・・

＞これは、「＊」の並びがF6を中心に９０度内にないので

・・・の部分で即、脱落してしまいました(^^ゞ