Программа КАРНИЗ

Ниже приводим программу компьютерной модели КАРНИЗ, которая позволяет анимировать построение наклонной башни из 20 кирпичей. На основе этой же программы можно вычислить число кирпичей для получения карниза заданной глубины:

REM KARNIZ

SCREEN 12

L = 25: H = 6.5: Y = 20: MX = 2.7: MY = 2.7

LINE (100 + X, Y)-(100 + MX * L + X, Y + H * MY), 15, B

PAINT (X + 110, Y + 10), 6, 15

PRINT: PRINT: PRINT: LOCATE, 45

PRINT "OCHEREDNOY SDVIG:": SLEEP

FOR N = 1 TO 20

X = X + L / 2 / N * MX

Y = Y + H * MY

LINE (100 + X, Y)-(100 + MX * L + X, Y + H * MY), 15, B

PAINT (X + 110, Y + 10), 6, 15

LOCATE, 50: PRINT "1 /"; 2 * N

SLEEP

NEXT N

LINE (50, 390)-(400, 404), 1, BF

LINE (100, 20)-(100, 390), 15

LINE (100, 375)-(X + 100, 375), 15

LOCATE 23, 20: PRINT "X"

SLEEP

LOCATE 27, 25

A = X - L * MX

PRINT "Xmax = "; A; "santimetr"

LOCATE 28, 20

PRINT "K = X / L = "; A / L; " kirpichey"

END