Free Pascal语言与基础算法

如果你只学到循环，我就只有不用函数了
1.
var
s,x:qword;
n,i,j:byte;
begin
read(n);
s:=0;
for i:=1 to n do
begin
x:=1;
for j:=2 to i do x:=x*j;
s:=s+x;
end;
write(s);
end.

2.
var
s:real;
i,j:byte;
x:qword;
begin
s:=0;
for i:=1 to 10 do
begin
x:=1;
for j:=2 to i do x:=x*j;
s:=s+1/j;
end;
write(s);
end.

3.
var n,i:word;
begin
read(n);
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then
begin
write('NO');halt;end;
write('YES');
end.

4.
var n,i:word;
total:byte;
begin
total:=0;
read(n);
for i:=1 to n do
if n mod i=0 then inc(total);
write('total=',total);
end.

5.
var i,j:char;
begin
for i:='a' to 'z' do
begin
for j:='y' downto i do
write(' ');
for j:='a' to i do write(j,' ');
writeln;
end;
end.

6.
var a,b,c:byte;
begin
for a:=1 to 100 do
for b:=1 to 50 do
for c:=1 to 20 do
if a+2*b+5*c=100 then writeln(a,' ',b,' ',c);
end.

7.
{把1/3元看作一个单位，则是把300个单位还为15,9,1个单位}
var a,b,c:byte;
begin
for a:=0 to 20 do
for b:=0 to 33 do
for c:=0 to 300 do
if 15*a+9*b+c=300 th

Pascal是一门编程语言,而Turbo Pascal/Free Pascal是Pascal程序的编译系统.
用Pascal编辑的程序能在Turbo Pascal/Free Pascal中运行
Pascal只是一门语言，而Turbo Pascal/Free Pascal是编译器

买书的话，推荐以下五本：
1、《pascal 语言（中学版）》 北京理工大学出版社
2、《全国青少年信息学联赛培训教材（初赛篇）》 浙江大学出版社
3、《全国青少年信息学联赛培训教材（复赛篇）》 浙江大学出版社
4、《free pascal语言与基础算法》 科学技术文献出版社
5、《全国青少年信息学奥林匹克联赛培训教材（中学高级本）》 南京大学出版社
这些是我的计算机老师推荐的。因为我是参加竞赛的，所以老师推荐我的书都是竞赛的，不过我想你也可以试试。

1、a+bproblem

2、选择结构
3、循环结构
4、数组

等等

你可以买一本参考书看看~~

1.
var
s,x:qword;
n,i,j:byte;
begin
read(n);
s:=0;
for i:=1 to n do
begin
x:=1;
for j:=2 to i do x:=x*j;
s:=s+x;
end;
write(s);
end.

2.
var
s:real;
i,j:byte;
x:qword;
begin
s:=0;
for i:=1 to 10 do
begin
x:=1;
for j:=2 to i do x:=x*j;
s:=s+1/j;
end;
write(s);
end.

3.
var n,i:word;
begin
read(n);
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then
begin
write('NO');halt;end;
write('YES');
end.

4.
var n,i:word;
total:byte;
begin
total:=0;
read(n);
for i:=1 to n do
if n mod i=0 then inc(total);
write('total=',total);
end.

5.
var i,j:char;
begin
for i:='a' to 'z' do
begin
for j:='y' downto i do
write(' ');
for j:='a' to i do write(j,' ');
writeln;
end;
end.

6.
var a,b,c:byte;
begin
for a:=1 to 100 do
for b:=1 to 50 do
for c:=1 to 20 do
if a+2*b+5*c=100 then writeln(a,' ',b,' ',c);
end.

7.
{把1/3元看作一个单位，则是把300个单位还为15,9,1个单位}
var a,b,c:byte;
begin
for a:=0 to 20 do
for b:=0 to 33 do
for c:=0 to 300 do
if 15*a+9*b+c=300 th

http://baike.baidu.com/link?url=P7tTd43SqRKAzmJQdHZINVPQUcbmlusIMU6Q1po29Q_SrNzXXzEBjtBLCpnURf4AmQGnT4uiAF8eveuYv5lUNK
这本书讲解十分清晰，自己快去看看吧，书店一般买不到，只有在网上才能买到（不过现在买不到正版了，只有复印吧，将就一下吧）

你要问什么啊