Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
Презентация была опубликована 9 лет назад пользователемФёдор Готовцев
1
Program show; User CRT, Graph; const N=1000; var X, Y:array [1..N] of integer; Gd, Gm, xm, ym, i:integer; begin Gd:=0; Initgraph (Gd, Gm, ); xm:=getmaxX; ym:=getmaxY; Randomize; for i:=1 to N do begin X[i]:=random(xm); Y[i]:=random(ym); PutPixel(X[i], Y[i], 15) end; SetColor(2); Setlinestyle(0,0,3); Rectangle(200, ym-200, 400, ym); Rectangle (250, ym-100, 350, ym-150); Line(180, ym-180, 300, ym-300); Line(420, ym-180, 300, ym-300); Readkey; Repeat for i:=1 to N do begin if (Y[i]
Еще похожие презентации в нашем архиве:
© 2024 MyShared Inc.
All rights reserved.