つぎのプログラミングがわかりません。

質問

つぎのプログラミングがわかりません。
Tiny Basicでのプログラミングです。

(1)点数n(1～100)を引数にしたとき、その評価を返す関数とそれの使用例のプログラム。

但し、
0点～59点：不可
60点～69点：可
70点～79点：良
80点～89点：優
90点～100点：秀
とする。
関数名と引数は、Eval$(n)とする。

(2)
自然数nと素数pを入力したとき、nがpで何回割れるかと、割った商を返すプログラム。
それの使用例のプログラム。
但し、サブプログラム名と引数は、Getpexp(n,p,ep,q)とし、nに対して、pは素数、epはnをpで割れる回数、qはnをpで割れるだけ割った時の商を返す。
たとえば、Getpexp(693,3,ep,q)を呼ぶと、ep=2,q=77と返す。

よろしくお願いします。

回答No.1

edomin7777 · ベストアンサー

こんな感じ？

input "点数は";n
print Eval$(n)
input "nは";n
input "pは";p
Getpexp(n,p,ep,q)
print "ep=";ep
print "q =";q
function Eval$(n)
if n<=59 then
Eval$ = "不可"
elseif n<=69 then
Eval$ = "可"
elseif n<=79 then
Eval$ = "良"
elseif n<=89 then
Eval$ = "優"
else
Eval$ = "秀"
end if
end function

sub Getpexp(n,p,ep,q)
ep = 0
q = 0
temp2 = n
do
temp1 = temp2
temp2 = Int(temp1 / p)
ep = ep + 1
loop while (temp2 * p) = temp1
ep = ep - 1
q = temp1
end sub
end

回答No.2

edomin7777

＃１です。

自分で書いておいて補足するのも何ですが…、
・両方の課題を1つのプログラムで書きました。
・使用例は呼び出しているところです。
なお、
・TinyBASICは今日はじめて使用しました。
・なので、もっと綺麗な書き方が有ると思います。