Quick Basic


14,15
Напишите, пожалуйста, программную реализацию.

14:CLSPRINT "Otrezok [a,b]:"INPUT "  a = ", aINPUT "  b = ", bINPUT "Shag = ", hFOR x = a TO b STEP hIF (-1 <= x) AND (x <= 1) THENPRINT "y("; x; ") = "; 1 / x + SIN(x * x)ELSEPRINT "y("; x; ") = "; x + 1 / (x * x)END IFNEXT xEND15:CLSPRINT "Otrezok [a,b]:"INPUT "  a = ", aINPUT "  b = ", bINPUT "Shag = ", hFOR x = a TO b STEP hIF (-1 <= x) AND (x <= 1) THENPRINT "y("; x; ") = "; 1 / (x * x) + 1ELSEPRINT "y("; x; ") = "; x - 5END IFNEXT xEND