оченб срочно!!!! помогите!!! составить программу в паскале с ...
оченб срочно!!!! помогите!!! составить программу в паскале с движущимся шариком по окружности.
Есть ответ
18.12.2022
277
Ответ
Uses crt, graph;
Var grdr, grmd,I,j,g:integer;
Begin
grdr:=detect;
Initgraph(grdr, grmd,’c:bpbgi’);
SetBkColor(lightGray);
g:=getbkcolor;
i:=20;j:=20;
begin
SetColor(red);
SetFillStyle(1,red);
FillEllipse(i,j,5,5);
delay(3000);
setFillStyle(1,g);
fillEllipse(i,j,5,5);
i:=i+random(3);
j:=j+random(2);
end;
readln;
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022
