UC知道有几道pascal练习题，菜鸟求答案，急！！
来源：百度知道 编辑：UC知道 时间：2024/06/01 23:18:28
我表妹的兴趣班老师布置的作业，可怜我表妹四年级，平时也不用电脑的，让她怎么做出来啊！！！偏偏我也无能为力，其实题挺简单的，无奈我是个数学白痴。麻烦懂的大虾做一下，给个答案
1
Var
a, b,c:longint;
begin
read(a,b,c);
if a>b then
begin
case c of
0:write(a:2,b:2);
1:case b of
1:write(b:2,c:2);
2:write(c:2,c:2);
end;
end;
end;
end.
输入：3 2 1
输出：
2
Var
w,y,t:byte;
begin
readln(w,y);
if w<y then
begin
t:=w;
w:=y;
y:=t;
end;
writeln(w,’ ‘,y);
end.
输入：34 38
输出
3
Var a,b,c,d,e:integer
Begin
a:=89; b:=44; c:=67; d:=0; e:1;
if (a<c)or(b>c) then d:=d+e
else if (d+10<e) then
else d:=a-e;
writeln(d)
end. 输出：
4
Var ch : char;
i,n,sum:integer;
begin
sum:=0;
read(ch);
case ch of
1
Var
a, b,c:longint;
begin
read(a,b,c);
if a>b then
begin
case c of
0:write(a:2,b:2);
1:case b of
1:write(b:2,c:2);
2:write(c:2,c:2);
end;
end;
end;
end.
输入：3 2 1
输出：
2
Var
w,y,t:byte;
begin
readln(w,y);
if w<y then
begin
t:=w;
w:=y;
y:=t;
end;
writeln(w,’ ‘,y);
end.
输入：34 38
输出
3
Var a,b,c,d,e:integer
Begin
a:=89; b:=44; c:=67; d:=0; e:1;
if (a<c)or(b>c) then d:=d+e
else if (d+10<e) then
else d:=a-e;
writeln(d)
end. 输出：
4
Var ch : char;
i,n,sum:integer;
begin
sum:=0;
read(ch);
case ch of
(1)
答案是: 1 1
(2)
答案是:38 34
(3)
答案是:88
(4)
输入A 4 1 2 3 4 5 6 7 8 9 输出 7
输入B 4 1 2 3 4 5 6 7 8 9 输出 10
输入C 4 1 2 3 4 5 6 7 8 9 输出 14
输入D 4 1 2 3 4 5 6 7 8 9 输出 0
补充：为什么楼主不用PASCAL运行一下看一看答案？？？？？？？
1.输出C的值 2
2.从大到小排序输出 38 34
3.88
4.A=15
B=49
C=10
D=10
这貌似是visual basic
本人比较擅长C++，basic不是很懂，凭着C++的基础写的答案。如有错误希望纠正指出！
原来是数学奥赛班的题目，现在的小学生真辛苦啊！
第一题： 1，1（不是很确定）
第二题：38，34（是从大到小排序）
第三题：88
第四题：题目有问题，最好写清楚些
我也是四年级
(1)
答案是: 1 1
(2)
答案是:38 34
(3)
答案是:88
(4)
输入A 4 1 2 3 4 5 6 7 8 9 输出 7
输入B 4 1 2 3 4 5 6 7 8 9 输出 10
输入C 4 1 2 3 4 5 6 7 8 9 输出 14
输入D 4 1 2 3 4 5 6 7 8 9 输出 0