Question

关于PASCAL程序设计的几道题的答案

我现在是个初一的学生，老师布置了10多题的PASCAL程序设计的题目，其中有几题不会做，现在请求网上的编程高手帮我做，以下是问题：
1.输入三个数：A.B.C，输出其中最大和最小的数，再输出2A.4B.3C中最大和最小的。要求用过程和函数两种方法。
2.用递归函数求n！
3.自定义一个函数D（n）要求把正整数n中间的数取出，如果n为正整数则取中间的两位。例：D（123456）=34，D（12345）=3（这题我也不太明白，可以不用做）
4.自定义一个函数把一个给定的十个数的最大和最小值求出。
5.自定义一个函数判断输入的a.b是否互为质数。
以上就要帮忙的问题啦，本人长期求助，记得帮忙啊，反正各位能回答几道是几道，好的加分。

Answer 1

1.(1)var a,b,c,a2,b4,c3:longint;
function max(q,w,e:longint):longint;
begin
if (q>=w)and(q>=e)then exit(q)
else if (w>=q)and(w>=e)then exit(w)
else exit(e);
end;
function min(q,w,e:longint):longint;
begin
if (q<=w)and(q<=e)then exit(q)
else if (w<=q)and(w<=e)then exit(w)
else exit(e);
end;
procedure work(r,t,y:longint);
begin
writeln(max(r,t,y),' ',min(r,t,y));
end;
begin
read(a,b,c);
a2:=a*2;b4:=b*4;c3:=c*3;
work(a,b,c);work(a2,b4,c3);
end.
(2)var a,b,c,a2,b4,c3:longint;
procedure max(q,w,e:longint);
begin
if (q>=w)and(q>=e)then write(q,' ')
else if (w>=q)and(w>=e)then write(w,' ')
else write(e,' ');
end;
procedure min(q,w,e:longint);
begin
if (q<=w)and(q<=e)then writeln(q)
else if (w<=q)and(w<=e)then writeln(w)
else writeln(e);
end;
begin
read(a,b,c);
max(a,b,c);min(a,b,c);
max(a*2,b*4,c*3);min(a*2,b*4,c*3);
end.
2.var i:integer;
function ni(t:integer):int64;
begin
if t>1 then exit(ni(t-1)*t)
else exit(1);
end;
begin
readln(i);
writeln(ni(i));
end.
3.function d(n:longint):integer;
var l,code:integer;s,s1:ansistring;
begin
str(n,s);l:=length(s);
if odd(l) then s1:=s[l div 2]+s[l div 2+1]
else s1:=s[l div 2];
val(s1,d,code);
end;
4.function max(f:array[1..10]of longint):longint;
var i:integer;
begin
max:=-300000;for i:=1 to 10 do
if f[i]>max then max:=f[i];
end;
function min(f:array[1..10]of longint):longint;
var i:integer;
begin
min:=300000;for i:=1 to 10 do
if f[i]<min then min:=f[i];
end;
5.function pd(a,b:longint):boolean;
var i,j:longint;
begin
pd:=true;
for i:=2 to trunc(sqrt(a))do
if (a mod i=0) and (b mod i=0) then exit(false);
end;

Answer 2

1.(1)var a,b,c,a2,b4,c3:longint;
function max(q,w,e:longint):longint;
begin
if (q>=w)and(q>=e)then exit(q)
else if (w>=q)and(w>=e)then exit(w)
else exit(e);
end;
function min(q,w,e:longint):longint;
begin
if (q<=w)and(q<=e)then exit(q)
else if (w<=q)and(w<=e)then exit(w)
else exit(e);
end;
procedure work(r,t,y:longint);
begin
writeln(max(r,t,y),' ',min(r,t,y));
end;
begin
read(a,b,c);
a2:=a*2;b4:=b*4;c3:=c*3;
work(a,b,c);work(a2,b4,c3);
end.
(2)var a,b,c,a2,b4,c3:longint;
procedure max(q,w,e:longint);
begin
if (q>=w)and(q>=e)then write(q,' ')
else if (w>=q)and(w>=e)then write(w,' ')
else write(e,' ');
end;
procedure min(q,w,e:longint);
begin
if (q<=w)and(q<=e)then writeln(q)
else if (w<=q)and(w<=e)then writeln(w)
else writeln(e);
end;
begin
read(a,b,c);
max(a,b,c);min(a,b,c);
max(a*2,b*4,c*3);min(a*2,b*4,c*3);
end.
2.(1)var n:integer;
s:int64;
procedure jie(n:integer);
begin
s:=s*n;
n:=n-1;
if n=0 then exit;
jie(n);
end;
begin
s:=1;
readln(n);
wrtiteln(jie(n));
end.
(2)
var i:integer;
function ni(t:integer):int64;
begin
if t>1 then exit(ni(t-1)*t)
else exit(1);
end;
begin
readln(i);
writeln(ni(i));
end.

3.(1)var n,l:integer;
s:string;
procedure middle(n:integer);
begin
str(n,s);
l:=length(s);
if l mod 2=0 then writeln(s[l div 2],s[(l div 2)+1])
else writeln(s[(l div 2)+1]);
end;
begin
readln(n);
middle(n);
end.
（2）
function d(n:longint):integer;
var l,code:integer;s,s1:ansistring;
begin
str(n,s);l:=length(s);
if odd(l) then s1:=s[l div 2]+s[l div 2+1]
else s1:=s[l div 2];
val(s1,d,code);
end;
4.var i,j:integer;
r:array[0..10]of integer;
procedure sort;
begin
for i:=2 to 10 do
begin
j:=i;
r[0]:=r[i];
while r[j-1]>r[0] do
begin
r[j]:=r[j-1];
j:=j-1;
end;
r[j]:=r[0];
end;
end;
begin
for i:=1 to 10 do
read(r[i]);
sort;
writeln('min is',r[1]);
writeln('max is',r[10]);
end.
（2）
function max(f:array[1..10]of longint):longint;
var i:integer;
begin
max:=-300000;for i:=1 to 10 do
if f[i]>max then max:=f[i];
end;
function min(f:array[1..10]of longint):longint;
var i:integer;
begin
min:=300000;for i:=1 to 10 do
if f[i]<min then min:=f[i];
end;
5.
function pd(a,b:longint):boolean;
var i,j:longint;
begin
pd:=true;
for i:=2 to trunc(sqrt(a))do
if (a mod i=0) and (b mod i=0) then exit(false);
end;