Создать изображение математической системы координат и изображение криволинейной фигуры-Контура

@Chix78 · Регистрация: 12.06.2020

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

Написать программу, которая:
a. создает изображение математической системы координат;
b. создает изображение криволинейной фигуры-Контура

@Puporev · 24.06.2020, 14:12

Обе картинки? Если да, то в одной программе или в разных?

@Chix78 · 24.06.2020, 14:26 **[ТС]**

в одной

Добавлено через 1 минуту
первая картинка это же образец

@Puporev · 24.06.2020, 14:30

Сообщение от Chix78

это же образец

Да ты что??? А нафига тогда ее прикрепил, даже толком задание не можешь написать.

@Chix78 · 24.06.2020, 14:33 **[ТС]**

там написано что это образец. А прикрепил ее для пояснения

@canadamoscow · 25.06.2020, 17:48

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
uses GraphABC, ABCObjects;
begin
  SetWindowSize(20*18, 20*18); CenterWindow; DrawInBuffer := true;
  Polygon(pnt(9*20, 20), pnt(9*20+5, 40), pnt(9*20-5, 40));
  Polygon(pnt(20*17, 9*20), pnt(20*16, 9*20+5), pnt(20*16, 9*20-5));
  FloodFill(9*20, 25, clBlack); FloodFill(20*17-5, 9*20, clBlack);
  For var i := 1 to 17 do
    begin      
      Line(I*20,20, I*20, 20*17);
      Line(20, I*20, 20*17, I*20);
    end;
  SetPenWidth(3);
  Line(9*20,40, 9*20, 20*17);
  Line(20, 9*20, 20*16, 9*20);
  sleep(2000);   
  LockDrawing; ClearWindow; SetPenWidth(1);  
  Polygon(pnt(9*20, 20), pnt(9*20+5, 40), pnt(9*20-5, 40));
  Polygon(pnt(20*17, 9*20), pnt(20*16, 9*20+5), pnt(20*16, 9*20-5));
  FloodFill(9*20, 25, clBlack); FloodFill(20*17-5, 9*20, clBlack);
  SetCoordinateOrigin(9*20, 9*20); 
  // Заштрихованная область
  for var i := -6*20 to 0 do if i mod 5 = 0 then line(i, i+6*20, i+6*20, i); 
  for var i := 1 to 4 do Line(-6*20, -10*i, -10*i, -6*20);
  // Левый верхний квадрант
  SetPenWidth(10); SetPenColor(clWhite);
  Arc(0, 0, 20*6+5, 90, 180);
  SetPenWidth(2); SetPenColor(clBlack);
  Arc(0, 0, 20*6, 90, 180);
  SetPenWidth(1);
  For var i := - 8 to 0 do
    begin
      var x := 0; if I >  -6 then x := round(sqrt(sqr(6*20)-sqr(i*20)));
      Line(I*20,-x, I*20, -8*20);
      Line(-20*8, I*20, -x, I*20);
    end;
  // Правый верхний квадрант 
  SetPenWidth(2); Line(0, -20*6, 6*20, 0); SetPenWidth(1);
  For var i := 0 to 8 do
    begin
      var x := 0; if I <  6 then x := 6*20 - i*20;
      Line(I*20,-x, I*20, -20*8);
      Line(20*8, -I*20, x, -I*20);
    end;
  // Левый нижний квадрант
  FillPie(-6*20-1, 6*20+1, 20*6, 90, 0);
  SetPenWidth(2); Arc(6*20+1, 6*20+1, 20*6, 90, 180); SetPenWidth(1);
  For var i := -8 to 0 do
    begin
      var x := 0; if i > -6 then x := 6*20 - round(sqrt(sqr(6*20)-sqr((6+i)*20)));
      Line(I*20, x, I*20, 20*8);
      Line(-20*8, -I*20, -x, -I*20);
    end;
  // Правый нижний квадрант
  FillPie(6*20+2, 6*20+2, 20*6, 90, 180);
  SetPenWidth(2); Arc(-6*20-1, 6*20+1, 20*6, 90, 0); SetPenWidth(1);
  For var i := 0 to 8 do
    begin
      var x := 0; if i < 6 then x := 6*20 - round(sqrt(sqr(6*20)-sqr((6-i)*20)));
      Line(I*20, x, I*20, 20*8);
      Line(20*8, I*20, x, I*20);
    end;
  SetPenWidth(3);
  Line(0, - 20*7, 0, 20*8);
  Line(-20*8, 0, 20*7, 0);
  Redraw;
end.

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@Chix78 0 / 0 / 0 Регистрация: 12.06.2020 Сообщений: 13

	Создать изображение математической системы координат и изображение криволинейной фигуры-Контура 24.06.2020, 13:43. Показов 1260. Ответов 5 Метки нет (Все метки) Написать программу, которая: a. создает изображение математической системы координат; b. создает изображение криволинейной фигуры-Контура Миниатюры Изображения 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	24.06.2020, 14:12
	Обе картинки? Если да, то в одной программе или в разных? 0

@Chix78 0 / 0 / 0 Регистрация: 12.06.2020 Сообщений: 13
	24.06.2020, 14:26 [ТС]
	в одной Добавлено через 1 минуту первая картинка это же образец 0

@Chix78 0 / 0 / 0 Регистрация: 12.06.2020 Сообщений: 13
	24.06.2020, 14:33 [ТС]
	там написано что это образец. А прикрепил ее для пояснения 0