明解Ｃ言語 入門編 > 12. 構造体 > 構造体 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;type TStudent = record name: String; height: Integer; weight: Real; end;procedure main(); var sanaka: TStudent; begin sanaka.name := 'Sanaka'; …

明解Ｃ言語 入門編 > 12. 構造体 > ５人の学生を 身長で ソート (配列) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;const NINSU = 5;procedure swap(var nx:Integer; var ny:Integer); var tmp: Integer; begin tmp := nx; nx := ny; ny := t…

明解Ｃ言語 入門編 > 12. 構造体 > ５人の学生の身長を ソート Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;const NINSU = 5;procedure swap(var nx:Integer; var ny:Integer); var tmp: Integer; begin tmp := nx; nx := ny; ny := tmp; end;…

明解Ｃ言語 入門編 > 11. 文字列とポインタ > さまざまな文字列操作 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils, StrUtils;procedure main(); const st1: String = '1234567890'; st2: String = 'ABCDE'; pt1: array[0..255] of Char = '1234…

明解Ｃ言語 入門編 > 11. 文字列とポインタ > 指定した文字数だけ、文字列をコピー Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;function str_ncpy(d:PChar; s:PChar; n:Integer):PChar; var i, j: Integer; begin result := d; j:= 1; for i …

明解Ｃ言語 入門編 > 11. 文字列とポインタ > 文字列のコピー Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;function str_cpy(d:PChar; s:PChar):PChar; begin result := d; repeat d^ := s^; Inc(s); Inc(d); until (s^ = #0); d^ := s^; { \0…

明解Ｃ言語 入門編 > 11. 文字列とポインタ > 文字列の長さを調べる Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;function str_length(str:PChar):Integer; begin result := 0; while (str^ <> #0) do begin Inc(str); Inc(result); end; end;…

明解Ｃ言語 入門編 > 11. 文字列とポインタ > 「配列で実現する文字列」の配列と、「ポインタで実現する文字列」の配列 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;procedure main(); const str: array[1..3] of String = ('Turbo', 'NA', 'D…

明解Ｃ言語 入門編 > 11. 文字列とポインタ > 配列で実現する文字列と、ポインタで実現する文字列との、違い (文字列の代入) Delphi

明解Ｃ言語 入門編 > 11. 文字列とポインタ > 配列で実現する文字列と、ポインタで実現する文字列との、共通点 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;procedure main(); var str: String; ptr: array[0..255] of Char; i: Integer; j: P…

明解Ｃ言語 入門編 > 11. 文字列とポインタ > 配列で実現する文字列と、ポインタで実現する文字列 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;procedure main(); var str: String; ptr: array[0..255] of Char; begin str := 'ABC'; ptr := '…

明解Ｃ言語 入門編 > 10. ポインタ > 配列の受け渡し Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;procedure int_set(vc:PInteger; min: Integer; max: Integer); var i: Integer; begin for i := min to max do begin vc^ := i; Inc(vc); end…

明解Ｃ言語 入門編 > 10. ポインタ > 配列とポインタ Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;procedure main(); var i: Integer; vc: array[1..5] of Integer; ptr: ^Integer; begin vc[1] := 10; vc[2] := 20; vc[3] := 30; vc[4] := 40…

明解Ｃ言語 入門編 > 10. ポインタ > ２つの値を交換する Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;procedure swap1(nx:Integer; ny:Integer); var tmp: Integer; begin tmp := nx; nx := ny; ny := tmp; end;procedure swap2(var nx:Integ…

明解Ｃ言語 入門編 > 9. 文字列の基本 > 大文字・小文字の変換 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;procedure str_toupper(var st:String); begin st := UpperCase(st); end;procedure str_tolower(var st:String); begin st := Lower…

明解Ｃ言語 入門編 > 9. 文字列の基本 > 文字列の配列を受け渡し Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;procedure put_strary(st:array of String); var i, j: Integer; begin for i := Low(st) to High(st) do begin write(Format('st[…

明解Ｃ言語 入門編 > 9. 文字列の基本 > 文字列内の数字の出現回数を数える Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;procedure main(); var i, j: Integer; str: String; cnt: array[0..9] of Integer; begin str := '3.14159265358979328…

明解Ｃ言語 入門編 > 9. 文字列の基本 > 文字列の走査 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;procedure put_string(str:String); var i: Integer; begin for i := 1 to Length(str) do write(str[i]); end;procedure main(); var str: S…

明解Ｃ言語 入門編 > 9. 文字列の基本 > 文字列の長さを調べる Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;procedure main(); var str: String; begin str := 'ABC'; Writeln(Format('length(''%s'') = %d', [str, Length(str)])); end;begin…

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