roz3.BAS

{* Роза *}

REM basic

' Программа построения трехлепестковой розы


10 {Роза 3
}20 CLS: SCREEN 0, 0: INPUT X0, Y0
30 A = 60: M = 3: N = 1
35 SCREEN 1, 0: COLOR 14, 0,
40 For F=0 To 3.14 Step 0.01
45 R = A * SIN(M * F / N)
50 X = X0 + R * COS(F): Y = Y0 - R * SIN(F)
55 PSET (X, Y), 2
60 Next F
65 GoTo 65