lepestkov:=13; - тут можно менять количесто лепестков
fi:=2*3.14*i/lepestkov;
2*Pi - это полный угол 360 градусов. мы делим его на количество лепестков. Таким образом мы получаем угол на который должен идти лепесток.
Картинка ромашки во вложении. если такая не пойдет, отмечай как нарушение.
uses crt, graph; var gDriver, gMode, errCode:integer; i:integer; lepestkov:integer; fi,x,y:real; radius:integer; begin gDriver:=Detect; InitGraph(gDriver, gMode,''); ErrCode:=GraphResult; if(GraphResult <> grOK) then begin writeln('ne mogu naiti file graphiki'); readln; end; setcolor(green); line(320,200,320,400); setcolor(yellow); setFillStyle(SolidFill, yellow); fillellipse(320,200,15,15); setFillStyle(SolidFill, white); setcolor(white); lepestkov:=13; for i:=1 to lepestkov do begin fi:=2*3.14*i/lepestkov; for radius:=24 to 60 do begin x:=320 + radius*cos(fi); y:=200 + radius*sin(fi); fillellipse(round(x),round(y),10,10); end; end; readln; end.
Вот программа, довольно понятная,
комментарии:
lepestkov:=13; - тут можно менять количесто лепестков
fi:=2*3.14*i/lepestkov;
2*Pi - это полный угол 360 градусов. мы делим его на количество лепестков. Таким образом мы получаем угол на который должен идти лепесток.
Картинка ромашки во вложении. если такая не пойдет, отмечай как нарушение.
uses crt, graph;
var gDriver, gMode, errCode:integer;
i:integer;
lepestkov:integer;
fi,x,y:real;
radius:integer;
begin
gDriver:=Detect;
InitGraph(gDriver, gMode,'');
ErrCode:=GraphResult;
if(GraphResult <> grOK) then
begin
writeln('ne mogu naiti file graphiki');
readln;
end;
setcolor(green);
line(320,200,320,400);
setcolor(yellow);
setFillStyle(SolidFill, yellow);
fillellipse(320,200,15,15);
setFillStyle(SolidFill, white);
setcolor(white);
lepestkov:=13;
for i:=1 to lepestkov do
begin
fi:=2*3.14*i/lepestkov;
for radius:=24 to 60 do
begin
x:=320 + radius*cos(fi);
y:=200 + radius*sin(fi);
fillellipse(round(x),round(y),10,10);
end;
end;
readln;
end.
7)На координатной плоскости отмечены числа p,q и r.
Какая из разностей q-p, q-r, r-p отрицательная.
ответ: q-r такая из разниц будет отрицательная
8)
9)
х=±7
ответ :-7
10) Костя не выучил 4 билета всего 25 билетов
25-4=21
Вероятность что Кости попадется билет который он знает 21/25=0,84
13) 8х-3(х+9)≥-9
8х-3х-27≥-9
8х-3х≥-9+27
5х≥18
х≥18/15
х≥3,6
ответ: [3,6;∞) №1
14) 1 минута образуется осадок 0,2 грамма
а1=0,2 гр
а7= неизвестная переменная
d = 0,5 - на столько каждую минуту увеличивается масса осадка.
Формула n-ого члена арифметической прогрессии выглядит так:
аn = a1 + d(n - 1).
Подставляем данные величины:
а7 = 0,2 + 0,2(7 - 1) = 0,2 + 1,2= 1,4грамма
ответ: 1,4 грамма
Объяснение: