明解Ｃ言語 入門編 > 9. 文字列の基本 > 文字列の配列 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;procedure main(); var cs: array[1..3] of String; i: Integer; begin cs[1] := 'Turbo'; cs[2] := 'NA'; cs[3] := 'DOHC'; for i := 1 to 3…

明解Ｃ言語 入門編 > 9. 文字列の基本 > 文字列を読み込み、書式化して表示 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;procedure main(); var str: String; begin write('文字を入力してください：'); read(str); Writeln(Format('%s', [str…

明解Ｃ言語 入門編 > 9. 文字列の基本 > 文字列を格納する配列 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;var str1: String = 'ABC';procedure main(); var str2: String; str3: String; begin Writeln(Format('str1 = %s', [str1])); str2 …

明解Ｃ言語 入門編 > 9. 文字列の基本 > 文字列リテラルの大きさを表示する Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;procedure main(); begin Writeln(Format('sizeof("123") = %d', [SizeOf('123')])); Writeln(Format('sizeof("AB\tC") …

明解Ｃ言語 入門編 > 8. いろいろなプログラムを作ってみよう > 標準入力からの入力を標準出力にコピーする Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;procedure main(); var s: String; begin while (not Eof) do begin readln(s); writeln…

明解Ｃ言語 入門編 > 8. いろいろなプログラムを作ってみよう > 標準入力からの入力に現れた数字をカウントする (ver.2) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;procedure main(); var i, j: Integer; s: String; cnt: array[0..9] of In…

明解Ｃ言語 入門編 > 8. いろいろなプログラムを作ってみよう > 標準入力からの入力に現れた数字をカウントする Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;procedure main(); var i: Integer; s: String; cnt: array[0..9] of Integer; begi…

明解Ｃ言語 入門編 > 8. いろいろなプログラムを作ってみよう > 最大公約数を求める (再帰) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;function gcdf(vx:Integer; vy:Integer):Integer; begin if vy = 0 then result := vx else result := g…

明解Ｃ言語 入門編 > 8. いろいろなプログラムを作ってみよう > 階乗を求める (再帰) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;function factorial(n:Integer):Integer; begin if n > 0 then result := n * factorial(n -1) else result :=…

明解Ｃ言語 入門編 > 8. いろいろなプログラムを作ってみよう > 選ばれた動物の鳴き声を表示 (列挙体) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;type TAnimal = ( Dog , Cat , Monkey , Invalid );procedure dog(); begin writeln('ワンワ…

明解Ｃ言語 入門編 > 8. いろいろなプログラムを作ってみよう > 警報を発しながら表示を行うマクロ (カンマ演算子) Delphi

明解Ｃ言語 入門編 > 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…