計算機言語:lecture3
差分
このページの2つのバージョン間の差分を表示します。
| 両方とも前のリビジョン前のリビジョン次のリビジョン | 前のリビジョン最新のリビジョン両方とも次のリビジョン | ||
| 計算機言語:lecture3 [2022/08/25 11:31] – kimi | 計算機言語:lecture3 [2022/08/25 11:43] – [FORTRAN] kimi | ||
|---|---|---|---|
| 行 1: | 行 1: | ||
| ====== 変数と定数 ====== | ====== 変数と定数 ====== | ||
| + | ===== 例題 ===== | ||
| + | 円柱の半径（$r$）と高さ（$h$）を読み込んで、その体積（$V$）と表面積（$S$）を表示するプログラムを作成せよ | ||
| + | $$ | ||
| + | V = \pi r^2 h | ||
| + | $$ | ||
| + | |||
| + | $$ | ||
| + | S = 2\pi r^2 + 2\pi rh = 2\pi r(r + h) | ||
| + | $$ | ||
| + | ==== Pascal ==== | ||
| + | <code pascal> | ||
| + | program cylind(input, | ||
| + | const pi = 3.141592; | ||
| + | var r, h, s, v: real; | ||
| + | begin | ||
| + | | ||
| + | writeln(r, h); | ||
| + | v := pi*r*r*h; | ||
| + | s := 2*pi*r*(r + h); | ||
| + | writeln(v, s); | ||
| + | end. | ||
| + | </ | ||
| + | ==== FORTRAN ==== | ||
| + | <code fortran> | ||
| + | PROGRAM CYLIND | ||
| + | PARAMETER (PI = 3.141592) | ||
| + | DOUBLE PRECISION R, H, S, V | ||
| + | READ (5, *) R, H | ||
| + | WRITE (6, *) R, H | ||
| + | V = PI*R*R*H | ||
| + | S = 2.0*PI*R*(R + H) | ||
| + | WRITE (6, *) V, S | ||
| + | STOP | ||
| + | END | ||
| + | </ | ||
| + | ==== c ==== | ||
| + | <code c> | ||
| + | #include < | ||
| + | #define PI 3.141592 | ||
| + | int main(void) { | ||
| + | double r, h, s, v; | ||
| + | scanf(" | ||
| + | printf(" | ||
| + | v = PI*r*r*h; | ||
| + | s = 2.0*PI*r*(r + h); | ||
| + | printf(" | ||
| + | return 0; | ||
| + | } | ||
| + | </ | ||
| + | |||
| + | |||
| ; 定数 | ; 定数 | ||
| : プログラム実行中に変化することのない「値」を保持するユーザ定義名前付オブジェクト | : プログラム実行中に変化することのない「値」を保持するユーザ定義名前付オブジェクト | ||
| 行 11: | 行 62: | ||
| </ | </ | ||
| <code fortran> | <code fortran> | ||
| - | C program文の後、変数宣言文の前簡単な演算も可能 | + | C program文の後、変数宣言文の前簡単な演算も可能 |
| PARAMETER(定数名 = 定数値) | PARAMETER(定数名 = 定数値) | ||
| - | C 複数の定数を定義する場合 | + | C 複数の定数を定義する場合 |
| PARAMETER(N = 10, M = 11) | PARAMETER(N = 10, M = 11) | ||
| PARAMETER(N = 10, M = N + 1) | PARAMETER(N = 10, M = N + 1) | ||
計算機言語/lecture3.txt · 最終更新: 2022/08/25 11:45 by kimi