Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
ateccc
0 / 0 / 0
Регистрация: 30.01.2010
Сообщений: 10
31.03.2010, 12:14 0

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

31.03.2010, 12:14. Просмотров 210083. Ответов 157
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure box(x1,y1,x2,y2: integer; color:byte);
var k:integer;
begin
textcolor(color);
GotoXY(x1,y1);write(#201);
For k:=x1+1 to x2-1 do write(#205);
write(#187);
For k:=y1+1 to y2-1 do begin
GotoXY(x1,k);write(#186);
GotoXY(x2,k);write(#186);
                       end;
GotoXY(x1,y2);write(#200);
for k:=x1+1 to x2-1 do write(#205);
write(#188);
end;
Рисуем рамку с координатами x1,x2,y1,y2 и цветом color
x1,x2 - координаты левого верхнего угла;
y1,y2 - координаты правого нижнего угла;
Пример:
Pascal
1
box(3,3,33,9,7);
не забивайте это все еще текстовой режим !!!

Добавлено через 2 минуты
Цитата Сообщение от Puporev Посмотреть сообщение
ateccc, Я так понял, это для текстового режима?
Да все верно!

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

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

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

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

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