| Page | 誤 | 正 | |||
|---|---|---|---|---|---|
| 7 | プログラム２．１
| ・・・・・・X2=(-B-SQRT(D))/(2.0*A) 囲みは必要ありません。 | |||
| 7 | プログラム２．１ ・・・・・・X1=(-B+SQRT(D))/(2.0*A) ・・・・・・X2=(-B-SQRT(D))/(2.0*A) ・・200・WRITE(*,200)X1, X2 ・・・・・・FORMAT(4H X1=, F10.3, 8X, 3HX2=, F10.3) C・・・・・STOP ・・10 ・・・・・・RP=(-B)/(2.0*A) ・・・・・・IP=SQRT(-D)/(2.0*A) ・・210・WRITE(*,210)RP, IP ・・・・・&FORMAT(11H REAL PART=, F10.3, 8X, ・・・・・・16H IMAGINARY PART=,F10.3) C・・・・・STOP 「・」はスペースです。 |
・・・・・・X1=(-B+SQRT(D))/(2.0*A) ・・・・・・X2=(-B-SQRT(D))/(2.0*A) ・・・・・・WRITE(*,200)X1, X2 ・・200・FORMAT(4H X1=, F10.3, 8X, 3HX2=, F10.3) ・・・・・・STOP C ・・10・・RP=(-B)/(2.0*A) ・・・・・・IP=SQRT(-D)/(2.0*A) ・・・・・・WRITE(*,210)RP, IP ・・210・FORMAT(11H REAL PART=, F10.3, 8X, ・・・・・&16H IMAGINARY PART=,F10.3) ・・・・・・STOP C ・・・・・・END 文番号および「Ｃ」、「＆」の位置が変わります。 最後の２行が追加になります。 |