0 / 0 / 0
Регистрация: 20.01.2014
Сообщений: 20
1

Нужно нарисовать фигуру

17.06.2014, 18:27. Показов 2157. Ответов 5
Метки нет (Все метки)

Нужно нарисовать фигуру. Прикреплен файл с заданием
Вложения
Тип файла: docx Документ Microsoft Word.docx (28.5 Кб, 23 просмотров)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.06.2014, 18:27
Ответы с готовыми решениями:

Нарисовать фигуру
а

Нарисовать фигуру с зубцами
Написать процедуру, которая рисует на экране фигуру: /\/\/\/\/\ входные параметры: ...

Нарисовать любую фигуру и закрасить ее
помогите пожалуйста создать в abc паскале какую-нибудь фигуру и полностью ее закрасить) заранее...

Нарисовать фигуру (ломаную линию)
помогите

5
Почетный модератор
64072 / 47483 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
17.06.2014, 19:23 2
Цитата Сообщение от Owod Посмотреть сообщение
Прикреплен файл с заданием
И там что-то видно? Напиши задание руками, а картинку, которую нужно нарисовать, приложи файлом в тему.
0
0 / 0 / 0
Регистрация: 20.01.2014
Сообщений: 20
17.06.2014, 19:29  [ТС] 3
Цвет фона - зеленый
Цвет линий - синий
Цвет штриховки - 1.Красный
2.Желтый
Миниатюры
Нужно нарисовать фигуру  
0
0 / 0 / 0
Регистрация: 20.01.2014
Сообщений: 20
17.06.2014, 19:33  [ТС] 4
Вот
0
191 / 161 / 116
Регистрация: 14.09.2013
Сообщений: 302
17.06.2014, 19:36 5
Лучший ответ Сообщение было отмечено Owod как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt, graphabc;
 
 
begin
  TextBackGround(green);
  clrscr;
  setpencolor(clblue);
  line(100, 0, 100, 200);
  line(0, 100, 200, 100);
  circle(100, 100, 80);
  floodfill(100, 100, clred);
  line(20, 100, 100, 20);
  line(100, 20, 180, 100);
  line(180, 100, 100, 180);
  line(100, 180, 20, 100);
  floodfill(100, 100, clyellow);
end.
1
Почетный модератор
64072 / 47483 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
17.06.2014, 19:44 6
Лучший ответ Сообщение было отмечено Owod как решение

Решение

Или так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses graphABC;
var x,y,r:integer;
begin
x:=windowwidth div 2;
y:=windowheight div 2;
r:=y-80;
clearwindow(clGreen);
setpencolor(clBlue);
line(x,y-r-50,x,y+r+50);
line(x-r-50,y,x+r+50,y);
setbrushcolor(clRed);
circle(x,y,r);
line(x-r,y,x,y-r);
line(x,y-r,x+r,y);
line(x+r,y,x,y+r);
line(x,y+r,x-r,y);
floodfill(x,y,clYellow)
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.06.2014, 19:44

Нарисовать фигуру в Pascal ABC
Доброго времени суток! Такая проблема, нужно нарисовать вот такую фигуру. Начало кода есть, но я не...

Нарисовать фигуру при помощи рекурсии
не имею предст авления как нарисовать фигуру при помощи рекурсии program recurs; uses graphabc;...

Нарисовать фигуру, образованную вырезанием из куба 3 кубиков со втрое меньшей длиной ребра
Нарисовать фигуру, образованную вырезанием из куба 3 кубиков со втрое меньшей длиной ребра. НЕ...

Выведено изображение, нужно на нем нарисовать по фигуру (квадрат, круг)
Выведено изображение, нужно на нем нарисовать по фигуру (квадрат, круг). размер и положение я...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.