計算機言語:lecture3
差分
このページの2つのバージョン間の差分を表示します。
両方とも前のリビジョン前のリビジョン次のリビジョン | 前のリビジョン最新のリビジョン両方とも次のリビジョン | ||
計算機言語:lecture3 [2022/08/25 11:21] – 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; | ||
+ | } | ||
+ | </ | ||
+ | |||
+ | |||
; 定数 | ; 定数 | ||
: プログラム実行中に変化することのない「値」を保持するユーザ定義名前付オブジェクト | : プログラム実行中に変化することのない「値」を保持するユーザ定義名前付オブジェクト | ||
行 5: | 行 56: | ||
: プログラム実行中に変化する「値」を示すユーザ定義名前付オブジェクト | : プログラム実行中に変化する「値」を示すユーザ定義名前付オブジェクト | ||
+ | <code pascal> | ||
+ | (* program文の後、変数宣言文の前 *) | ||
+ | const 定数名 = 定数値; | ||
+ | const 定数名 = 定数値; 定数名 = 定数値; 定数名 = 定数値; {複数の定数を定義する場合} | ||
+ | </ | ||
+ | <code fortran> | ||
+ | C program文の後、変数宣言文の前簡単な演算も可能 | ||
+ | PARAMETER(定数名 = 定数値) | ||
+ | C 複数の定数を定義する場合 | ||
+ | PARAMETER(N = 10, M = 11) | ||
+ | PARAMETER(N = 10, M = N + 1) | ||
+ | PARAMETER(N = 10) | ||
+ | PARAMETER(M = N + 1) | ||
+ | |||
+ | </ | ||
+ | <code c> | ||
+ | /* 定数定義はマクロにより行う */ | ||
+ | #define 定数名 定数値 | ||
+ | #ifdef __小学生__ | ||
+ | #define PI 3.14 | ||
+ | #else | ||
+ | #define PI 3.141592 | ||
+ | # | ||
+ | </ | ||
+ | <code > | ||
+ | Pascal | ||
+ | const PI=3.141592; | ||
+ | FORTRAN | ||
+ | | ||
+ | # | ||
+ | |||
+ | </ |
計算機言語/lecture3.txt · 最終更新: 2022/08/25 11:45 by kimi