- 508 名前：デフォルトの名無しさん mailto:sage [2007/06/25(月) 23:25:06 ]
- なんとなく年号のテーブルがずれてる気がした。
program gengou;
{$APPTYPE CONSOLE}
var a, i: integer;
const
era: array[0..3] of Integer = (1989, 1926, 1912, 1868);
eraname: array[0..3] of array[0..10] of char = ('平成', '昭和', '明治', '大正');
begin
readln(a);
writeln('西暦', a, '年の元号は：');
for i := 0 to 3 do
if a >= era[i] then
begin
writeln(eraname[i], a - era[i] + 1, '年');
if a = era[i] then
writeln(eraname[i + 1], a - era[i + 1] + 1, '年');
break
end
end.
