『明解Ｃ言語 入門編』 in Delphi 柴田望洋『明解C言語 入門編』を Delphi で実装してみます。 1. まずは慣れよう 000.整数値 15 と 37 の和を表示する 001.整数値 15 から 37 を引いた値を表示する 002.整数値 15 と 37 の和を親切に表示する 003.２つの変…

明解Ｃ言語 入門編 > 12. 構造体 > ポインタのソート Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;const NINSU = 5;type TStudent = record name: array[0..19] of Char; height: Integer; weight: Real; end; PStudent = ^TStudent; TCharArr…

明解Ｃ言語 入門編 > 12. 構造体 > 構造体の動的配列 (realloc) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;const NINSU = 5;type TStudent = record name: array[0..19] of Char; height: Integer; weight: Real; end; TCompare = function …

明解Ｃ言語 入門編 > 12. 構造体 > 構造体の動的配列 (malloc) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;const NINSU = 5;type TStudent = record name: String; height: Integer; weight: Real; end;type TCompare = function (x:TStudent…

明解Ｃ言語 入門編 > 12. 構造体 > ５人の学生を 身長・体重で ソート (関数ポインタ) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;const NINSU = 5;type TStudent = record name: String; height: Integer; weight: Real; end;type TCompare …

明解Ｃ言語 入門編 > 12. 構造体 > ５人の学生を 身長で ソート (構造体) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;const NINSU = 5;type TStudent = record name: String; height: Integer; weight: Real; end;procedure swap(var x:TStud…

明解Ｃ言語 入門編 > 12. 構造体 > 構造体を返す関数 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;type TStudent = record name: String; height: Integer; weight: Real; end;function hiroko(name:String; height:Integer; weight:Real):TSt…

明解Ｃ言語 入門編 > 12. 構造体 > 構造体と typedef Delphi

明解Ｃ言語 入門編 > 12. 構造体 > -> 演算子 Delphi

明解Ｃ言語 入門編 > 12. 構造体 > 構造体の受け渡し Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;type TStudent = record name: String; height: Integer; weight: Real; end;procedure hiroko(var std:TStudent); begin std.height := 180; …

明解Ｃ言語 入門編 > 12. 構造体 > 構造体のメンバの初期化 Delphi 実行結果 Perl %sanaka = (name => "Sanaka", height => 175, weight => 60.5); printf("氏名：%s\n", $sanaka{"name"}); printf("身長：%d\n", $sanaka{"height"}); printf("体重：%f\n", …

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