1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | CONST Pi = 3.14159265358979#, Gr = Pi / 180CLSINPUT "Vvedite celochislennyj radius(10-50):"; RadiusINPUT "Vvedite drobnuj aspect(0-2):"; AspectIF Radius < 10 THEN Radius = 10IF Radius > 50 THEN Radius = 50IF Aspect < 0 THEN Aspect = 0IF Aspect > 2 THEN Aspect = 2SCREEN 7, , 1, 0u% = 0DO: CLS 1 u% = u% + 1: IF u% > 359 THEN u% = 0 x% = SIN(u% * Gr) * Radius y% = COS(u% * Gr) * Radius * Aspect PSET (x% + 160, 100 - y%), 15 PCOPY 1, 0LOOP UNTIL INKEY$ <> "" |
Тестирование выполнено в программе QB64 ( Скачать )