Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Nonstopday
0 / 0 / 0
Регистрация: 28.01.2016
Сообщений: 30
#1

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

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

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

Нарисовать простейшие фигуры - Turbo Pascal
Добрый вечер. Нужно создать рисунок как на картинке grafica, если не получится то может объясните что к чему в нижеприведённой программе,...

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

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

Как нарисовать на шахматной доске фигуры шашки - Turbo Pascal
Скажите как нарисовать на шахматной доске фигуры шашки, впринцыпе алгоритм разделения на цвета известен for i:=1 to 8 do for j:=1 to 8...

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

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

4
Hikari
Хитрая блондиночка $)
1451 / 959 / 285
Регистрация: 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
Модератор
52972 / 40783 / 14032
Регистрация: 18.05.2008
Сообщений: 94,838
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 Нарисовать анимацию - Turbo Pascal
Дело таково у меня сейчас практика, где я очень не успиваю сделать все свои задания... Большая просьба кто готов помочь, пишите а кто...

Нарисовать фигуры. - Delphi
Базовый класс фигура, у него минимальный набор параметров и набор виртуальных функций, таких как рисование, расчёт площади и т.д. От него...

Нарисовать 2 геометрические фигуры - Pascal ABC
В а)пирамида; б)куб;

Нарисовать чертеж фигуры - Photoshop
Помогите, пожалуйста нарисовать следующий фигуры.


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

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

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