Составить программу рисования ромашки на паскале.

вот программа, довольно понятная, 

комментарии:

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; begingdriver: =detect; initgraph(gdriver, gmode,''); errcode: =graphresult; if(graphresult < > grok) thenbeginwriteln('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 dobegin 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.

Поскольку язык не указан, отвечающий  вправе использовать любой. в данном случае выбран vba из состава microsoft office 2003 (реализация в среде excel). некоторые и господа (обычно школьники и студенты), мнят себя великими программистами и считают семейство языков vb/vba/vbs недостойным упоминания. теперь у них есть возможность написать что-то аналогичное на с++/delphi и сравнить полученные коды с . собственно, описание класса class1: private const n = 12 public sub howmanysucc(byref kol as integer)       dim i as integer, m1 as integer, m as integer       kol = 0       m1 = getint()       for i = 2 to n               m = getint()               if m > m1 then kol = kol + 1       next i end sub private function getint() as integer       dim n as integer       getint = int(val(inputbox("введите целое число" end function вызов для тестирования: sub aa()       dim oc as new class1, k as integer       oc.howmanysucc k       msgbox "целых, больше первого: " + str(k) end sub

Создание и изменение ключевых полейоткройте таблицу в режиме конструктора.выделите одно или несколько полей, которые необходимо определить как ключевые. для выделения одного поля выберите область выделения строки нужного поля. для выделения нескольких полей нажмите и удерживайте клавишу  ctrl  и выберите область выделения для каждого поля.нажмите кнопку  ключевое поле  на панели инструментов.допускается назначение ключевым полем поля, содержащего данные, однако, если в этом поле имеются повторяющиеся или пустые значения, будет выведено сообщение об ошибке. получивший такое сообщение пользователь имеет три возможности: выполнить запрос на поиск повторяющихся записей для поиска записей, содержащих повторяющиеся или пустые значения в поле, и изменить эти значения; выбрать другое поле или добавить поле счетчика и определить его как ключевое. для составного ключа существенным может оказаться порядок образующих ключ полей. сортировка записей осуществляется в соответствии с порядком ключевых полей в бланке в режиме конструктора таблицы. если необходимо указать другой порядок сортировки без изменения порядка ключевых полей, то сначала определите ключ, как это описано выше, а затем нажатием кнопки  индексы  на панели инструментов откройте окно  "индексы"  и укажите другой порядок полей для индекса с именем "primarykey".