FORTRAN II
レス数が900を超えています。1000を超えると表示できなくなるよ。
0910909の続き
NGNGn = fscanf(fp_in, "%d%d", &gen, &kob);
if(n != 2) {
if(n != EOF) {
printf("fscanf error.\n");
}
break;
}
average = (int)(
( (float)(gen + kob) / 2.0 )
+ 0.5
);
n = fprintf(fp_out, "%d %d %d\n", gen, kob, average);
if(n < 0) {
printf("fprintf error.\n");
break;
}
}
fclose(fp_in);
fclose(fp_out);
}
プログラム1で現国と古文の点数を入力し、プログラム2でその平均点を出力するという問題を解きたいんですが、
FORTARNでのプログラム2がどうにもうまくいきません。
何方か上記のCのプログラムをFORTARNに翻訳して下さい。
どうかよろしくお願いします。
レス数が900を超えています。1000を超えると表示できなくなるよ。