SST Lab Dokuwiki Header header picture

@surface

トレース:

計算機言語:lecture3

差分

このページの2つのバージョン間の差分を表示します。

この比較画面へのリンク

--- 計算機言語:lecture3 [2022/08/25 11:23] – 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, output);
+  const pi = 3.141592;
+  var r, h, s, v: real;
+  begin
+     read(r, h);
+      writeln(r, h);
+      v := pi*r*r*h;
+      s := 2*pi*r*(r + h);
+      writeln(v, s);
+  end.
+</code>
+==== 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
+</code>
+==== c ====
+<code c>
+#include <stdio.h>
+#define PI 3.141592
+int main(void) {
+    double r, h, s, v;
+    scanf("%lf %lf", &r, &h);
+    printf("%lf %lf\n", r, h);
+    v = PI*r*r*h;
+    s = 2.0*PI*r*(r + h);
+    printf("%lf %lf\n", v, s);
+    return 0;
+}
+</code>
   ; 定数
   : プログラム実行中に変化することのない「値」を保持するユーザ定義名前付オブジェクト
@@ 行 6: / 行 57: @@
 <code pascal>
-const 定数名 = 定数値; program文の後、変数宣言文の前
+(* program文の後、変数宣言文の前 *)
-複数の定数を定義する場合
+const 定数名 = 定数値;
-const 定数名 = 定数値;定数名 = 定数値;定数名 = 定数値;
+const 定数名 = 定数値; 定数名 = 定数値; 定数名 = 定数値; {複数の定数を定義する場合}
+</code>
+<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>
+<code c>
+/* 定数定義はマクロにより行う */
+#define 定数名 定数値
+#ifdef __小学生__
+#define PI 3.14
+#else
+#define PI 3.141592
+#endif
+</code>
+<code >
+Pascal
+ const PI=3.141592;
+FORTRAN
+ PARAMETER (PI=3.141592)
+ #define PI 3.141592
 </code>

計算機言語/lecture3.txt · 最終更新: 2022/08/25 11:45 by kimi