実装リンク集 https://qiita.com/drken/items/6edb1c0542d4c3b7179c
問題一覧 https://abs.contest.atcoder.jp/assignments
PascalはおそらくIOが速い？言語で、A/B問題最速コードはPascalであることが多いです。0msも狙えます。
解答
Pascalの文法はVBに近い雰囲気です。
例題 PracticeA
readで読み込めます。
0.pas
program practiceA;
uses SysUtils;
var
a,b,c: integer;
s: string;
begin
read(a); // readlnにする必要はない
read(b);
readln(c);
readln(s);
writeln(IntToStr(a+b+c)+' '+s);
end.
第１問 ABC086A Product
Pascalにも3項演算子っぽいものはありますが、短絡しません。
1.pas
program ABC086A;
uses StrUtils;
var
a,b: integer;
begin
read(a);
read(b);
writeln(ifThen(a*b mod 2>0,'Odd','Even'));
end.
第２問 ABC081A Placing Marbles
Pascalの文字列は1-indexedです。
あと、forやifは全部複文形式で書いていますが、1文だけの場合はbegin-endで囲む必要はありませんので好みでどうぞ。
2.pas
program ABC081A;
var
s: string;
c,i: integer;
begin
read(s);
c:=0;
for i:=1 to 3 do begin
if s[i]='1' then begin
c:=c+1;
end;
end;
writeln(c);
end.
第３問 ABC081B Shift only
arrの各要素に対し2で割ることが出来た回数の最小値です。
INF値として1<<29が使われていますが、2倍してオーバーフローしない中で簡潔に書ける数として競技プログラミングではよく使われます。
Pascalでは、整数除算はdiv、剰余はmodです。
3.pas
program ABC081B;
var
i,n,x,r,r0: longint;
arr: array of integer;
begin
r:=1<<29;
read(n);
SetLength(arr,n);
for i:=0 to n-1 do begin
read(arr[i]);
end;
for i:=0 to n-1 do begin
r0:=0;
x:=arr[i];
while x mod 2 < 1 do begin
r0:=r0+1;
x:=x div 2;
end;
if r>r0 then begin
r:=r0;
end;
end;
writeln(r);
end.
第４問 ABC087B Coins
500円玉と100円玉の枚数を全探索します。
4.pas
program ABC087B;
var
a,b,c,x,i,j,k,r: integer;
begin
read(a);
read(b);
read(c);
read(x);
r:=0;
for i:=0 to x div 500 do begin
for j:=0 to (x-500*i) div 100 do begin k:=x-500*i-100*j;
if (k mod 50=0) and (c>=k div 50) and (a>=i) and (b>=j) then begin
r:=r+1;
end;
end;
end;
writeln(r);
end.
第５問 ABC083B Some Sums
変数sは各i(j)を10で割れるだけ割って、その間に出た余りの和です。
5.pas
program ABC083B;
var
n,a,b,r,i,j,s: integer;
begin
read(n);
read(a);
read(b);
r:=0;
for i:=1 to n do begin
s:=0;
j:=i;
while j>0 do begin
s:=s+(j mod 10);
j:=j div 10;
end;
if (a<=s) and (s<=b) then begin
r:=r+i;
end;
end;
writeln(r);
end.
第６問 ABC088B Card Game for Two
通常の配列にはソートが実装されていないため、TFPGListを使う必要があります。つらい…
降順でソートしたら、符号を切り替えながら足しこんでいきます。
6.pas
program ABC088B;
{$mode Delphi}
uses SysUtils,fgl;
(*
procedure reverse(var a:TFPGList<longint>;start:longint;size:longint);
var
en,i:longint;
z:longint;
begin
en:=start+size-1;
for i:=0 to trunc(size/2-1) do begin
z:=a[start+i];
a[start+i]:=a[en-i];
a[en-i]:=z;
end;
end;
*)
function intcompare(n1,n2:longint):longint;
begin
result:=n2-n1;
end;
var
n,i,r,t: longint;
arr: TFPGList<longint>;
begin
read(n);
arr:=TFPGList<longint>.Create();
for i:=0 to n-1 do begin
read(r);
arr.Add(r);
end;
arr.Sort(@intcompare);
// reverse(arr,0,arr.Count);
r:=0;
t:=1;
for i:=0 to n-1 do begin
r:=r+t*arr[i];
t:=-t;
end;
writeln(r);
end.
第７問 ABC085B Kagami Mochi
7.pas
program ABC085B;
{$mode Delphi}
uses SysUtils,fgl;
var
n,i,r: longint;
arr: TFPGMap<longint,integer>;
begin
read(n);
arr:=TFPGMap<longint,integer>.Create();
for i:=0 to n-1 do begin
read(r);
// arr.AddOrSetData(r,1); // AtCoderでは使用不可
arr.Remove(r);
arr.Add(r,1);
end;
writeln(arr.Count);
end.
第８問 ABC085C Otoshidama
1000円札と5000円札の枚数を全探索します。
exitはプログラム終了ではなく関数からリターンする意味になります。
https://www.freepascal.org/docs-html/rtl/system/exit.html
8.pas
program ABC085C;
uses SysUtils;
var
n,y,i,j,k: integer;
begin
read(n);
read(y);
for i:=0 to n do begin
for j:=0 to n-i do begin
k:=n-i-j;
if i*1000+j*5000+k*10000=y then begin
writeln(IntToStr(k)+' '+IntToStr(j)+' '+IntToStr(i));
exit;
end;
end;
end;
writeln('-1 -1 -1');
end.
第９問 ABC049C Daydream
Substringはcopyです。文字列長をチェックする必要はありません。
9.pas
program ABC049C;
uses StrUtils;
var
T: array[0..3] of string = ('dream','dreamer','erase','eraser');
s: string;
i,c,l,k: integer;
begin
for i:=0 to 3 do begin
T[i]:=ReverseString(T[i]);
end;
readln(s);
s:=ReverseString(s);
c:=0;
l:=Length(s);
while c<l do begin
k:=-1;
for i:=0 to 3 do begin
if copy(s,c+1,Length(T[i]))=T[i] then begin
k:=Length(T[i]);
end;
end;
if k<0 then begin
writeln('NO');
exit;
end;
c:=c+k;
end;
writeln('YES');
end.
第10問 ABC086C Traveling
dx+dyがdt以下かつdtとの偶奇が一致。
10.pas
program ABC086C;
var
i,n,t,x,y: integer;
t0,x0,y0,dt,dx,dy: integer;
begin
read(n);
t:=0;
x:=0;
y:=0;
for i:=1 to n do begin
read(t0);
read(x0);
read(y0);
dt:=t0-t;
dx:=x0-x;
dy:=y0-y;
if (dx+dy>dt) or ((dt-dx-dy) mod 2>0) then begin
writeln('No');
exit;
end;
t:=t0;
x:=x0;
y:=y0;
end;
writeln('Yes');
end.