計(jì)算機(jī)程式fortran77語言-資料下載頁
2024-07-30 11:10本頁面
【正文】 write(*,*)39。input a and b value39。 ? read(*,*)a,b ? sum=a+b ? write(*,1000)sum ? 1000 format (5x,39。sum of a and b equal to 39。,) ? stop ? end 39 ? write(*,*)39。input a and b value39。 ? write(*,*)39。 a =39。 ? read(*,*)a ? write(*,*)39。 b =39。 ? read(*,*)b ? sum=a+b ? write(*,1000)sum ? 1000 format(5x,39。sum of a amp。and b equal to 39。,) ? stop ? end 40 ? open(1,file=39。39。,status=39。old39。) ? open(11,file=39。39。,status=39。new39。) ? read(1,*)a,b ? sum=a+b ? write(11,1000)sum ? 1000 format(5x,39。Sum of a and b equal to 39。,) ? stop ? end 41 ? open(1,file=39。39。,status=39。old39。) ? open(6,file=39。39。,status=39。new39。) ? read(1,1001)a,b ? 1001 format() ? sum=a+b ? write(6,1000)sum ? 1000 format (5x,39。sum of a and b equal to 39。,) ? stop ? end 42 ? 100 write(*,*)39。 read the temperature in degrees of f39。 ? write(*,1001) ? 1001 format(5x,39。if f = 9999 then stop39。,/,5x,39。f=39。) ? read(*,*)f ? if (f .ge. 9999)stop ? c=(f32.)*5./9. ? write(*,1000)f,c ? 1000 format (2x,39。The temperature of (39。,39。) degree f is equal’, ? amp?！?to (39。,39。) degree c39。,//) ? go to 100 ? stop ? end 43 您可已曉得！ ?劇情如何發(fā)展！ ?敬請(qǐng)期待！
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1