Вот программа, довольно понятная,
комментарии:
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.
100110=1*2(в степени 5)+0*2(в степени 4)+0*2(в степени 3)+1*2(в степени 2)+1*2(в степени 1)+0*2(в степени 0)=32+0+0+4+2+0=38
1.
1) 4*24*1000*16 ≈ 3*2^19 (бит/с)
2) 900 Мбайт=9*25*4*2^23 бит =9*25*2^25 бит
3) (9*25*2^25) / (3*2^19) = 3*25*2^6 (c) = 75*64 (c) =75*64/60 (мин)= 80(мин)
ответ 80 мин
2.
1) 640*480=(5*2^7)*(15*2^5)=5*15*2^12 пикселей
2) 240 Кбайт=15*2^4 *2^13 бит=15*2^17 бит
3) (15*2^17) / (5*15*2^13) = 2^4 / 5 бит =3,2 бит = 3 бит - 1 пиксель
4) 2^3=8 цветов ответ 8 цветов
3.
1) 80 *0,7=56 Мбайт - cжатый файл
80 Мбайт =5*2^4 *2^23 бит=5*2^27 бит
56 Мбайт=7*2^26 бит
2) 5*2^27 / 2^22 = 5*2^5 (с) = 160 секунд - время несжатого файла
3) 7*2^26 / 2^22 =7*2^4 (c) = 112 (c)
4) 23(c)+12(c)+112(c)= 147 (c) - время сжатого файла
5) 160-147=13 (с) ответ передача сжатого файла быстрее на 13 с
Это когда все события стоят в том порядке, когда они были! ну например. . вчера, сегодня завтра.<span>Хронос - это по-гречески "время". То есть события располагаются так, как они действительно происходили. </span>
<span>// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017</span>
begin
var x:=ArrRandom(ReadInteger('Введите размер массива->'),-5,5); x.Println;
var y:=x.Select(t->t<0?abs(t):t); y.Println;
Println('Произведение:',x.Where(t->t<>0).Aggregate((a,b)->a*b));
end.
Пример:
Введите размер массива-> 10
1 2 -1 2 4 4 1 1 -3 2
1 2 1 2 4 4 1 1 3 2
Произведение: 384