明解Ｃ言語 入門編 > 8. いろいろなプログラムを作ってみよう > 整数の２乗と浮動小数点数２乗 (関数マクロ) Delphi

明解Ｃ言語 入門編 > 7. 基本型 > 型の表現範囲を表示 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils, Math;procedure main(); var a: Shortint; b: Smallint; c: Longint; d: Byte; e: Word; f: Integer; g: Cardinal; o: Single; p: Double; q…

明解Ｃ言語 入門編 > 7. 基本型 > 型や変数の大きさを表示 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;procedure main(); var a: Shortint; b: Smallint; c: Longint; d: Byte; e: Word; f: Integer; g: Cardinal; h: Boolean; i: ByteBool; …

明解Ｃ言語 入門編 > 7. 基本型 > ビットシフト Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;function count_bits(x:Longword):Integer; var count:Integer; begin count := 0; while (x <> 0) do begin if x and 1 <> 0 then inc(count); x :…

明解Ｃ言語 入門編 > 7. 基本型 > 論理和・論理積・排他的論理和 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;function count_bits(x:Longword):Integer; var count:Integer; begin count := 0; while (x <> 0) do begin if x and 1 <> 0 then…

明解Ｃ言語 入門編 > 7. 基本型 > ビット構成を表示する Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;var x:Longword;function count_bits(x:Longword):Integer; var count:Integer; begin count := 0; while (x <> 0) do begin if x and 1 <>…

明解Ｃ言語 入門編 > 6. 関数 > 暗黙の初期化 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;var fx: Integer;procedure func(); const // sx: integer; 初期値を指定しなければいけない sx: Integer = 0; var ax: Integer; begin writeln(forma…

明解Ｃ言語 入門編 > 6. 関数 > 自動記憶域期間 と 静的記憶域期間 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;var fx: Integer = 0; i: Integer;procedure func(); const sx: Integer = 0; var // ax: integer = 0; ローカル変数は初期化で…

明解Ｃ言語 入門編 > 6. 関数 > 識別子の有効範囲を確認する Delphi

明解Ｃ言語 入門編 > 6. 関数 > 多次元配列の受け渡し Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;type TMyArray = array[1..2, 1..3] of Integer;procedure mat_add(const ma:TMyArray; const mb:TMyArray; var mc:TMyArray); var i, j: Int…

明解Ｃ言語 入門編 > 6. 関数 > 逐次探索 (番兵) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;const NINSU = 5; FAILED = -1;function search(ary:array of Integer; const key: Integer):Integer; var i: Integer; begin ary[High(ary)] := k…

明解Ｃ言語 入門編 > 6. 関数 > 逐次探索 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;const NINSU = 5; FAILED = -1;function search(const ary:array of Integer; const key: Integer):Integer; var i: Integer; begin result := FAILED; fo…

明解Ｃ言語 入門編 > 6. 関数 > 受け取った配列への書き込み Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;procedure int_set1(vc:array of Integer; no: Integer); var i: Integer; begin for i := Low(vc) to High(vc) do vc[i] := i; no := …

明解Ｃ言語 入門編 > 6. 関数 > 配列の受け渡し Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;function max_of(vc:array of Integer): Integer; var i: Integer; begin result := vc[0]; for i := Low(vc) to High(vc) do if vc[i] > result th…

明解Ｃ言語 入門編 > 6. 関数 > 関数プロトタイプ Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;function max3():Integer; forward;var n1, n2, n3: Integer;procedure main(); begin Writeln('３つの整数を入力してください。'); write('整数…

明解Ｃ言語 入門編 > 6. 関数 > 値を返さない関数・仮引数を受け取らない関数 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;var n1, n2, n3: Integer;procedure max3(); var max: Integer; begin max := n1; if n2 > max then max := n2; if n3…

明解Ｃ言語 入門編 > 6. 関数 > 読み込んだ３つの整数値の最大値を返す関数 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;function max3(x: Integer; y: Integer; z: Integer): Integer; begin result := x; if y > result then result := y; i…

明解Ｃ言語 入門編 > 6. 関数 > 読み込んだ２つの整数値の大きい方の値を返す関数 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;function maxof(x: Integer; y: Integer): Integer; begin if x > y then result := x else result := y; end;var…

明解Ｃ言語 入門編 > 5. 配列 > 素数を求める (ver.5) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var i, j, no: Integer; prime: array[0..14] of Integer; ptr: Integer = 0; counter: Integer = 0; begin prime[ptr] := 2; inc(ptr); pri…

明解Ｃ言語 入門編 > 5. 配列 > 素数を求める (ver.4) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var i, j, no: Integer; prime: array[0..14] of Integer; ptr: Integer = 0; counter: Integer = 0; begin prime[ptr] := 2; inc(ptr); pri…

明解Ｃ言語 入門編 > 5. 配列 > 素数を求める (ver.3) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var i, j, k, n, no: Integer; counter: Integer = 0; begin no := 2; writeln(format('%d', [no])); { 素数 } for k := 1 to 14 do begin n…

明解Ｃ言語 入門編 > 5. 配列 > 素数を求める (ver.2) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var i, j, k, no: Integer; counter: Integer = 0; begin no := 2; writeln(format('%d', [no])); { 素数 } for k := 1 to 14 do begin no :…

明解Ｃ言語 入門編 > 5. 配列 > 素数を求める (ver.1) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var i, j, no: Integer; counter: Integer = 0; begin for no := 2 to 30 do begin j := 0; for i := 2 to no - 1 do begin inc(counter); i…

明解Ｃ言語 入門編 > 5. 配列 > ２行３列の行列を加算する (多次元配列) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var i, j: Integer; ma: array[1..2] of array[1..3] of Integer = ((1, 2, 3), (4, 5, 6)); mb: array[1..2] of array[1.…

明解Ｃ言語 入門編 > 5. 配列 > 配列の要素に値を読み込む (代入式) Delphi

明解Ｃ言語 入門編 > 5. 配列 > 配列の要素に値を読み込む (#define) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; const NINSU = 5; var i: Integer; score: array[1..NINSU] of Integer; sum: Integer = 0; begin writeln('点数を入力してく…

明解Ｃ言語 入門編 > 5. 配列 > 配列の要素に値を読み込む Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var i: Integer; score: array[1..5] of Integer; sum: Integer = 0; begin writeln('点数を入力してください。'); for i := 1 to 5 do …

明解Ｃ言語 入門編 > 5. 配列 > 配列のコピー Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var i: Integer; va: array[1..5] of Integer = (1, 2, 3, 4, 5); vb: array[1..5] of Integer; begin for i := 1 to 5 do vb[i] := va[i]; writeln(…

明解Ｃ言語 入門編 > 5. 配列 > 配列の各要素に先頭から順に １，２，３，４ を代入して表示 (初期化子の足りない要素) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var i: Integer; score: array[1..5] of Integer = (1, 2, 3, 4, 0); begin…

明解Ｃ言語 入門編 > 5. 配列 > 配列の各要素に先頭から順に １，２，３，４，５ を代入して表示 (for文) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var i: Integer; score: array[1..5] of Integer; begin for i := 1 to 5 do score[i] :=…