Вот программа, довольно понятная,
комментарии:
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.
Объяснение:
1. Яка функція VBA перетворює змінну на цілочисельний тип?
CInt - to Integer
2. Яка функція VBA перетворює змінну на дійсний короткий тип?
CSng - to Single
3.Яка функція VBA перетворює змінну на дійсний довгий тип?
CLong - to Long
4.Яка функція VBA перетворює змінну на текстовий тип?
CStr - to String
5.Який запис на VBA визначає тип змінної?
Dim name as String (например такой объявляет переменную типа String)
6.Для коду процедури за результатом виконання якого виводиться на екран рядок з 20 символів “*” оберіть пропущені елементи
Не понятен вопрос - где процедура?
7. Як описується на VBA останній елемент масиву Dim mas(78) As Integer?
mas(78) - массив, состоящий из 79 элементов целого типа, индексация от 0 до 78, если нет опции Option Base, где можно явно указать с какого индекса начинается индексация