Skip to content

Instantly share code, notes, and snippets.

@freeonterminate

freeonterminate/半沢直樹.pas

Last active December 23, 2015 14:19
Show Gist options
  • Save freeonterminate/6648491 to your computer and use it in GitHub Desktop.
Save freeonterminate/6648491 to your computer and use it in GitHub Desktop.
Download ZIP
半沢直樹ヘルパー
Raw
半沢直樹.pas
program 半沢直樹;
uses
System.SysUtils;
type
T半沢直樹 = record helper for Single
function 倍返し: Double;
end;
function T半沢直樹.倍返し: Double;
begin
Result := Self * 2;
end;
var
被ダメージ率: Single;
begin
被ダメージ率 := 1.0;
Writeln(被ダメージ率.倍返し);
Readln;
end.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment