РЕШЕНИЕ ЗАДАЧИ, ПОСТАВЛЕННОЙ В РАЗДЕЛЕ Pro/PROGRAM

Ниже приводится текст программы для сборки. Строчки, которые предваряются знаком "*", добавляются в программу пользователем. Строчки, которые предваряются знаком "**" были изменены пользователем. Эти значки на экране обычно не отображаются.

LISTING FOR ASSEMBLY BEARING

INPUT

*IN_DIA NUMBER

*"ENTER THE INSIDE DIAMETER OF BEARING:"

*OUT_DIA NUMBER

*"ENTER THE OUTSIDE DIAMETER OF BEARING:"

*BALL NUMBER

*"ENTER NUMBER OF BALLS IN THE BEARING:"

*RACE STRING

*"WHICH TYPE OF RACE: REGULAR OR EXTENDED:"

*IF RACE == "EXTENDED"

*S_HOLE YES_NO

*"IS THERE A SET SCREW HOLE IN RACE:"

*IF S_HOLE == YES

*HOLE_DIA NUMBER

*"ENTER HOLE DIAMETER:"

*END IF

*END IF

END INPUT

RELATIONS

*IF RACE == "EXTENDED"

*RACE_NAME = "EXT-INNER_RACE"

*ELSE

*RACE_NAME = "INNER.RACE"

*ENDIF

END RELATIONS

*EXECUTE PART OUTER_RACE

*OD = OUT_DIA

*NUM_BALL = BALL

*ID = IN_DIA

*END EXECUTE

*IF RACE == "REGULAR"

*EXECUTE PART INNER_RACE

*DIA = IN_DIA

*END EXECUTE

*END IF

*IF RACE == "EXTENDED"

*EXECUTE PART EXT-INNER_RACE

*DIA = IN_DIA

*HOLE = S_HOLE

*SCREW_DIA = HOLE_DIA

*END EXECUTE

*END IF

ADD PART OUTER_RACE

INTERNAL COMPONENT ID 1

END ADD

ADD PART BALL

INTERNAL COMPONENT ID 15

PARENTS =1(#1)

END ADD

[Здесь добавляются шарики]

**ADD PART (RACE_NAME)

INTERNAL COMPONENT ID 31

PARENTS = 1(#1)

END ADD

MASSPROP

END MASSPROP