Срочно!
Ответить на :
4 вопрос, и 5 написовать таблицу и вписать .
Ну очень Срочно!!!
пожалуйста пишите!!!!
Приложения:
![](https://st.uroker.com/files/27e/27e87ef45d9e9f6f36f6dca64a623420.jpg)
Аноним:
пишите нормально ответы пожалуйста
Ответы
Ответ дал:
0
Ответ:
uses crt, graphabc;
var
d,m,x,y,n,k:integer;
xx,yy,t,a:real;
const
xo=320; yo=240;
begin
a:=0;
for n:=1 to 20 do
begin
t:=0;
for k:=1 to 6280 do
begin
xx:=200*cos(t);
yy:=80*sin(t);
x:=round(xo+(xx*cos(a)-yy*sin(a)));
y:=round(yo-(xx*sin(a)+yy*cos(a)));
PutPixel(x,y,white);
t:=t+0.001;
end;
a:=a+pi/20;
end;
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад