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