円柱の半径（$r$）と高さ（$h$）を読み込んで、その体積（$V$）と表面積（$S$）を表示するプログラムを作成せよ $$V = \pi r^2 h$$

$$S = 2\pi r^2 + 2\pi rh = 2\pi r(r + h)$$

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. 

      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 

#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; 
} 

定数

プログラム実行中に変化することのない「値」を保持するユーザ定義名前付オブジェクト

変数

プログラム実行中に変化する「値」を示すユーザ定義名前付オブジェクト

(* program文の後、変数宣言文の前 *)
const 定数名 = 定数値; 
const 定数名 = 定数値; 定数名 = 定数値; 定数名 = 定数値; {複数の定数を定義する場合}

C program文の後、変数宣言文の前簡単な演算も可能
      PARAMETER(定数名 = 定数値) 
C 複数の定数を定義する場合
      PARAMETER(N = 10, M = 11) 
      PARAMETER(N = 10, M = N + 1) 
      PARAMETER(N = 10) 
      PARAMETER(M = N + 1)

/* 定数定義はマクロにより行う */
#define 定数名 定数値 
#ifdef __小学生__ 
#define PI 3.14 
#else 
#define PI 3.141592 
#endif 

Pascal
 const PI=3.141592; 
FORTRAN
 PARAMETER (PI=3.141592)
 #define PI 3.141592