HP Prime для всех

English  Русский 
Sierpinski graphics-app screenshot}}
Название Sierpinski
Описание Sierpinski's triangle generator.
Автор Mickaël Nicotera

Исходный код (скачать):

Исходный код отформатирован программными средствами сайта

EXPORT SIERPINSKI() BEGIN LOCAL A, B, C, N; RECT_P(); F1 := −2; STARTAPP("Function"); 0▶Xmin; 1▶Xmax; 0▶Ymin; 1▶Ymax; STARTVIEW(1, 1); RANDOM(0, 1)▶A; RANDOM(0, 1)▶B; FOR C FROM 1 TO 20000 DO RANDOM(0, 1)▶N; IF N < 1/3 THEN (A+1) / 2▶A; B/2▶B; ELSE IF N < 2/3 THEN A/2▶A; B/2▶B; ELSE (A+.5) / 2▶A; (B+1) / 2▶B; END; END; PIXON(A, B, RGB(RANDOM(0, 255), 45, 255)); END; FREEZE; END;

Комментарии