티스토리 뷰

파스칼

- PASCAL 코드 - 

{ Pascal 평균 성적보다 높은 학생 구하기 }
program pasex (input, output);
type intlisttype = array [1..99] of integer;
var
	intlist : intlisttype ;
	listlen, counter, sum, average, result : integer;
begin
	result = 0;
	sum = 0;
	readln (listlen);
	if ((listlen > 0) and (listlen < 100)) then
		begin
		{ 학생 성적 읽기 }
		for counter = 1 to listlen do
			begin
				readln (intlist[counter]);
				sum = sum + intlist[counter];
			end;
		{ 평균값 계산 }
		average = sum / listen;
		{ 평균 보다 높은 성적을 받은 학생 수 세기 }
		for counter = 1 to listlen do
			if (intlist[counter] > average)
				then result = result + 1;
		{ 결과 출력 }
		writeln(‘평균 보다 높은 성적을 받은 학생 수:’, result)
		end
	else
	writeln(‘Error – 리스트의 길이가 너무 크거나 작음’)
end.

 

 

 

- C언어 코드 - 

#include <stdio.h>

int main() {
	int intlist[100];
	int listlen, counter, sum, average, result;

	result = 0;
	sum = 0;

	scanf("%d", &listlen);
	if (listlen > 0 && listlen < 100) {
		// 학생 성적 읽기
		for (counter = 0; counter < listlen; ++counter) {
			scanf("%d", &intlist[counter]);
			sum += intlist[counter];
		}

		// 평균값 계산
		average = sum / listlen;

		// 평균 보다 높은 성적을 받은 학생 수 세기
		for (counter = 0; counter < listlen; ++counter) {
			if (average < intlist[counter]) {
				++result;
			}
		}
		// 결과 출력
		printf("평균 보다 높은 성적을 받은 학생 수 : %d\n", result);
	}
	else {
		printf("Error - 리스트의 길이가 너무 크거나 작음\n");
	}

	return 0;
}


 

- PASCAL 코드 해석 - 

{ Pascal 평균 보다 높은 학생 구하기  { }는 c언어에서 //와 같은 주석처리입니다.

program pasex (input, output); program – 프로그램을 선언하며, pasex라는 명으로 만듭니다. input, output는 사용될 입출력 장치를 기술합니다.

type intlisttype = array [1..99] of integer; 99크기의 integer형식의 배열을 만들어 intlisttype의 타입을 지정합니다.

var 변수 선언 부분입니다.

intlist : intlisttype ; intlist를 intlisttype으로 설정합니다. 이는 위에서 설정했던 99크기의 integer형식의 배열입니다.

listlen, counter, sum, average, result : integer; listlen, counter, sum, average, result를 integer형식으로 선언합니다.

begin begin과 end는 C언어에서 { }와 같은 내용입니다.

result = 0; result에 0을 대입합니다.

sum = 0; sum에 0을 대입합니다.

readln (listlen); C언어에서 scanf와 비슷한 구문으로 입력받은 값을 listlen에 넣습니다.

if ((listlen > 0) and (listlen < 100)) then if문으로 listlen이 0보다 크고 100보다 작으면 실행되며, then을 통해 조건에 대해서 마칩니다.

begin if문의 시작점입니다.

{ 학생 성적 읽기 }

for counter = 1 to listlen do for문으로 counter 변수에 1을 넣고, listlen이 될 때까지 반복합니다. 반복될때마다 counter는 1씩 증가합니다.

begin for문의 시작점입니다. do를 통해서 조건에 대해서 마칩니다.

readln (intlist[counter]); scanf와 비슷한 구절로 intlist배열에 index가 counter인 곳에 입력받은 값을 입력합니다.

sum = sum + intlist[counter]; sum에 각 학생의 모든 점수를 넣어줍니다.

end; for문의 종료지점입니다.

{ 평균값 계산 }

average = sum / listen; 평균값을 계산하기 위해 학생의 점수들의 합에서 학생 수를 나눠줍니다.

{ 평균 보다 높은 성적을 받은 학생 수 세기 }

for counter = 1 to listlen do counter에 1이 들어가며, listlen이 될 때까지 반복합니다. counter는 반복될때마다 1씩 증가합니다.

if (intlist[counter] > average) if문으로 학생의 점수와 평균을 비교하며, 학생의 점수가 평균보다 높으면 조건에 만족합니다.

then result = result + 1; 조건이 만족하면 result에 +1을 해줍니다. 이는 조건이 만족하는 학생으 수를 나타냅니다.

{ 결과 출력 }

writeln(‘평균 보다 높은 성적을 받은 학생 수:’, result) writeln는 C언어에 printf와 비슷하며, 출력을 합니다. 작은 따옴표에 문장을 넣어서 출력할 수 있으며 ‘,’를 이용해서 여러 가지를 한번에 출력할 수 있습니다. 변수를 출력할 경우 따옴표 없이 변수만 적으면 됩니다.

end 

else if문이 만족하지 않을 경우입니다.

writeln(‘Error  리스트의 길이가 너무 크거나 작음’) printf와 비슷한 구문으로 에러 메시지를 출력합니다.

end. end.는 프로그램의 끝부분을 나타냅니다.

 

# 학습에 대한 기록이므로, 틀린 부분이 있을 수 있습니다. # 

728x90
댓글
댓글쓰기 폼
공지사항