一道 PASCAL的简单题目谁帮我把下面的代码每句话都帮我做个注解,要解释清楚^^^^^program 输入2个数,求最大和最小值;const n=5;typeno=array[1..n] of integer;s=array[1..n] of real;vari:integer;k:real;num:no;score:s;beg
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 05:40:14
![一道 PASCAL的简单题目谁帮我把下面的代码每句话都帮我做个注解,要解释清楚^^^^^program 输入2个数,求最大和最小值;const n=5;typeno=array[1..n] of integer;s=array[1..n] of real;vari:integer;k:real;num:no;score:s;beg](/uploads/image/z/5171819-59-9.jpg?t=%E4%B8%80%E9%81%93+PASCAL%E7%9A%84%E7%AE%80%E5%8D%95%E9%A2%98%E7%9B%AE%E8%B0%81%E5%B8%AE%E6%88%91%E6%8A%8A%E4%B8%8B%E9%9D%A2%E7%9A%84%E4%BB%A3%E7%A0%81%E6%AF%8F%E5%8F%A5%E8%AF%9D%E9%83%BD%E5%B8%AE%E6%88%91%E5%81%9A%E4%B8%AA%E6%B3%A8%E8%A7%A3%2C%E8%A6%81%E8%A7%A3%E9%87%8A%E6%B8%85%E6%A5%9A%5E%5E%5E%5E%5Eprogram+%E8%BE%93%E5%85%A52%E4%B8%AA%E6%95%B0%2C%E6%B1%82%E6%9C%80%E5%A4%A7%E5%92%8C%E6%9C%80%E5%B0%8F%E5%80%BC%3Bconst+n%3D5%3Btypeno%3Darray%5B1..n%5D+of+integer%3Bs%3Darray%5B1..n%5D+of+real%3Bvari%3Ainteger%3Bk%3Areal%3Bnum%3Ano%3Bscore%3As%3Bbeg)
一道 PASCAL的简单题目谁帮我把下面的代码每句话都帮我做个注解,要解释清楚^^^^^program 输入2个数,求最大和最小值;const n=5;typeno=array[1..n] of integer;s=array[1..n] of real;vari:integer;k:real;num:no;score:s;beg
一道 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.
一道 PASCAL的简单题目谁帮我把下面的代码每句话都帮我做个注解,要解释清楚^^^^^program 输入2个数,求最大和最小值;const n=5;typeno=array[1..n] of integer;s=array[1..n] of real;vari:integer;k:real;num:no;score:s;beg
好像你这个程序不是“输入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.{程序结束}