Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Puporev
Модератор
54732 / 42133 / 29091
Регистрация: 18.05.2008
Сообщений: 99,455
06.04.2010, 19:34 0

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

06.04.2010, 19:34. Просмотров 210149. Ответов 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
Uses GRAPH,crt;
Var
   GD,GM,i,j:integer;
BEGIN
GD:=detect;
initgraph(GD,GM,'C:\TP\BGI');
SetBkColor(0);
SetColor(white);
outtextXY(300,getmaxY-40,'Press any key...');
Circle(250,300,60);
setcolor(5);
Circle(250,300,20);
floodfill(250,300,5);
circle(250,200,40);
circle(240,200,6);
circle(260,200,6);
line(180,215,250,215);
line(250,215,325,215);
circle(250,215,3);
line(315,200,250,215);
line(315,235,250,215);
line(189,200,250,215);
line(191,235,250,215);
line(240,163,230,150);
line(260,163,270,150);
line(230,167,230,150);
line(270,167,270,150);
setcolor(5);
circle(185,330,10);
floodfill(185,330,5);
setcolor(5);
circle(170,340,10);
floodfill(170,340,5);
setcolor(5);
circle(157,328,10);
floodfill(157,328,5);
i:=0;
repeat
i:=i+1;
if i=16 then i:=1;
   setcolor(i);
   setfillstyle(1,i);
   circle(240,200,5);
   floodfill(241,201,i);
   setcolor(i+1);
   setfillstyle(1,i+1);
   circle(260,200,5);
   floodfill(260,200,i+1);
   setcolor(6);             {vot tyt usi}
   line(180,215,250,215);
   line(250,215,325,215);
   delay(1000);
   setcolor(0);
   line(180,215,250,215);
   line(250,215,325,215);
   setcolor(6);
   line(185,195,250,215);
   line(250,215,330,195);
   delay(1000);
   setcolor(0);
   line(185,195,250,215);
   line(250,215,330,195);
until keypressed;
END.


Вернуться к обсуждению:
Графика в Турбо Паскаль
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.04.2010, 19:34

Графика в Турбо Паскаль. Нарисовать телефон
Кто может нарисовать такое??

Построение графика функции в турбо-Паскаль
Как построить график данной функции в...

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

0
Другие темы раздела
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