Курсовая работа: Разработка математической модели электронного устройства

1061 A=FY (1, I) *M (1)

1062 A%=CINT (A) +320

1070 FOR L=2 TO N

1073 B=FY (L, I) *M (L)

1074 B%=100-CINT (B)

1080 PSET (A%,B%),7

1090 NEXT L

1100 NEXT I

1110 Z$=INKEY$: IF LEN (Z$) =0 GOTO 1110

1120 SCREEN 0: CLS

2000 PRINT " РАЗВЕРТКА ПО ВРЕМЕНИ"

2010 PRINT "МАСШТАБ ПО ВРЕМЕНИ: "; MC; " СЕК В 1 СМ ЭКРАНА."

2020 PRINT "ЖМИ ЛЮБУЮ КЛАВИШУ ДЛЯ ПРОДОЛЖЕНИЯ ***********"

2030 IF LEN (INKEY$) =0 THEN 2030 ELSE 2040

2040 MC=30.5/MC

2050 SCREEN 2: CLS: KEY OFF

2080 LINE (0,0) - (639, 199),7,B

2090 LINE (0,100) - (639,100),7

2091 M (1) =Y9 (1) /7: M (1) =13.34/M (1)

2110 FOR I=1 TO M

2120 A=X (I) *MC

2130 A%=CINT (A)

2140 FOR L=1 TO N

2150 B=FY (L, I) *M (L)

2160 B%=100-CINT (B)

2170 PSET (A%,B%),7

2180 NEXT L

2190 NEXT I

2200 Z$=INKEY$: IF LEN (Z$) =0 GOTO 2200