Free Pascal问题,用函数和过程解.
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/24 18:32:36
Free Pascal问题,用函数和过程解.
1.找出由键盘任意输入三个整数中的最大数的过程.
2.输入三个不同的整数,按由小到大排列,用过程编程.
3.用不带参数的过程和带参数的过程分别编写一个程序,实现x和y的值互相交换.
4.设计一个过程(数组参数),将数组中的元素从小到大排列.
1.找出由键盘任意输入三个整数中的最大数的过程.
2.输入三个不同的整数,按由小到大排列,用过程编程.
3.用不带参数的过程和带参数的过程分别编写一个程序,实现x和y的值互相交换.
4.设计一个过程(数组参数),将数组中的元素从小到大排列.
1、 var a,b,c,s:integer;
procedure max(a,b,c:integer;var s:integer);
var tmp:integer;
begin
if a>b then tmp:=a;a:=b;b:=tmp;
if a>c then tmp:=a;a:=c;c:=tmp;
if b>c then tmp:=b;b:=c;c:=tmp;
s:=c;
end;
begin
readln(a,b,c);
max(a,b,c,s);
writeln(s);
end.
其他的问题我临时没有时间 如果你不急的话 我会在 这周五晚上完整回答 我是个学生.
其实你的问题都是一些很基本的问题 1、2、4 基本上就是排序算法 3、其实更简单 定义一个中间变量, 例如 : 把a、b的值交换 tmp:=a; a:=b; b:=tmp; 就相当于是加了一个中转站.
我的QQ是 597736446 还有问题可以随时问我.
procedure max(a,b,c:integer;var s:integer);
var tmp:integer;
begin
if a>b then tmp:=a;a:=b;b:=tmp;
if a>c then tmp:=a;a:=c;c:=tmp;
if b>c then tmp:=b;b:=c;c:=tmp;
s:=c;
end;
begin
readln(a,b,c);
max(a,b,c,s);
writeln(s);
end.
其他的问题我临时没有时间 如果你不急的话 我会在 这周五晚上完整回答 我是个学生.
其实你的问题都是一些很基本的问题 1、2、4 基本上就是排序算法 3、其实更简单 定义一个中间变量, 例如 : 把a、b的值交换 tmp:=a; a:=b; b:=tmp; 就相当于是加了一个中转站.
我的QQ是 597736446 还有问题可以随时问我.
Free Pascal问题,用函数和过程解.
free pascal问题
Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?
free pascal高精度计算问题
统计 用free pascal
free pascal的问题 (用while语句解答)
Pascal 也分 Turbo Pascal 和 Free Pascal 的
谁能帮我解Free Pascal
怎么用free pascal做这道题?
一个很简单的free pascal问题
Free Pascal
free pascal问题:用集合做:输入一组数,程序判断出最大和的连续4个数和最小和的连续4个数