Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Rom@
22 / 22 / 12
Регистрация: 29.11.2009
Сообщений: 210
16.04.2010, 23:35

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

16.04.2010, 23:35. Просмотров 209336. Ответов 157
Метки (Все метки)

Ответ

не знаю возможно такая тема уже бьіла "Авто"
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
67
68
69
70
71
72
73
74
75
76
77
78
79
program Speed;
uses crt,graph;
Var gd,gm:integer;
begin
clrscr;
detectgraph (gd,gm);
initgraph (gd,gm,'tp\7');
{koleca}
{1-e}
circle (180,330,30);
circle (180,330,40);
Line (180,330,165,315);
Line (180,330,195,315);
Line (180,330,195,330);
Line (180,330,165,330);
Line (180,330,165,345);
Line (180,330,195,345);
Line (180,345,180,315);
{2-e}
circle (450,330,30);
circle (450,330,40);
Line (435,330,465,330);
Line (450,315,450,345);
Line (465,315,435,345);
Line (435,315,465,345);
{rama}
Line (143,315,120,315);
Line (120,315,110,330);
Line (110,330,60,330);
Line (60,330,55,320);
Line (55,320,55,280);
Line (55,280,64,280);
Line (63,280,90,240);
Line (90,240,180,225);
Line (180,225,210,160);
Line (210,160,510,160);
Line (510,160,480,210);
Line (489,195,540,300);
Line (540,300,491,330);
Line (491,330,540,330);
Line (540,330,510,355);
Line (510,355,481,355);
Line (540,330,540,300);
Line (418,355,212,355);
Line (147,355,60,355);
Line (60,355,60,330);
Line (105,240,86,280);
Line (86,280,60,280);
Line (220,330,410,330);
Line (480,210,450,210);
Line (450,210,440,160);
Bar (60,300,90,305);
{DBEPU}
Line (165,270,300,270);
Line (165,270,165,292);
Line (165,270,213,165);
Line (213,165,420,165);
Line (420,165,420,240);
Line (420,240,360,320);
Line (360,320,310,320);
Line (310,320,305,315);
Line (305,315,330,240);
Line (330,240,420,240);
Line (330,270,360,270);
Line (330,240,330,165);
Line (180,260,220,170);
Line (220,170,320,170);
Line (320,170,300,270);
Line (180,260,300,260);
Line (300,270,283,320);
Line (283,320,220,320);
Line (255,300,285,300);
Setcolor (10);
Line (55,287,165,287);
Line (385,287,533,287);
Line (102,247,175,247);
Line (416,247,514,247);
Readln
end.


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

Графика в Турбо Паскаль
(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