1 2 3 4 5 6 7 8 9 | SCREEN 12LINE (10, 240)-(600, 240)LINE (300, 10)-(300, 400)FOR x = -1 TO 1 STEP 0.01 y1 = SQR(x ^ 4 - x ^ 6) y2 = -SQR(x ^ 4 - x ^ 6) PSET (x * 200 + 300, y1 * 200 + 240), 12 PSET (x * 200 + 300, y2 * 200 + 240), 12NEXT |
Результат работы программы
Тестирование выполнено в программе QB64 ( Скачать )