Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.04.2010, 16:35   #1
Nord18
Пользователь
 
Регистрация: 25.02.2010
Сообщений: 43
По умолчанию Графика в Паскаль

Доброго времени суток!! Друзья помогите мне пожалуйста! Нужно нарисовать вот такой телефизор а у меня не получается...Если не трудно, напишите код...С уважением!
Изображения
Тип файла: png Телевизор.PNG (4.1 Кб, 125 просмотров)
Nord18 вне форума Ответить с цитированием
Старый 01.04.2010, 16:40   #2
Grag
А может и не...
Участник клуба
 
Аватар для Grag
 
Регистрация: 27.03.2010
Сообщений: 1,269
По умолчанию

В свое время у меня тож многое не получалось...
Сидел кропотливо изучал, разбирался, пробовал...
С моим резюме и портфолио можно ознакомиться в соответствующих разделах на моем сайте:
http://igor-bachin.narod.ru
или вот по этим ссылкам:
http://www.autsorser.ru/index.php?action=rsm&user=59
http://www.autsorser.ru/index.php?action=prtfl&user=59

Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61
Перемешивай дело с бездельем и не сойдешь с ума...
Grag вне форума Ответить с цитированием
Старый 01.04.2010, 17:00   #3
Nord18
Пользователь
 
Регистрация: 25.02.2010
Сообщений: 43
По умолчанию

Это конечно всё очень интересно, но Игорь, может вы мне поможите?
Nord18 вне форума Ответить с цитированием
Старый 01.04.2010, 17:24   #4
Grag
А может и не...
Участник клуба
 
Аватар для Grag
 
Регистрация: 27.03.2010
Сообщений: 1,269
По умолчанию

И в чем же должна заключаться моя помощь?
Перемешивай дело с бездельем и не сойдешь с ума...
Grag вне форума Ответить с цитированием
Старый 01.04.2010, 18:22   #5
Nord18
Пользователь
 
Регистрация: 25.02.2010
Сообщений: 43
По умолчанию

Если не сложно, подскажите как правильно создать такой рисунок?
Nord18 вне форума Ответить с цитированием
Старый 02.04.2010, 17:01   #6
999Crow999
Пользователь
 
Регистрация: 30.11.2008
Сообщений: 22
По умолчанию

Код:
program za;
uses graph,crt;
var
x,y,xmax,ymax,gd,gm: integer;
begin clrscr;
gm:=2;
gd:=9;
initgraph(gd,gm,'C:\');
setcolor(white);
x:=540;
y:=80;
moveto(x,y);
linerel(-400,0);
linerel(-20,20);
linerel(0,300);
linerel(400,0);
linerel(20,-20);
linerel(0,-300);
linerel(-20,20);
linerel(-400,0);
moveto(520,100);
linerel(0,300);
moveto(130,110);
linerel(0,280);
linerel(300,0);
linerel(0,-280);
linerel(-300,0);
ellipse(320,90,15,5,15,5);
moveto(315,90);
linerel(-35,-40);
moveto(325,90);
linerel(35,-40);
ellipse(475,130,15,5,15,5);
ellipse(475,190,15,5,15,5);
ellipse(475,250,15,5,15,5);
readln;
end.
перед запуском файл EGAVGA.BGI в папке (гдетвой паскал)\BGI скопируй на диск С:\

Последний раз редактировалось 999Crow999; 02.04.2010 в 17:03. Причина: Добавил!
999Crow999 вне форума Ответить с цитированием
Старый 03.04.2010, 20:28   #7
Nord18
Пользователь
 
Регистрация: 25.02.2010
Сообщений: 43
По умолчанию

Большое спасибо!
Nord18 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Графика. Паскаль Zond235 Паскаль, Turbo Pascal, PascalABC.NET 15 11.06.2010 18:17
Паскаль,графика!! DjDeniels-61 Помощь студентам 3 30.06.2009 01:04
паскаль. графика deu4er Помощь студентам 2 18.05.2009 21:30
Графика. Паскаль. b1otekk Помощь студентам 10 20.03.2009 12:18