UC知道关于Pascal编程的问题
来源：百度知道 编辑：UC知道 时间：2024/05/18 07:41:58
1.编写一个猜数字的游戏，游戏的规则：游戏参与者有10次猜数的机会，每次在0~100之间猜一个整数，若猜对则给予肯定，若猜错则给出提示。10次仍未猜对即结束游戏。
2.打印下面的图形。
V V
V V
V V
V V
V
3.一个书包能装3千克物品，小东有5本书，重量分别是0.29千克、0.52千克、1.5千克、0.78千克和1.16千克。问书包中最多能装哪些书？
4.如果一个四位数等于它的每一位数字的4次方之和，则称为玫瑰花数。例如：1634=1的四次方+6的四次方+3的四次方+4的四次方。求玫瑰花数。
都用循环语句编。
对了追分
2.打印下面的图形。
V V
V V
V V
V V
V
3.一个书包能装3千克物品，小东有5本书，重量分别是0.29千克、0.52千克、1.5千克、0.78千克和1.16千克。问书包中最多能装哪些书？
4.如果一个四位数等于它的每一位数字的4次方之和，则称为玫瑰花数。例如：1634=1的四次方+6的四次方+3的四次方+4的四次方。求玫瑰花数。
都用循环语句编。
对了追分
第一题：
var
m,n,i:integer;
label
right;
begin
randomize;
n:=trunc(random*100+1);
for i:=1 to 10 do
begin
readln(m);
if m=n then
begin
writeln('You're Right!');goto right;
end
else
if m<n then writeln('It's low.');
else
writeln('It's high.');
end
right:
end.
第二题：
var
i:integer;
begin
for i:=1 to 5 do
begin
if i=5 then
writeln('V');
else
writeln('VV');
end
end.
第三题:
VAR
I,J:INTEGER;
S:REAL;
A:ARRAY[1..5]OF REAL;
LABEL
OK;
BEGIN
A[1]:=0.29;A[2]:=0.52;
A[3]:=0.78;A[4]:=1.16;A[5]:=1.5;
IF A[1]+A[2]+A[3]+A[4]+A[5]<=3 THEN
WRITELN(A[1],' ',A[2],' ',A[3],' ',A[4],' ',A[5]);
FOR I:=1 TO 5 DO
BEGIN<