{* Кардиоида *}

REM basic

' Программа построения кардиоиды


5 {Кардиоида
}10 CLS: SCREEN 0, 0: INPUT X0,Y0: INPUT A
15 SCREEN 1, 0: COLOR 14, 0
20 For F = 0 To 6.28 Step 0.01
25 R = 2 * A * (1 - COS(F))
30 X = X0 + R * COS(F): Y = Y0 - R * SIN(F)
35 PSET (X, Y), 2
40 Next F
45 GoTo 45