问几个关于free pascal的题目,（完成几道是几道）1、输出如下图形.2、编写一程序,验证角谷猜想.所谓的角谷猜想是："对于任意大于1的自然数n,若n为奇数,则将n变为3*n+1,否则将n变为n的一半.经

问几个关于free pascal的题目,（完成几道是几道）1、输出如下图形.2、编写一程序,验证角谷猜想.所谓的角谷猜想是："对于任意大于1的自然数n,若n为奇数,则将n变为3*n+1,否则将n变为n的一半.经
问几个关于free pascal的题目,（完成几道是几道）
1、输出如下图形.
2、编写一程序,验证角谷猜想.所谓的角谷猜想是："对于任意大于1的自然数n,若n为奇数,则将n变为3*n+1,否则将n变为n的一半.经过若干次这样的变换,一定会使n变为1."
3、有一堆100多个的零件,若三个三个数,剩二个；若五个五个数,剩三个；若七个七个数,剩五个.请你编一个程序计算出这堆零件至少是多少个?
4、一辆快车和一辆慢车开往同一地点,快车票价为18元,慢车票价为13.5元,共售出400张,共计5940元,求快车票和慢车票各多少张?.
5、求出能被5整除的所有四位数的和.
6、在下面式子中的二个□内填入一个合适的同样的数字,使等式成立.
□3*6528=3□*8256
7、有一个三位数,它的各位数字之和的11倍恰好等于自身,请编程求出这个三位数.
8、在自然数中,如果一个三位数等于自身各位数字之立方和,则这个三位数就称为是水仙花数.如:153=13+53+33,所以153是一个水仙花数.求所有的水仙花数.
9、编程序打印出下列图案：
平行四边形 等腰三解形 菱形
*
10、编程打印出如下图案：
1
222
33333
4444444
555555555
11、有三种明信片:第一种每套一张,售价2元；第二种每套一张,售价4元； 第三种每套9张,售价2元.现用100元钱要买100张明信片,要求每种明信片至少要买一套,问三种明信片应各买几套?请输出全部购买方案.
12、某人想把一元钱换成伍分、贰分、壹分这样的零钱,在这三种零钱中每种零钱都至少各有一个的情况下,共有多少种兑换方案.并打出这些方案.
13、(1)s=12+22+32……+1002,
(2) 求S= 1-1/2 +1/3-1/4+1/5-1/6+ ……（求前N项的和)
14、 输出100 以内的全部素数,要求每行显示5 个.
15、某登山队员第一天登上山峰高度的一半又24米; 第二天登上余下高度的一半又24米；每天均如此.到第七天,距山顶还剩91米.求此山峰的高度?
16、百钱买百鸡：今有钱100元,要买100只鸡,公鸡3元一只,母鸡1元一只,小鸡1元3只,若公鸡、母鸡和小鸡都至少要买1只,请编程求出恰好用完100元钱的所有的买鸡方案.
17、小球从100高处自由落下,着地后又弹回高度的一半再落下.求第20次着地时,小球共通过多少路程?
18、猴子吃桃问题.猴子第一天摘下若干个桃子,当即吃了一半,还不过瘾,又多吃了一个.第二天早上又将剩下的桃子吃了一半,又多吃了一个.以后每天早上都吃了前一天剩下的一半零一个.到第十天早上想再吃时,只剩下一个桃子了.求第一天共摘了多少桃子.
19、A、B、C三人进入决赛,赛前A说：“B和C得第二,我得第一”；B说：“我进入前两名,丙得第三名”；C说：“A不是第二,B不是第一”.比赛产生了一、二、三名,比赛结果显示：获得第一的选手全说对了,获得第二的选手说对了一句,获得第三的选手全说错了.编程求出A、B、C三名选手的名次.
20、赵、钱、孙、李、周五人围着一张圆桌吃饭.饭后,周回忆说：“吃饭时,赵坐在钱旁边,钱的左边是孙或李”；李回忆说：“钱坐在孙左边,我挨着孙坐”.结果他们一句也没有说对.请问,他们在怎样坐的?

