HP Prime для всех
English
Русский
HP Приложения : Шляпа
| Название | Шляпа |
| Описание | Plots a hat. |
| Автор | Unknown |
Исходный код (скачать):
Исходный код отформатирован программными средствами сайта
EXPORT HAT()
BEGIN P := 0;
B := TICKS;
RECT_P();
C := 3.1415/180;
FOR R FROM 30 TO 330 STEP 5 DO FOR T FROM 0 TO 360 STEP 3 DO X := R*COS(T) * 0.3;
Y := R*SIN(R) * 0.3;
Z := R*SIN(T) * 0.3;
X1 := X + (COS(15) * Z);
Y1 := Y + (SIN(15) * Z);
PIXON_P(X1+160, 70-Y1);
P := P+1;
END;
END;