Составьте программу, выводящую на экран следующую картинку

@SpeedySpeedovsk · Регистрация: 17.09.2015

Студворк — интернет-сервис помощи студентам

Составьте программу, выводящую на экран следующую картинку:

Указание. Используйте сведения из курса математики: координаты (А,B) точки, находящейся внутри окружности с центром (x,y) радиуса r, удовлетворяют условию (x-a)^2+(y-b)^2<r^2

@Puporev · 09.10.2015, 13:52

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
27
28
29
30
31
uses graphABC,PointRect;
var x0,y0,x,y,r1,r2,i:integer;
    p:array[1..3] of Point;
begin
randomize;
x0:=windowwidth div 2;
y0:=windowheight div 2;
r1:=y0 div 3;
r2:=y0 div 2;
for i:=1 to 2000 do
 begin
  x:=x0-r1+random(2*r1+1);
  y:=y0-r1+random(2*r1+1);
  if sqr(x0-x)+sqr(y0-y)<=r1*r1 then setpixel(x,y,clBlack);
 end;
for i:=1 to 10000 do
 begin
  x:=1+random(2*x0);
  y:=1+random(2*y0);
  if sqr(x0-x)+sqr(y0-y)>=r2*r2 then setpixel(x,y,clBlack);
 end;
setbrushcolor(clBlack);
p[1].x:=1;p[1].y:=1;
p[2].x:=2*x0;p[2].y:=1;
p[3].x:=x0;p[3].y:=y0;
polygon(p,3);
p[1].x:=1;p[1].y:=2*y0;
p[2].x:=2*x0;p[2].y:=2*y0;
p[3].x:=x0;p[3].y:=y0;
polygon(p,3);
end.

@SpeedySpeedovsk · 09.10.2015, 14:23 **[ТС]**

А возможно сделать без массивов?

@Puporev · 09.10.2015, 14:26

Можно соединит точки треугольников линиями и fllodfill, но это дольше заливает, я не люблю, хочешь делай.

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

Составьте программу, выводящую на экран следующую картинку

Решение

Решение

@SpeedySpeedovsk 0 / 0 / 0 Регистрация: 17.09.2015 Сообщений: 44

	Составьте программу, выводящую на экран следующую картинку 09.10.2015, 12:38. Показов 3852. Ответов 3 Метки нет (Все метки) Составьте программу, выводящую на экран следующую картинку: Указание. Используйте сведения из курса математики: координаты (А,B) точки, находящейся внутри окружности с центром (x,y) радиуса r, удовлетворяют условию (x-a)^2+(y-b)^2<r^2 Миниатюры 0

@SpeedySpeedovsk 0 / 0 / 0 Регистрация: 17.09.2015 Сообщений: 44
	09.10.2015, 14:23 [ТС]
	А возможно сделать без массивов? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	09.10.2015, 14:26
	Сообщение было отмечено SpeedySpeedovsk как решение Решение Можно соединит точки треугольников линиями и fllodfill, но это дольше заливает, я не люблю, хочешь делай. 1