Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
domovou2.0
Дзæуджыхъæу
231 / 203 / 148
Регистрация: 20.09.2012
Сообщений: 421
Записей в блоге: 1
29.11.2012, 09:14 0

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

29.11.2012, 09:14. Просмотров 1147. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Lefko94 как решение

Решение

Цитата Сообщение от Lefko94 Посмотреть сообщение
Нужно нарисовать мобильный телефон
так себе, но вроде чуток похож)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Uses Graph,crt;
Var grDriver : Integer;
      grMode : Integer;
Begin
 InitGraph(grDriver, grMode, 'c:\bp\bgi');
 rectangle(180,100,255,270);
 rectangle(185,110,250,200);
 rectangle(190,100,200,80);
 circle(200,220,5);
 circle(220,220,5);
 circle(240,220,5);
  circle(200,240,5);
 circle(220,240,5);
 circle(240,240,5);
  circle(200,260,5);
 circle(220,260,5);
 circle(240,260,5);
 ReadLn ;
closegraph;
End.


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

Графика в Турбо Паскаль
Читаю форум и вижу, что много кому требуется помощь в освоении графики в...

Нарисовать рисунок в турбо паскаль
Вот такой

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

0
Другие темы раздела
Turbo Pascal Маршрут http://www.cyberforum.ru/turbo-pascal/thread712968.html
В таблице из N x N клетки заполнены от 0 до 9. Требуется найти такой путь из клетки (1,1) в клетку (n,n), чтобы сумма цифр в клетках через которую он проходит, была минимальной, из любой клетки...
Turbo Pascal Используя подпрограммы создать и вывести массив Используя подпрограммы создать и вывести массив А, элементы которого описаны формулой am,n2mfi+16(n), m,n= 1 - 4, i=24. Составить еще одну подпрограмму для поиска данных в этом масиви.Обчислить сумму... http://www.cyberforum.ru/turbo-pascal/thread712967.html
Работа с подпрограммами Turbo Pascal
Используя подпрограммы, создать и вывести массив y с элементами yk=fi+1(k), де k=1,12, i- номер варианта. Для расчета yk создать подпрограмму-функцию. Составить еще одну подпрограмму-процедуру для...
Вставить элемент y в массив Turbo Pascal
Вставить элемент Y в массив mas размерностью 12 после первого четного числа .
Turbo Pascal Определить max элемент последовательности и его порядковый номер http://www.cyberforum.ru/turbo-pascal/thread712941.html
С клавиатуры вводится последовательность целых чисел, признак конца ввода ноль. Определить max элемент последовательности и его порядковый номер. Использовать циклы while и repeat. Срочно нужно...
Turbo Pascal Вывести первую букву второго слова в введенном тексте а она выводит число Вместо буквы выводит число. Не могу понять. Программа должна вывести первую букву второго слова в введенном тексте а она выводит число. Буду очень признателен за критику. Code Pascal program... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru