a=2
xn=-5
xk=5
ns=1
x=xn
do while x<=5
@15,5 Say 'x=' get x rang -5,5 pict'99'
READ
IF x>a
y=EXP(a*x)*(a*x)^(1/2)
ELSE
IF x=a
y=x*SIN(x+1)
ELSE
y=PI()*a*x
ENDIF
ENDIF
CLEAR
@15,20 say 'Номер шага'
@15,46 say 'X'
@15,63 say 'Y'
@ 13,35 say'Таблица функции Y (X)'
@16,40 say x
@16,60 Say STR(y,7,3)
FOR ns = 1 TO 11
@15+ns,25 Say ns pict'99'
ENDFOR
@ 15,17 to 15, 73
@ 26, 17, 26, 73 box
@ 15,17 to 27,17
@ 15,73 ,27,73 box
@ 15,37 to 27,37
@ 15,55 to 27,55
@ 16,17 to 16,73
@ 17,17 to 17,73
@ 19,17 to 19,73
@ 18,17 to 18,73
@ 20,17 to 20,73
@ 21,17 to 21,73
@ 22,17 to 22,73
@ 23,17 to 23,73
@ 24,17 to 24,73
@ 25,17 to 25,73
@ 26,17 to 26,73
@27,17 to 27,73
ENDDO


Но это не все((не знаю как дальше...нужно вывести "х" от -5 до 5 в столбик и "у" тоже в столбик...при этом должен выводиться номер шага...там с do while и for нужно сделать...но как?....не хватает мозга)))
ЕЩЕ РАЗ СПАСИБО!!!=)