Програмирование на языке Basic. Федоряка Н.И. - 45 стр.

UptoLike

ВУЗ: 

МичГАУ | Мичуринск

Составители: 

Рубрика: 

45
FOR I = 0 TO 3
LOCATE 16, 38 + 10 * I: PRINT 4 * I
NEXT
FOR I = 0 TO 3
s$ = "-" + STR$(4 * I)
LOCATE 16, 38 - 10 * I: PRINT s$
NEXT
FOR I = 0 TO 4
LOCATE 16 - 3 * I, 38: PRINT 5 * I
NEXT
FOR I = 0 TO 3
s$ = "-" + STR$(5 * I)
LOCATE 16 + 3 * I, 37: PRINT s$
NEXT
LINE (10, 240)-(630, 240)
LINE (320, 10)-(320, 470)
COLOR 3
LOCATE 1, 38: PRINT "Y"
LOCATE 17, 77: PRINT "X"
REM Строим график функции
COLOR 2
PSET (20*(-10) + 320, 240 - 10 * F(-10))
FOR x = -10 TO 10 STEP .1
XX = 20 * x + 320
YY = 240 - 10 * F(x)
LINE -(XX, YY)
NEXT
END
Результат работы программы для y=x
2
PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com
         FOR I = 0 TO 3
         LOCATE 16, 38 + 10 * I: PRINT 4 * I
         NEXT
         FOR I = 0 TO 3
         s$ = "-" + STR$(4 * I)
         LOCATE 16, 38 - 10 * I: PRINT s$
         NEXT
         FOR I = 0 TO 4
         LOCATE 16 - 3 * I, 38: PRINT 5 * I
         NEXT
         FOR I = 0 TO 3
         s$ = "-" + STR$(5 * I)
         LOCATE 16 + 3 * I, 37: PRINT s$
         NEXT
         LINE (10, 240)-(630, 240)
         LINE (320, 10)-(320, 470)
         COLOR 3
         LOCATE 1, 38: PRINT "Y"
         LOCATE 17, 77: PRINT "X"
         REM Строим график функции
         COLOR 2
         PSET (20*(-10) + 320, 240 - 10 * F(-10))
         FOR x = -10 TO 10 STEP .1
         XX = 20 * x + 320
         YY = 240 - 10 * F(x)
         LINE -(XX, YY)
         NEXT
         END
                                Результат работы программы для y=x2




                                                                             45


PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com

Страницы