сервис вопросов и ответовСоставить программу рисования ромашки на паскале.
5-9 класс|
|
Zdyanochka
28 сент. 2015 г., 6:34:56 (8 лет назад)
Savelev2011
28 сент. 2015 г., 9:33:27 (8 лет назад)
Вот программа, довольно понятная,
комментарии:
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.К текстовым редакторам , в которых не применяется форматирование , относиться приложение :
a. Windows блокнот
б. Microsoft Word
в. Open Office Write
г. MS Paint
2. Оцените продолжительность звучания аудиофайла размером 60 Мб( без сжатия), если он был закодирован и сохранен со следующими параметрами: стерео , 16 бит , 22кГц
а. 1,5 мин
б. 12 мин
в. 3,3 ч
д. 24 мин
Число n вводят с клавиатуры.Напечатать n раз число 5.
Числа n и kвводят с клавиатуры.Напечатать n раз число k.
Числа n и k вводят с клавиатуры.Напечатать n раз число k, а затем k раз число n.
Вывести числа от 1 до 20 в строку через пробел.
Вывести числа от 11 до 40 в строку через пробел.
Вывести квадраты чисел от 1 до 10 в столбик.
Помогите мне решить задачи на языке Паскаль срочно нужно
Читайте также
Составить программу, которая выводит на экран в обратном порядке нечетные числа от 29 до 1 в Pascal ABC.
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
составьте программу, которая вставляет слово ОБА после каждого слова, заканчивающегося на гласную.
Или
составьте программу, которая определяет на сколько в строке S слов, начинающихся на главную букву больше, чем в строке T
надо решить одну из них
1)Составить программу которая выводит на экран каждое 5-ое число и таких чисел 20.
2)Составить программу которая вычисляет произведение натуральных чисел от 5 до 10.
Помогите решить задачки на паскале я совсем не разбираюсь в этом!!! 1)Дана таблица со значениями среднемесячных температур в течение года. Составить
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
Поомогите, пожайлуста. Нужно составить программу на паскале. Ежемесячная стипендия студента составляет a руб.Расходы на проживание превышают стипендию
и составляют b руб(в месяц).Рост цен ежемесячно увеличивает расходы на 3%,составьте программу расчета необходимой суммы денег,которую нужно единовременно попросить у родителей,чтобы можно было прожить 10 месяцев,используя эти деньги.
Вы находитесь на странице вопроса "Составить программу рисования ромашки на паскале.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.