범주: 컴퓨터/네트워크 >> 프로그래밍 >> 기타 프로그래밍 언어 ​​

문제 설명:

배열의 의미에 대해 더 자세히 설명하는 것이 가장 좋습니다. !

분석:

1차원 배열

1. 정의:

var

a:array .

특정 행을 처리합니다. 예를 들어 행 4에 데이터를 누적합니다. 그러면 고정 회선 번호는 4입니다. 예: for i:=1 to 5 do s:=s+a;

2. 2차원 배열의 입력과 출력은 이중 루프로 제어되어야 합니다:

시작

for j:=1 to 5 do read(a[i, j]){———— 첫 번째 줄에서 5개 요소 읽기}

readln;{————개행 문자 읽기}

end;

{———— 가장 일반적으로 사용되는 방법: 키보드에서 데이터를 읽고 2차원 배열을 초기화합니다.}

for i:=1 to 10 do

for j: =1 to 5 do a[i,j ]:=0;

{————가장 일반적으로 사용되는 방법: 2차원 배열을 0}으로 지웁니다.

i:=1 ~ 10 do

시작

for j:=1 ~ 5 do write(a[i,j]:4);

writeln ;

end;

{————가장 일반적으로 사용되는 출력 방식: 2차원 배열의 값을 행렬 형태로 출력}

예시 1: 대회그룹에는 20명의 학생이 있으며, ***, 이번 학기에는 각 학생이 ***3개의 대회에 참가하였으므로, 각 학생의 평균점수를 계산해 주십시오.

분석: 이러한 결과를 저장하려면 행 20개와 ​​열 3개로 구성된 2차원 배열을 정의하세요. 평균 점수를 저장하기 위해 20개 요소의 1차원 배열을 정의합니다.

프로그램 p1;

var

a:정수 배열 [1..20,1..3];

b :array [1..20] of real;

i,j:integer;

시작

i:=1 ~ 20 do

시작

for j:=1 to 3 do read(a[i,j]);

readln;

end;

{————키보드에서 학생 20명의 세 가지 경쟁 결과 읽기}

for i:=1 to 20 do b[i]:=0;

{————먼저 평균 점수를 0으로 지웁니다}

for i:=1 to 20 do

start

for j: = 1 ~ 3 do b[i]:=b[i]+a[i,j];{————총점 계산}

b[i]:=b[i]/ 3 ;{————평균 점수 계산}

end;

for i:=1 to 20 do write(b[i]:5:1);

{————출력 평균 점수}

writeln;

end.