☆　練習問題　☆

☆　練習問題　☆

《　PDFファイルダウンロード　test.PDF(86KB)　》

【1】次の計算をコンピュータで計算し，画面上に表示するプログラムを作れ。

(1)

(2)

(3) ｜3×2-9｜
(4) sin120°（ただし，円周率はPIを用いよ）
(5) 315÷11 の整数部分
(6) x=3，y=5のとき，x²－y²

【2】2つの数値x，yを入力して，の値を表示するプログラムを作れ。

【3】底辺a，高さhの値を代入して，三角形の面積Sの値を表示するプログラムを作れ。

【4】次のプログラムは自然数 nの値を入力して，nの階乗n! の値を求めるものである。空欄を埋めよ。


INPUT PROMPT  "N=":N

LET  A=1

FOR I=1 TO N



　



NEXT I

PRINT A

END

【5】次のプログラムは2000以下の13の倍数の和を求め表示するものである。空欄を埋めよ。


LET  SUM=0

FOR I=13 TO 2000 STEP 13



　



NEXT I

PRINT SUM

END

【6】次のプログラムは2つの数値a，bを入力して，1次方程式 ax=b の解を表示するものである。空欄を埋めよ。


INPUT PROMPT  "A=":A

INPUT PROMPT  "B=":B

SELECT CASE A



　



END SELECT

END

【7】次のプログラムは10個の自然数を入力し，その平方の和を求め表示するものである。空欄を埋めよ。


LET  SUM=0

FOR I=1 TO 10



　



NEXT I

PRINT SUM

END

【8】次のプログラムは24の約数を求め表示するものである。空欄を埋めよ。ただし，MOD(x,y)でxをyで割ったときの余りを表すものとする。


LET  N=24

FOR I=1 TO N

   LET  R=MOD(N,I)



　



NEXT I

END

【9】次のプログラムは5個の数値を入力し，その最大値を求め表示するものである。空欄を埋めよ。ただし，自然数を入力するものとする。


LET  MAX=0

FOR I=1 TO 5

   INPUT A



　



NEXT I

PRINT MAX

END

【10】次のプログラムは5個の数値を入力し，それを昇順に整列して表示するものである。空欄を埋めよ。


DIM A(5)

FOR I = 1 To 5

   INPUT A(I)

Next I



　



FOR I = 1 TO 5

   PRINT A(I);

NEXT I

END

【11】次のプログラムについて，問いに答えよ。ただしA，Nには自然数を入力するものとする。


INPUT PROMPT  "A=":A

INPUT PROMPT  "N=":N

LET  S=0

FOR I=1 to N

   LET  A=A-3

   LET  S=S+A

   PRINT A,S

NEXT I

END

(1) Aに10，Nに8を入力するとき，3番目に表示されるAとSをいえ。
(2) Aに7，Nに8を入力したとき，AとSが2つとも負の数になるのは何番目か。また，そのときのAとSの値をいえ。

【12】次のプログラムについて，問いに答えよ。ただしN，Pには自然数を入力するものとする。


INPUT PROMPT  "N=":N

INPUT PROMPT  "P=":P

LET  K=1

FOR I=1 to N

   LET  K=K*I

   IF K>P THEN EXIT FOR

NEXT I

PRINT K

END

(1) Nに5，Pに10を入力するとき，表示されるKの値をいえ。
(2) Nに7，Pに5000を入力するとき，表示されるKの値をいえ。
(3) Nに8を入力したら720が表示された。このとき，Pに入力された最小の自然数をいえ。

【13】次のプログラムについて，問いに答えよ。ただしP，Qには自然数を入力するものとする。


INPUT PROMPT  "P=":P

INPUT PROMPT  "Q=":Q

LET  A=0

FOR I=1 TO P

   LET  K=4*I

   IF K>Q THEN LET  A=A+1

NEXT I

PRINT A/P

END

(1) Pに10，Qに23を入力するとき，表示される数を分数で表せ。
(2) Qに18を入力したとき，表示される数を分数で表すと 4/5 であった。このときPに入力された数は何か。
(3) Pに12を入力したとき，表示される数を分数で表すと 1/4 であった。このときQに入力された数は何か。

【14】次のプログラムは下の(1)～(3)の直線を描画するものである。それぞれのグラフに対して，空欄を埋めよ。ただし，PLOT LINES : x1 ,y1 ; x2 ,y2 で，2点(x₁ ,y₁), (x₂ ,y₂)を線分で結ぶものとする。


SET WINDOW -3,9,-1,16

DRAW AXES

LET  Y=0

FOR I=1 TO 5



　



   PLOT LINES : 0,Y;5,Y

NEXT I

END

(1)	(2)	(3)

【15】次のプログラムは関数 y=x³－2x²＋1 のグラフを描画するものである。空欄を埋めよ。ただし，PLOT LINES : x ,y ; で，指定された点を，順次線分で結んでいくものとする。


SET WINDOW -5,5,-5,5

DRAW GRID



　



END

【16】次のプログラムで右の図Figureを描画した。下の(1)～(3)は図Figureを変換したものであるが，それぞれ(*)の行をどのように書き換えればよいか。ただし，DRAW文ではWITHを用いて次の変形が可能とする。

SHIFT(a,b)　　　x軸方向にa，y軸方向にbだけ平行移動する。
SCALE(a,b)　　　x軸方向にa倍，y軸方向にb倍に拡大する。
ROTATE(a)　　　原点を中心としてaだけ回転する


SET WINDOW -3,7,-3,7

PICTURE Figure

    SET AREA COLOR 2

    PLOT AREA:  0,0; 3,0; 2,1; 0,1

END PICTURE

DRAW AXES

DRAW Figure         !･･･(*)

END

(1)	(2)	(3)