作业帮一道 PASCAL的简单题目
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/07/13 23:37:49
一道 PASCAL的简单题目
谁帮我把下面的代码每句话都帮我做个注解,要解释清楚^^^^^
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.
谁帮我把下面的代码每句话都帮我做个注解,要解释清楚^^^^^
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.｛程序结束｝
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.｛程序结束｝