|
bgraf1.BAS |
|
{* Построение графика *}REM basic ' Построение графика y= SQR (x)10 {Построение графика y= SQR (x)
}20 screen 9
30 line (0,175) –(640, 175), 15
40 line (320, 0)- (320, 350),15
50 Def FNY (X)= SQR(X)
60 For x= 320 To 640
70 y= 175 – 30 *FNY*((x - 320)/30)
80 pset (x,y),15
90 Next x
100 End
|