Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Nonstopday
0 / 0 / 0
Регистрация: 28.01.2016
Сообщений: 30
#1

Нарисовать фигуры с псевдообъемом - Turbo Pascal

31.01.2016, 15:49. Просмотров 212. Ответов 4
Метки нет (Все метки)

Помогите
http://www.cyberforum.ru/turbo-pascal/thread195086.html
0
Миниатюры
Нарисовать фигуры с псевдообъемом  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.01.2016, 15:49
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Нарисовать фигуры с псевдообъемом (Turbo Pascal):

Нарисовать фигуры, используя вычисления
http://www.cyberforum.ru/attachment.php?attachmentid=333321&stc=1&d=1385394993

Нарисовать простые фигуры - прямоугольник и секторы
Нужно нарисовать фигуру которая на картине. Пожалуста помогите буду очень...

Псевдографика: C помощью знаков «*» нарисовать 2 фигуры близнецов
Пожалуйста помогите. Буду очень благодарна)) C помощью знаков «*» ...

Как нарисовать на шахматной доске фигуры шашки
Скажите как нарисовать на шахматной доске фигуры шашки, впринцыпе алгоритм...

Нарисовать геометрическую фигуру, контур которой закрашен отличным светом от внутреннего, и записать текст внутри фигуры
Доброго времени суток! :d помогите решить следующие задачки на языке...

4
Hikari
Хитрая блондиночка $)
1451 / 960 / 399
Регистрация: 21.12.2015
Сообщений: 3,785
31.01.2016, 16:04 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Грубо говоря - так:
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
uses crt,graph;
 
 procedure Sqia(x,y:integer;RadiusA:Integer);
 var
  Knots:array[1..5] of PointType;
  angle:Double;i:integer;
 begin angle:=0;
  for i:=1 to 5 do begin
   Knots[i].X:=Round(x+RadiusA*cos(angle));
   Knots[i].Y:=Round(y+RadiusA*sin(angle));
   angle:=angle+pi/2;
  end;
  DrawPoly(5,Knots);
 end;
var dr,md:integer;
begin
dr:=detect;
initgraph(dr,md,'');
Sqia(200,200,100);Sqia(200,200,50);
Sqia(500,200,100);Sqia(500,200,50);
 
readkey;
closegraph;
end.
P.S. Это из архива коллеги.
0
Nonstopday
0 / 0 / 0
Регистрация: 28.01.2016
Сообщений: 30
31.01.2016, 16:22  [ТС] #3
мне пишет что надо быть в режиме 8087,чтобы её скомпилировать
0
Миниатюры
Нарисовать фигуры с псевдообъемом  
Puporev
Модератор
54130 / 41763 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
31.01.2016, 16:56 #4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses graph;
procedure romb(x,y,a:integer);
var p,p1,p2:array[1..7]of pointtype;
    b,i:integer;
begin
b:=a div 3;
p[1].x:=x-a;p[1].y:=y;
p[2].x:=x-a+b;p[2].y:=y;
p[3].x:=x;p[3].y:=y+a-b;
p[4].x:=x+a-b;p[4].y:=y;
p[5].x:=x+a;p[5].y:=y;
p[6].x:=x;p[6].y:=y+a;
p[7]:=p[1];
setcolor(10);
drawpoly(7,p);
setfillstyle(1,10);
floodfill(x,y+a-5,10);
setcolor(8);
p1[1].x:=x-a;p1[1].y:=y;
p1[2].x:=x;p1[2].y:=y-a;
p1[3].x:=x+a;p1[3].y:=y;
p1[4].x:=x;p1[4].y:=y+a;
p1[5]:=p1[1];
drawpoly(5,p1);
p2[1].x:=x-a+b;p2[1].y:=y;
p2[2].x:=x;p2[2].y:=y-a+b;
p2[3].x:=x+a-b;p2[3].y:=y;
p2[4].x:=x;p2[4].y:=y+a-b;
p2[5]:=p2[1];
drawpoly(5,p2);
for i:=1 to 4 do
line(p1[i].x,p1[i].y,p2[i].x,p2[i].y);
end;
var x,y,a,i:integer;
begin
initgraph(x,y,'');
setbkcolor(15);
a:=getmaxX div 7;
x:=a;
y:=getmaxY div 2;
for i:=1 to 3 do
 begin
  romb(x,y,a);
  x:=x+2*a+a div 2;
 end;
readln
end.
Добавлено через 2 минуты
Цитата Сообщение от Nonstopday Посмотреть сообщение
надо быть в режиме 8087,чтобы её скомпилировать
Замените double на real

Добавлено через 4 минуты
Режим 8087 можно выставить в настройках Options->Compile или написать директиву
Pascal
1
2
{$N+}
uses crt,graph;
0
Nonstopday
0 / 0 / 0
Регистрация: 28.01.2016
Сообщений: 30
01.02.2016, 11:48  [ТС] #5
спасибо
0
01.02.2016, 11:48
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.02.2016, 11:48
Привет! Вот еще темы с решениями:

Нарисовать флаг, нарисовать график y=ctg x Нарисовать анимацию
Дело таково у меня сейчас практика, где я очень не успиваю сделать все свои...

Нарисовать фигуры.
Базовый класс фигура, у него минимальный набор параметров и набор виртуальных...

Нарисовать 3D фигуры
Нарисовать Ось координат x,y,z нарисовать куб пирамида,конус, клин, тетраэдр,...

Нарисовать фигуры
Ребят как можно нарисовать эти фигуры, прям срочно надо. Если можно, то скиньте...


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

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

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