08/06/10 18:48:57
>>363
とりあえず入出力はつくった。
計算式をよく考えろ。
program main
integer kahei(9)
integer kin
open (1,File='kahei.txt')
do 10 i=1,9
read(1,*) kahei(i)
10 continue
print *, "input kingaku"
read *, kin
do 20 i=1,9
write(6,'( i5, "yen ", i1, "mai" )') kahei(i), kin/kahei(i)
20 continue
end
kahei.txt
10000
5000
1000
500
100
50
10
5
1