Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика" 
Учительский фестиваль педагогических идей 
- Опуликовал: Томашевич В.
- |
- Коментариев: 0
- |
- Просмотров: 491
Взял программу с интернета и поменял несколько частей.
Ссылка на скачивание файла:
ПРОГРАММА
uses
graphabc, events;
var
RAZB: integer;
OSKmin, OSKmax: integer;
PULI: integer;
PURAZ: integer;
procedure mousedown(x, y, mb: integer);
var
XX, YY: integer;
var
RX, RY: integer;
begin
if (mb = 1) then begin
for var i := 1 to PULI do
begin
for var ii := 1 to random(OSKmin, OSKmax) do
begin
XX := x + random((PURAZ * -1), PURAZ);
YY := y + random((PURAZ * -1), PURAZ);
RX := random(x - RAZB, x + RAZB);
RY := random(y - RAZB, y + RAZB);
while (XX <> RX) or (YY <> RY) do
begin
if (XX RX) then begin XX := XX - 1; setpixel(XX, YY, clblack); setpixel(XX + 2, YY + 2, cldarkgray); end;
if (YY RY) then begin YY := YY - 1; setpixel(XX, YY, clblack); setpixel(XX + 2, YY + 2, cldarkgray); end;
end;
end;
end;
end;
if (mb = 2) then begin
setpencolor(clblack);
setbrushcolor(RGB(200, 200, 200));
rectangle(0, 0, 500, 500);
setfontstyle(fsBold);
setfontcolor(RGB(50, 50, 50));
setfontsize(8);
end;
end;
begin
//***
RAZB := 24;
OSKmin := 3;
OSKmax := 25;
PULI := 1;
PURAZ := 0;
//***
setwindowsize(500, 500);
setwindowtitle('Имитация разбития стекла. ЛКМ - разбить. ПКМ - починить.');
setpencolor(clblack);
setbrushcolor(RGB(200, 200, 200));
rectangle(0, 0, 500, 500);
setfontstyle(fsBold);
setfontcolor(RGB(50, 50, 50));
setfontsize(8);
onmousedown := mousedown;
end.
Ссылка на скачивание файла:
ПРОГРАММА
uses
graphabc, events;
var
RAZB: integer;
OSKmin, OSKmax: integer;
PULI: integer;
PURAZ: integer;
procedure mousedown(x, y, mb: integer);
var
XX, YY: integer;
var
RX, RY: integer;
begin
if (mb = 1) then begin
for var i := 1 to PULI do
begin
for var ii := 1 to random(OSKmin, OSKmax) do
begin
XX := x + random((PURAZ * -1), PURAZ);
YY := y + random((PURAZ * -1), PURAZ);
RX := random(x - RAZB, x + RAZB);
RY := random(y - RAZB, y + RAZB);
while (XX <> RX) or (YY <> RY) do
begin
if (XX RX) then begin XX := XX - 1; setpixel(XX, YY, clblack); setpixel(XX + 2, YY + 2, cldarkgray); end;
if (YY RY) then begin YY := YY - 1; setpixel(XX, YY, clblack); setpixel(XX + 2, YY + 2, cldarkgray); end;
end;
end;
end;
end;
if (mb = 2) then begin
setpencolor(clblack);
setbrushcolor(RGB(200, 200, 200));
rectangle(0, 0, 500, 500);
setfontstyle(fsBold);
setfontcolor(RGB(50, 50, 50));
setfontsize(8);
end;
end;
begin
//***
RAZB := 24;
OSKmin := 3;
OSKmax := 25;
PULI := 1;
PURAZ := 0;
//***
setwindowsize(500, 500);
setwindowtitle('Имитация разбития стекла. ЛКМ - разбить. ПКМ - починить.');
setpencolor(clblack);
setbrushcolor(RGB(200, 200, 200));
rectangle(0, 0, 500, 500);
setfontstyle(fsBold);
setfontcolor(RGB(50, 50, 50));
setfontsize(8);
onmousedown := mousedown;
end.
