我的第一行代码

RQNOJ - 陶陶摘苹果
2013年江西省计算机奥赛源程序公示(JX-609037)

目前能找到的有记录的最早的代码,编写时间:2013年11月8日14:30左右。上面那个陶陶摘苹果的时间更早,可惜因为RQNOJ的原因找不到代码了。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program count;
var
i,n,x,j,ans:longint;
a:string;
b:char;
begin
assign(input,'count.in');reset(input);
assign(output,'count.out');rewrite(output);
readln(n,x);
ans:=0;
b:=chr(x+ord('0'));
for i:= x to n do
begin
str(i,a);
for j:=1 to length(a) do
if a[j]=b then inc(ans);
end;
writeln(ans);
close(input);
close(output);
end.

至于我记忆中的第一行代码,应该是在2012年年末左右,使用Pascal语言编写的Hello World程序。使用的IDE是Free Pascal,现在仍然可以在官网下载到。

大概是这样:

1
2
3
4
program hello;
begin
writeln('hello world!');
end.

可惜现在Windows10下Free Pascal的IDE没法打开了(打开会闪退,目测是有兼容性问题),命令行还可以使用。有点怀念当时蓝底白字的编程界面了。。以后有时间可以用虚拟机打开试试。

作者

黄智权

本文发布于

2020-05-01

本文更新于

2020-05-01

许可协议

评论