UC知道麻烦高手编几个PASCAL程序
来源：百度知道 编辑：UC知道 时间：2024/05/24 02:59:56
1、编一程序，计算文本文件中行结束标志的目。 2、计算文本文件的行长度的平均值、最大值和最小值。
3、3、一文本文件FILE.DAT存放10个学生某学科成绩，将成绩转换成直方图存入FILE.RES文件中。
第三个例子：
如FILE.DAT内容为:
5
78 90 87 73 84
得到直方图文件FILE.RES内容为:
5
********
*********
*********
*******
********
3、3、一文本文件FILE.DAT存放10个学生某学科成绩，将成绩转换成直方图存入FILE.RES文件中。
第三个例子：
如FILE.DAT内容为:
5
78 90 87 73 84
得到直方图文件FILE.RES内容为:
5
********
*********
*********
*******
********
2:
var s:string;
l,ping,max,min,n:integer;
begin
max:=0;
min:=maxint;
ping:=0;
n:=0;
repeat
inc(n);
readln(s);
l:=length(s);
ping:=ping+l;
if l>max then max:=l;
if l<min then min:=l;
until eof(input);
writeln(ping / n:0:2);
writlen(max);
writeln(min);
end.
第三个不太好编。前两个倒是很简单
1：
program tt1;
var
i:string;
s:integer;
fi,fo:text;
begin
assign(fi,'tt1.in');//输入文件名为tt1.in
reset(fi);
while not eof(fi) do
begin
while not eoln(fi) do read(fi,i);
s:=s+1;
readln(fi);
end;
close(fi);
writeln(s);//把数目输出到屏幕上
end.
2：
第3个很简单嘛，用excel处理一下呗
老大
自己做吗
智商有问题找我
说实在的我很鄙视你的为人诶
做人不能这样做
否则会遭人鄙视的
就像我曾经看到有人问作业题一样
你不可以这样啊
var s:string;
l,ping,max,min,n:integer;
begin
max:=0; <