현재 위치 - 인적 자원 플랫폼망 - 인적자원 정보 - 농구를 하는 파스칼은 이렇게 썼습니다
농구를 하는 파스칼은 이렇게 썼습니다
변수를 정의합니다

S 1, s, a, b, c, d, e, f, g, q, z, h, I: longint;

T: 부울;

Qf, ZF, HW: array 의 char [1... 7]

시작

읽기 (a, b, c, d, e, f, g);

A>= 175 인 경우 시작

Inc (q);

Qf [q]: =' a';

끝;

B>= 175 인 경우 시작

Inc (q);

Qf [q]: =' b';

끝;

H: = 2;

Hw [1]: =' c';

Hw [2]: =' d';

E>= 175 인 경우 시작

Inc (q);

Qf [q]: =' e';

T:= 참;

끝;

Inc (h);

Hw [h]: =' e';

F>= 173 인 경우 시작

Inc (z);

Zf [z]: =' f';

끝;

G>= 173 인 경우 시작

Inc (z);

Zf [z]: =' g';

끝;

I:= 1 ~ Q- 1 do 의 경우

S1:= s1+I;

S: = s1;

S1:= 0;

S: = s * z;

I:= 1 ~ h- 1 do 의 경우

S1:= s1+I;

S: = s * s1;

S1:= 0;

T 그렇다면 s: = s-(q-1) * z * (h-1);

쓰기;

끝내다.