Question

求五道Free Pascal IDE入门程序代码

1、从文件中读取两个整数，输出两个数中较大的一个的平方值。
样例：
输入文件 1.in：4 6
输出文件 1.out：36

2、从文件中读取一个整数，判断它的正负。是正数，则输出"+"，是负数，则输出"-"。
样例：
输入文件 2.in：-7
输出文件 2.out：-

3、从文件中读取一个小写字母，输出对应的大写字母
样例：a
输入文件 3.in: a
输出文件 3.out：A

4、从文件中读取一个三位数，输出三位上数字的和。
样例：
输入文件：4.in ： 123
输出文件：4.out ：6

5、铁路托运行李规定：行李重不超过50公斤的，托运费按每公斤0.15元计费；如超50公斤，超过部分每公斤加收0.10元。从文件中读取行李重量（整数），输出托运的费用。
样例
输入文件：5.in ：40
输出文件：5.out：6

Answer 1

1、
var a,b:longint;
begin
read(a,b);
if a>b then writeln(sqr(a))
else writeln(sqr(b));
end.
2、顺便这道题问一下，输入0的话输出什么？
var a:longint;
begin
read(a);
if a>=0 then writeln('+')
else writeln('-');
end.
3、
var a:char;
begin
readln(a);
writeln(upcase(a));
end.
4、
var a,b,s,g:longint;
begin
read(a);
b:=a div 100 ;
s:=a div 10 mod 10;
g:=a mod 10;
writeln(b+s+g);
end.
5、
var a,b,c,d:longint;
begin
read(a);
if a<=50 then writeln(a*0.15:0:0)
else writeln(7.5+0.1*(a-50):0:0);
end.
纯手打，望采纳

Answer 2

绝对正确：
1.
program p1;
var a,b:longint;
begin
assign(input,'1.in'); assign(output,'1.out');
reset(input); rewrite(output);
readln(a,b);
if a>b then writeln(a*a)
else writeln(b*b);
close(input); close(output);
end.

2.program p2
var a:longint;begin
assign(input,'2.in'); assign(output,'2.out');
reset(input); rewrite(output);
readln(a); if a>=0 then writeln('+') else writeln('-');
close(input); close(output);
end.

3.program p3
var a:char;begin
assign(input,'3.in'); assign(output,'3.out');
reset(input); rewrite(output);
readln(a); writeln(upcase(a));
close(input); close(output);
end.

4.
program p4；
var a,x,y,z:longint;begin
assign(input,'4.in'); assign(output,'4.out');
reset(input); rewrite(output);
readln(a); x:=a div 100 ; y:=a div 10 mod 10; z:=a mod 10; writeln(x+y+z);
close(input); close(output);
end.

5.
program p5;
var a:longint;
assign(input,'5.in'); assign(output,'5.out');
reset(input); rewrite(output);
begin readln(a); if a<=50 then writeln(a*0.15:0:2) else writeln(7.5+0.1*(a-50):0:2);
close(input); close(output);
end.