2018-05-06から1日間の記事一覧
procedure とか functionの使い方を思い出す為に無駄に分割してみた。 program sim2; uses sysutils; function argchk(c : integer) :boolean; var result : boolean; begin if c=2 then result := true else begin result:=false; if c<2 then writeln('Mis…
procedure とか functionの使い方を思い出す為に無駄に分割してみた。 program sim2; uses sysutils; function argchk(c : integer) :boolean; var result : boolean; begin if c=2 then result := true else begin result:=false; if c<2 then writeln('Mis…