一道 PASCAL的简单题目
来源:百度知道 编辑:UC知道 时间:2024/09/01 14:15:12
program 输入2个数,求最大和最小值;
const n=5;
type
no=array[1..n] of integer;
s=array[1..n] of real;
var
i:integer;
k:real;
num:no;
score:s;
begin
K:=0;
of i:=1 to n do
begin
readln(num[i],score[i]);
k:=k+score[i];
end;
writeln(num[i],score[i]);
readln;
end.
好像你这个程序不是“输入2个数,求最大和最小值”啊,而是输入5组数,每组两个,分别是“编号”,“成绩”然后求出总成绩吧,但是求出来却又没有输出,即没有“writeln(k)”,搞不懂到底是干什么的
program 输入2个数,求最大和最小值;{程序标题}
const {常量定义区}
n=5;{定义常量n=5}
type{类型定义区}
no=array[1..n] of integer;{定义类型no为范围是1..n的整型数组}
s=array[1..n] of real;{定义类型s为范围是1..n的实型数组}
var{变量说明区}
i:integer;{说明变量i为整型}
k:real;{说明变量k为实型}
num:no;{说明num为no型(范围是1..n的整型数组)}
score:s;{说明score为s型(范围是1..n的实型数组)}
begin{程序开始}
K:=0;{赋初值为0}
for i:=1 to n do{你的怎么是of?应该是for。让i从1开始到n递增,同时下面的语句循环执行n次}
begin{复合语句开始,直到end结束。一个begin要配一个end。此处begin,end之间的语句都会被循环执行}
readln(num[i],score[i]);{读入两个数据,并将其分别置入num和score的第i个元素}
k:=k+score[i];{累加score的元素,即求和}
end;{循环结束}
writeln(num[i],score[i]);{输出num和score的第i个元素}
readln;{按回车键继续,便于查看结果。如果不加这句话,程序运行结束就立即退出,要按Alt+F5才能查看结果}
end.{程序结束}
这是5个数的,不是2个数...