Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Helfer
ЙожЪ
63 / 59 / 17
Регистрация: 23.10.2009
Сообщений: 652
01.04.2010, 21:28 0

Графика в Турбо Паскаль

01.04.2010, 21:28. Просмотров 210134. Ответов 157
Метки (Все метки)

Ответ

Puporev,
Слоник =)

думаю полигонов хватит..
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
Program Slonik;
uses graph,crt;
const a=23; {max = 23}
      b=20;c=27;
      x: array[1..34] of PointType =  ((X: 2*a;  Y: 13*a), (X: 4*a;  Y: 11*a),  (X: 5*a;  Y: 8*a),  (X: 8*a;  Y: 6*a),
                                       (X: 12*a; Y: 5*a),  (X: 12*a; Y: 5*a),   (X: 13*a; Y: 7*a),  (X: 16*a; Y: 9*a),
                                       (X: 17*a; Y: 8*a),  (X: 18*a; Y: 8*a),   (X: 19*a; Y: 9*a),  (X: 20*a; Y: 9*a),
                                       (X: 22*a; Y: 11*a), (X: 21*a; Y: 12*a),  (X: 19*a; Y: 12*a), (X: 19*a; Y: 13*a),
                                       (X: 20*a; Y: 13*a), (X: 20*a; Y: 15*a),  (X: 18*a; Y: 19*a), (X: 16*a; Y: 17*a),
                                       (X: 17*a; Y: 15*a), (X: 17*a; Y: 14*a),  (X: 16*a; Y: 14*a), (X: 16*a; Y: 19*a),
                                       (X: 13*a; Y: 19*a), (X: 13*a; Y: 13*a),  (X: 8*a;  Y: 13*a), (X: 9*a;  Y: 17*a),
                                       (X: 8*a;  Y: 17*a), (X: 8*a;  Y: 18*a),  (X: 5*a;  Y: 18*a), (X: 6*a;  Y: 14*a),
                                       (X: 5*a;  Y: 11*a), (X: 2*a;  Y: 13*a));
                                       
      y: array[1..23] of PointType =  ((X: 17*a;  Y: 2*a),  (X: 19*a; Y: 3*a),  (X: 23*a;  Y: 3*a),  (X: 25*a; Y: 2*a),
                                       (X: 27*a;  Y: 4*a ), (X: 27*a; Y: 8*a),  (X: 24*a;  Y: 10*a), (X: 23*a; Y: 8*a),
                                       (X: 23*a;  Y: 12*a), (X: 22*a; Y: 13*a), (X: 19*a;  Y: 13*a ),(X: 19*a; Y: 12*a),
                                       (X: 21*a ; Y: 12*a ),(X: 22*a; Y: 11*a), (X: 20*a;  Y: 9*a ), (X: 19*a; Y: 9*a),
                                       (X: 19*a;  Y: 9*a ), (X: 18*a; Y: 8*a),  (x: 17*a;  y: 8*a),  (X: 16*a; Y: 9*a ),
                                       (X: 13*a ; Y: 7*a),  (X: 12*a ; Y: 5*a), (X: 17*a ; Y: 2*a));
                                       
var gd,gm:integer; i,j:byte;
begin
     initgraph(gd,gm,'');
     for i:=1 to b do line (a,a*i,c*a,a*i);
     for i:=1 to c do line (a*i,a,a*i,b*a);
     setcolor(13);
     SetLineStyle(0,0,thickwidth);
     drawpoly(34,x);
     drawpoly(23,y);
     setcolor(3);
     circle(18*a,6*a,a-7);
     circle(22*a,6*a,a-7);
     readln;
     closegraph;
     end.


Вернуться к обсуждению:
Графика в Турбо Паскаль
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.04.2010, 21:28
Готовые ответы и решения:

Графика в Турбо Паскаль
(b+\sqrt{b-4ac}/2a)-a*a*a*c - помогите как это записать в турбо паскале...

Графика в Турбо Паскаль
ситуация следующая. написала програму в которой задаешь координаты точки и в...

Графика в Турбо Паскаль
Не могли бы вы посоветовать книгу или дать ссылку на форуме где подробно...

Графика в Турбо Паскаль не работает
Люди помогите плиз. У меня windows 7 когда я пытаюсь запустить программу с...

построение графика на Турбо Паскаль
Помогите пожалуйста Y=(x*(3-x))/(1-x)*sqr(1-x)

157
Другие темы раздела
Turbo Pascal Массив: элементы, следующие за максимумом, заменить на минимум http://www.cyberforum.ru/turbo-pascal/thread56257.html
В массиве из 10 элементов, элементы следующие за максимомум заменить на минемум.
Turbo Pascal Найти максимум среди нечетных отрицательных элементов каждого столбца матрицы У кого есть время, решите пожал. задачу!!! Заранее спасибо!!!))) Дана матрица 4Х5. Найти max среди нечетных отрицательных элементов каждого столбца. http://www.cyberforum.ru/turbo-pascal/thread56253.html
Turbo Pascal найти
if s='001' then write ('1'); В S выводится число вещественное. как то нужно сделать если встретили 001 то заменяем его на 1 . и так во всей строке..
Числа Turbo Pascal
if (s4=1) then insert('00',s,s1); нужно переписать чтоб вместо 1 были все нечетные числа .. if (s4=2) then insert('00',s,s1); нужно переписать чтоб вместо 2 были все четные числа ..
Turbo Pascal Перевод из двоичной системы в десятеричную. http://www.cyberforum.ru/turbo-pascal/thread56144.html
дано число в двоичной системе проверить правильность ввода этого числа(в его записи должны быть 0 и 1).если число введено неверно повторить ввод.при правильном вводе перевести число в десятичную...
Turbo Pascal Строки и телефонные номера. Задачка на строки и дин.массивы Номера мобильных телефонов могут выглядеть по-разному: 8-111-1111111 +7 111 1111111 +71111111111 8(111)111-1111 и т д Написать программу, приводящую... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru