Вашу программу я сделал.
Ссылку отправляю в лс.
так как по не понятным причинам удалили пост.
Уважаемые модераторы, сюда не можно залить файлы проекта визуал бейсика..и как быть?
16х120=1920бит=240байт
32х96=3072бит=384байт
240<384 => письмо пульти имеет больший объем
<span>После max ты поставил ":" (max:a; max:c;) а надо ":=" (max:=a; max:=c;)</span>
14:
CLS
PRINT "Otrezok [a,b]:"
INPUT " a = ", a
INPUT " b = ", b
INPUT "Shag = ", h
FOR x = a TO b STEP h
IF (-1 <= x) AND (x <= 1) THEN
PRINT "y("; x; ") = "; 1 / x + SIN(x * x)
ELSE
PRINT "y("; x; ") = "; x + 1 / (x * x)
END IF
NEXT x
END
15:
CLS
PRINT "Otrezok [a,b]:"
INPUT " a = ", a
INPUT " b = ", b
INPUT "Shag = ", h
FOR x = a TO b STEP h
IF (-1 <= x) AND (x <= 1) THEN
PRINT "y("; x; ") = "; 1 / (x * x) + 1
ELSE
PRINT "y("; x; ") = "; x - 5
END IF
NEXT x
END