Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 26.10.2020
Сообщений: 18

Графика. Нарисовать 10 звезд

06.12.2020, 23:26. Показов 1604. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Задание: Нарисовать на экране 10 заполненных звезд разного цвета стиля заполнения.

Вот для примера что у меня получилось, но нужно еще заполнить их.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses graphABC;
 
procedure star(x, y: integer);
 
begin
  moveto(x + 40, y + 40);
  lineto(x + 50, y);
  lineto(x + 60, y + 40);
  lineto(x + 100, y + 50);
  lineto(x + 60, y + 60);
  lineto(x + 50, y + 100);
  lineto(x + 40, y + 60);
  lineto(x, y + 50);
  lineto(x + 40, y + 40);
end;
 
var
  x, y, i: integer;
 
begin
  for i := 1 to 10 do
  begin
    star(x, y);
    x := x + 105;
  end;
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
06.12.2020, 23:26
Ответы с готовыми решениями:

Нарисовать 10 заполненных звёзд разного стиля и цвета заполнения
Звёзды то я нарисовал а вот как их закрасить разными цветами и стилями не знаю помогите Uses Graphabc, abcobjects; var ...

Графика. Нарисовать 10 звезд
Задание: Нарисовать на экране 10 заполненных звезд разного цвета стиля заполнения. Вот для примера что у меня получилось, но нужно...

Графика. Нарисовать 10 звезд
Нарисовать на экране 10 заполненных звезд разного цвета и стиля заполнения.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
06.12.2020, 23:26
Помогаю со студенческими работами здесь

Графика, движение звезд
Скажите пожалуйста как нарисовать затмение луны слева направо,(т.е желтый круг-луна, и ее медленно закрывает и потом открывает круг другого...

Нарисовать 100 разноцветных звезд
Здравствуйте, нужна помощь с задачей. Задача: Нарисовать 100 разноцветных звезд, в случайном порядке разбросанных по экрану. ...

Нарисовать сетку размером 8х8 из разноцветных восьмиугольных заполненных звезд
Нарисовать сетку размером 8х8 из разноцветных восьмиугольных заполненных звезд

Нарисовать набор звёзд разного цвета, центры которых образуют окружность
Нужно нарисовать набор звёзд разного цвета, центры которых образуют окружность, вращаются против часовой стрелки вокруг общего центра... ...

Графика. Нарисовать кубик
Создайте модуль, в котором будет храниться процедура создания следующей картинки. Используя модуль, поместите картинку по углам экрана и в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru