明解Ｃ言語 入門編 > 5. 配列 > ５人の点数を読み込んで合計点と平均点を表示 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var score1, score2, score3, score4, score5: Integer; sum: Integer = 0; begin writeln('点数を入力してください…

明解Ｃ言語 入門編 > 4. プログラムの流れの繰り返し > 読み込んだ整数値までカウントアップ、０までカウントダウン (for文) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var no, i: Integer; begin write('正の整数を入力してください：'); …

明解Ｃ言語 入門編 > 4. プログラムの流れの繰り返し > 読み込んだ整数値を０までカウントダウン (while文) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var no: Integer; begin write('正の整数を入力してください：'); read(no); while (no…

明解Ｃ言語 入門編 > 4. プログラムの流れの繰り返し > １から５までの和を求めて表示 (初期化子) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var no: Integer = 1; sum: Integer = 0; begin repeat sum := sum + no; inc(no); until no > 5…

明解Ｃ言語 入門編 > 4. プログラムの流れの繰り返し > 読み込んだ整数値を逆順に表示 (do文) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var no, dig: Integer; begin repeat write('正の整数を入力してください：'); read(no); if (no < 0…

明解Ｃ言語 入門編 > 4. プログラムの流れの繰り返し > 読み込んだ整数値は奇数か偶数か (do文) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var cont, no: Integer; begin repeat write('整数を入力してください：'); read(no); if (no mod …

明解Ｃ言語 入門編 > 3. プログラムの流れと分岐 > 読み込んだ月の季節を表示 (switch文) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var month: Integer; begin write('何月ですか：'); read(month); case month of 3..5: writeln('春です…

明解Ｃ言語 入門編 > 3. プログラムの流れと分岐 > 読み込んだ月の季節を表示 (論理演算子) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var month: Integer; begin write('何月ですか：'); read(month); if (3 <= month) and (month <= 5) t…

明解Ｃ言語 入門編 > 3. プログラムの流れと分岐 > 読み込んだ２つの整数値の大きい方の値・小さい方の値を表示 (複合文) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var n1, n2, max, min: Integer; begin writeln('２つの整数を入力してく…

明解Ｃ言語 入門編 > 3. プログラムの流れと分岐 > 読み込んだ２つの整数値の大きい方の値を表示 (条件演算子) Delphi

明解Ｃ言語 入門編 > 3. プログラムの流れと分岐 > 読み込んだ整数値の符号を判定 (関係演算子) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var no: Integer; begin write('整数を入力してください：'); read(no); if (no = 0) then writeln…

明解Ｃ言語 入門編 > 3. プログラムの流れと分岐 > 読み込んだ２つの整数値は等しくないか (等価演算子) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var x1, x2: Integer; begin writeln('２つの整数を入力してください。'); write('整数１…

明解Ｃ言語 入門編 > 3. プログラムの流れと分岐 > 読み込んだ２つの整数値は等しいか (等価演算子) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var x1, x2: Integer; begin writeln('２つの整数を入力してください。'); write('整数１：');…

明解Ｃ言語 入門編 > 3. プログラムの流れと分岐 > 読み込んだ整数値は５で割り切れないか (if文) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var vx: Integer; begin write('整数を入力してください：'); read(vx); if (vx mod 5 = 0) then…

明解Ｃ言語 入門編 > 2. 演算と型 > 整数と浮動小数点数を書式化して表示 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; begin write(format('[%d]'#13#10, [123])); write(format('[%.4d]'#13#10, [123])); write(format('[%4d]'#13#10, [123]…

明解Ｃ言語 入門編 > 2. 演算と型 > 読み込んだ３つの整数値の合計値と平均値を表示 (キャスト) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var na, nb, nc: Integer; sum: Integer; avg: Double; begin writeln('３つの整数を入力してくだ…

明解Ｃ言語 入門編 > 2. 演算と型 > 読み込んだ２つの整数値の平均値を実数で表示 (キャスト) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var vx, vy: Integer; begin writeln('２つの整数を入力してください。'); write('整数Ａ：'); read(…

明解Ｃ言語 入門編 > 2. 演算と型 > 型と演算について確認する Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var n1, n2, n3, n4: Integer; d1, d2, d3, d4: Double; begin n1 := 5 div 2 ; // n2 := 5.0 div 2.0; // n3 := 5.0 div 2; // n4 …

明解Ｃ言語 入門編 > 2. 演算と型 > 読み込んだ２つの実数値の 和・差・積・商 を実数で表示 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var vx, vy: Double; begin writeln('２つの数を入力してください。'); write('実数vx：'); read(vx);…

明解Ｃ言語 入門編 > 2. 演算と型 > 整数と浮動小数点数 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var nx: Integer; dx: Double; begin nx := 9; dx := 9.99; write(format(' int 型変数nxの値：%d'#13#10, [nx])); write(format(' nx / 2…

明解Ｃ言語 入門編 > 2. 演算と型 > 読み込んだ２つの整数値の平均値を表示 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var vx, vy: Integer; begin writeln('２つの整数を入力してください。'); write('整数Ａ：'); read(vx); write('整数…

明解Ｃ言語 入門編 > 2. 演算と型 > 読み込んだ整数値の符号を反転して表示 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var num: Integer; begin write('整数を入力してください：'); read(num); write(format('符号を反転させた値は%dです…

明解Ｃ言語 入門編 > 2. 演算と型 > 読み込んだ２つの整数値の 商・剰余 を表示 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var vx, vy: Integer; begin writeln('２つの整数を入力してください。'); write('整数Ａ：'); read(vx); write('…

明解Ｃ言語 入門編 > 2. 演算と型 > 読み込んだ２つの整数値の 和・差・積・商・剰余 を表示 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var vx, vy: Integer; begin writeln('２つの整数を入力してください。'); write('整数１：'); read(v…

明解Ｃ言語 入門編 > 1. まずは慣れよう > 読み込んだ２つの整数値の和を表示 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var n1, n2: Integer; begin writeln('２つの整数を入力してください。'); write('整数１：'); read(n1); write('整…

明解Ｃ言語 入門編 > 1. まずは慣れよう > 読み込んだ整数の１０倍の値を表示 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var no: Integer; begin write('整数を入力してください：'); read(no); write(format('その数の１０倍は%dです。'#1…

明解Ｃ言語 入門編 > 1. まずは慣れよう > ２つの変数に整数値を格納して表示 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var vx, vy: Integer; begin vx := 57; vy := vx + 10; write(format('vxの値は%dです。'#13#10, [vx])); write(form…

明解Ｃ言語 入門編 > 1. まずは慣れよう > 整数値 15 と 37 の和を親切に表示する Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; begin write(format('15と37の和は%dです。'#13#10, [15 + 37])); end.実行結果 S:\>lesson002\project1.exe 15…

明解Ｃ言語 入門編 > 1. まずは慣れよう > 整数値 15 から 37 を引いた値を表示する Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils, begin write(format('%d', [15 - 37])); end.実行結果 S:\>lesson001\project1.exe -22

明解Ｃ言語 入門編 > 1. まずは慣れよう > 整数値 15 と 37 の和を表示する Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils, begin write(format('%d', [15 + 37])); end.実行結果 S:\>lesson000\project1.exe 52