问几个关于free pascal的题目,（完成几道是几道）1、输出如下图形.2、编写一程序,验证角谷猜想.所谓的角谷猜想是："对于任意大于1的自然数n,若n为奇数,则将n变为3*n+1,否则将n变为n的一半.经
1:未知图形
2:var
a,n:longint;
begin
readln(n);
while n1 do
begin
inc(a);
if n mod 20 then
n:=3*n+1
else n:=n div 2;
end;
writeln(a);
end.
3:var
a:longint;
begin
for a:=100 to 200 do
begin
if (a mod 3=2)and(a mod 5=3)and(a mod 7=5)then
begin
writeln(a);
break;
end;
end;
end.
4:var
a,b:longint;
s:real;
begin
s:=400*18;
a:=400;
b:=0;
while s5940 do
begin
s:=s-18+13.5;
dec(a);
inc(b);
end;
writeln(a,' ',b);
end.
5:var
s,a:longint;
begin
for a:=1000 to 9999 do
begin
if a mod 5=0 then
s:=s+a;
end;
writeln(s);
end.
7:var
s,a,b,c:longint;
begin
for s:=100 to 999 do
begin
a:=s mod 10;
b:=s div 10 mod 10;
c:=s div 100;
if (a+b+c)*11=s then
writeln(s);
end;
end.
8:var
s,a,b,c:longint;
begin
for s:=100 to 999 do
begin
a:=s mod 10;
b:=s div 10 mod 10;
c:=s div 100;
if a*a*a+b*b*b+c*c*c=s then
writeln(s);
end;
end.
13.(1):var
s:longint;
a:longint;
begin
a:=2;
while a1002 do
begin
a:=a+10;
s:=s+a;
end;
writeln(s);
end.
13.(2)[结果保留了10位小数:var
s:real;
n,a:longint;
begin
readln(n);
a:=1;
while an do
begin
inc(a);
if a mod 2=0 then
s:=s+1/a
else
s:=s-1/a;
end;
writeln(1-s:0:10);
end.
14:var
p:boolean;
a,b,c:longint;
begin
p:=true;
for a:=2 to 100 do
begin
for b:=2 to trunc(sqrt(a))do
begin
if a mod b=0 then
p:=false;
end;
if p then
begin
inc(c);
write(a,' ');
end;
if c=5 then
begin
writeln;
c:=0;
end;
p:=true;
end;
end.

Private Sub Command1_Click()
Dim Num As Long
Dim I As Integer
Randomize
Num = Int(Rnd * 10000)
Picture1.Cls
Picture1.Print "原始数据为：" & Num
Picture1.Print "以下是计算结果："
I = ...

全部展开

Private Sub Command1_Click()
Dim Num As Long
Dim I As Integer
Randomize
Num = Int(Rnd * 10000)
Picture1.Cls
Picture1.Print "原始数据为：" & Num
Picture1.Print "以下是计算结果："
I = 0
Do While Num <> 1
If Num Mod 2 = 0 Then
Num = Num / 2
Else
Num = Num * 3 + 1
End If
Picture1.Print Num;
I = I + 1
If I Mod 10 = 0 Then Picture1.Print
Loop
End Sub

收起

1、输出如下图形。

2、编写一程序，验证角谷猜想。所谓的角谷猜想是："对于任意大于1的自然数n，若n为奇数，则将n变为3*n+1，否则将n变为n的一半。经过若干次这样的变换，一定会使n变为1。"
3、有一堆100多个的零件，若三个三个数，剩二个；若五个五个数，剩三个；若七个七个数，剩五个。请你编一个程序计算出这堆零件至少是多少个？
4、一辆快车和一辆慢...

全部展开

1、输出如下图形。

2、编写一程序，验证角谷猜想。所谓的角谷猜想是："对于任意大于1的自然数n，若n为奇数，则将n变为3*n+1，否则将n变为n的一半。经过若干次这样的变换，一定会使n变为1。"
3、有一堆100多个的零件，若三个三个数，剩二个；若五个五个数，剩三个；若七个七个数，剩五个。请你编一个程序计算出这堆零件至少是多少个？
4、一辆快车和一辆慢车开往同一地点，快车票价为18元，慢车票价为13. 5元，共售出400张，共计5940元，求快车票和慢车票各多少张?.
5、求出能被5整除的所有四位数的和。
6、在下面式子中的二个□内填入一个合适的同样的数字，使等式成立。
□3*6528=3□*8256
7、有一个三位数，它的各位数字之和的11倍恰好等于自身，请编程求出这个三位数。
8、在自然数中，如果一个三位数等于自身各位数字之立方和，则这个三位数就称为是水仙花数。如:153=13+53+33，所以153是一个水仙花数。求所有的水仙花数。
9、编程序打印出下列图案：
平行四边形 等腰三解形 菱形
****** * *
****** *** ***
****** ***** *****
****** ******* ***
****** ********* *
10、编程打印出如下图案：
1
222
33333
4444444
555555555
11、有三种明信片:第一种每套一张，售价2元；第二种每套一张，售价4元； 第三种每套9张，售价2元。现用100元钱要买100张明信片，要求每种明信片至少要买一套，问三种明信片应各买几套？请输出全部购买方案。
12、某人想把一元钱换成伍分、贰分、壹分这样的零钱， 在这三种零钱中每种零钱都至少各有一个的情况下，共有多少种兑换方案。并打出这些方案。
13、(1)s=12+22+32……+1002,
(2) 求S= 1-1/2 +1/3-1/4+1/5-1/6+ ……（求前N项的和)
14、 输出100 以内的全部素数，要求每行显示5 个。
15、某登山队员第一天登上山峰高度的一半又24米; 第二天登上余下高度的一半又24米；每天均如此。到第七天,距山顶还剩91米。求此山峰的高度?
16、百钱买百鸡：今有钱100元，要买100只鸡，公鸡3元一只，母鸡1元一只，小鸡1元3只，若公鸡、母鸡和小鸡都至少要买1只，请编程求出恰好用完100元钱的所有的买鸡方案。
17、小球从100高处自由落下,着地后又弹回高度的一半再落下。求第20次着地时, 小球共通过多少路程?
18、猴子吃桃问题。猴子第一天摘下若干个桃子，当即吃了一半，还不过瘾，又多吃了一个。第二天早上又将剩下的桃子吃了一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第十天早上想再吃时，只剩下一个桃子了。求第一天共摘了多少桃子。
19、A、B、C三人进入决赛，赛前A说：“B和C得第二，我得第一”；B说：“我进入前两名，丙得第三名”；C说：“A不是第二，B不是第一”。比赛产生了一、二、三名，比赛结果显示：获得第一的选手全说对了，获得第二的选手说对了一句，获得第三的选手全说错了。编程求出A、B、C三名选手的名次。
20、赵、钱、孙、李、周五人围着一张圆桌吃饭。饭后，周回忆说：“吃饭时，赵坐在钱旁边，钱的左边是孙或李”；李回忆说：“钱坐在孙左边，我挨着孙坐”。结果他们一句也没有说对。请问，他们在怎样坐的？

收起