Question

pascal 问题 要求文件输入输出

比一比（bibi）
输入一家三口（爸爸，妈妈和我）的身高（厘米），比一比谁最高，谁最矮。用文件输入输出 180,168,145
输入两个整数，让计算机来求出他们的和、差、积、商、整除余数。用文件输入输出（jis）。

Answer 1

比一比：
var a,b,c:longint;
begin
assign(input,'bibi.in');
assign(output,'bibi.out');
reset(input);
rewrite(output);

readln(a,b,c);
if (a>b) and (b>c)
then begin
writeln('zuigao:',a);
writeln('zuiai:',c);
end
else
if (a>c) and (c>b)
then begin
writeln('zuigao:',a);
writeln('zuiai:',b);
end
else
if (c>b) and (b>a)
then begin
writeln('zuigao:',c);
writeln('zuiai:',a);
end
else
if (c>a) and (a>b)
then begin
writeln('zuigao:',c);
writeln('zuiai:',b);
end
else
if (b>a) and (a>c)
then begin
writeln('zuigao:',b);
writeln('zuiai:',c);
end
else
if (b>c) and (c>a)
then begin
writeln('zuigao:',b);
writeln('zuiai:',a);
end;

close(input);
close(output);
end.
你在pascal软件所在的位置新建一个文件，文件名叫“bibi.in”。里面的内容是：“180 168 145”。（如果题目要求必须输入“180,168,145”，你就追问一下）

第二题：
var a,b:longint;
begin
assign(input,'jis.in');
assign(output,'jis.out');
reset(input);
rewrite(output);

readln(a,b);
writeln(a+b,' ',a-b,' ',a*b,' ',a/b,' ',a mod b);

close(input);
close(output);
end.
如果题目要求输出的商要是整数的话，就把输出部分的a/b改成a div b。
希望我的回答对你有帮助。

Answer 2

文件其实很简单，开头加上四句：

assign(input,'*.in');     {第二个参数为输入文件名，下行为输出文件名，因题而变}
assign(output,'*.out');
reset(input);
rewrite(output);

结尾加两句：

close(input);
close(output);

中间你该怎么编程就怎么编程。

Answer 3

第一题
var
a:array[1..3] of longint;
max,min,i:longint;
begin
assign(input,'bibi.in');reset(input);
assign(output,'bibi.out');rewrite(output);
read(a[1],a[2],a[3]);
min:=2000000;
for i:=1 to 3 do
if a[i]>max then max:=a[i];
for i:=1 to 3 do
if a[i]<min then min:=a[i];
write(max,' ',min);
close(input);close(output);
end.
第二题
var
a,b:longint;
begin
assign(input,'jis.in');reset(input);
assign(output,'jis.out');rewrite(output);
read(a,b);
write(a+b,' ',a-b,' ',a*b,' ',a div b,' ',a mod b);
close(input);close(output);
end.