Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
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 и т д Написать программу, приводящую... подробнее
Давид
Программист 1С
856 / 644 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
08.11.2009, 23:37 0

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

08.11.2009, 23:37. Просмотров 210852. Ответов 157
Метки (Все метки)

Ответ

Нас всегда учили так делать. Данная процедура занимает отсилы 10 минут, зато потом удобно рисовать по координатам и знать что линии не будут кривыми.
Вот пример: изображение дома в трехмерном пространстве.
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
program x;
uses crt,graph;
Var gd,gm:integer;
begin
clrscr;
detectgraph (gd,gm);
initgraph (gd,gm,'tp\7');
Line (60,150,60,450);
Line (60,150,240,150);
Line (60,450,240,450);
Line (240,150,240,450);
Line (60,150,240,60);
Line (240,150,390,60);
Line (240,60,390,60);
Line (390,60,390,350);
Line (390,350,240,450);
Line (82,140,255,140);
Line (255,140,255,440);
Line (90,180,150,180);
Line (150,180,150,240);
Line (150,240,90,240);
Line (90,240,90,180);
Line (120,180,120,210);
Line (90,240,120,210);
Line (120,210,150,210);
Line (90,270,150,270);
Line (150,270,150,330);
Line (150,330,90,330);
Line (90,330,90,270);
Line (90,330,120,300);
Line (120,270,120,300);
Line (120,300,150,300);
Line (90,360,150,360);
Line (150,360,150,420);
Line (150,420,90,420);
Line (90,420,90,360);
Line (120,360,120,390);
Line (120,390,90,420);
Line (120,390,150,390);
Line (180,330,180,450);
Line (180,330,240,330);
Line (180,390,185,390);
Line (255,175,390,93);
Line (270,185,380,117);
Line (330,150,330,175);
Line (255,240,390,150);
Line (255,300,390,210);
Line (255,360,390,270);
Line (255,420,390,330);
Readln
end.


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

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

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

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

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