Как нарисовать дом видео
Автор Ваня Иванов задал вопрос в разделе Другие языки и технологии
Информатика Pascal ABC Нарисовать простой дом и получил лучший ответ
Ответ от Георгий Зотиков[гуру]
program dom;
uses graphABC;
begin
setwindowwidth(700);
setwindowheight(700);
setfontsize(18);
setfontcolor(clred);
textout(100,100,'домик');
rectangle(200,300,600,600);
setbrushcolor(claqua);
circle(400,225,40);
setbrushcolor(claqua);
fillrect(300,400,500,500);
rectangle(300,400,500,500);
line(400,400,400,500);
line(300,450,500,450);
line(200,300,400,150);
line(400,150,600,300);
end.
Ответ от Ёаня Олейник[активный]
program sanek3;
uses GraphAbc; begin
SetWindowSize (700,700);
SetPenWidth (2);
SetPenColor (clRed);
SetBrushColor (clRed);
Rectangle (150,200,250,275);
SetPenColor (clYellow);
SetBrushColor (clYellow);
Circle (200,235,15);
SetPenColor (clGreen);
Line (150,200,200,150);
Line (200,150,250,200);
FloodFill (175,180,clGreen);
SetPenColor (clBlack);
Line (225,175,225,125);
Line (225,125,245,125);
Line (245,125,245,195);
FloodFill (230,150,clBlack);
SetPenColor (clGreen);
Line (0,276,700,276);
FloodFill (3,500,clGreen);
FloodFill (2,50,clSkyblue);
end.
program sanek3;
uses GraphAbc; begin
SetWindowSize (700,700);
SetPenWidth (2);
SetPenColor (clRed);
SetBrushColor (clRed);
Rectangle (150,200,250,275);
SetPenColor (clYellow);
SetBrushColor (clYellow);
Circle (200,235,15);
SetPenColor (clGreen);
Line (150,200,200,150);
Line (200,150,250,200);
FloodFill (175,180,clGreen);
SetPenColor (clBlack);
Line (225,175,225,125);
Line (225,125,245,125);
Line (245,125,245,195);
FloodFill (230,150,clBlack);
SetPenColor (clGreen);
Line (0,276,700,276);
FloodFill (3,500,clGreen);
FloodFill (2,50,clSkyblue);
end.
Ответ от Олег Леташков[новичек]
класс
класс
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Информатика Pascal ABC Нарисовать простой дом
спросили в Плакат
подскажите как нарисовать плакат маме на день рождения своими руками?
Мы подарок маме
Покупать не станем -
Приготовим сами.
Своими руками.
подскажите как нарисовать плакат маме на день рождения своими руками?
Мы подарок маме
Покупать не станем -
Приготовим сами.
Своими руками.
как называется свадьба 25 лет совместной жизни?
Двадцатипятилетний юбилей супружеской жизни, пожалуй, самый пышный семейный праздник, в котором
подробнее...
спросили в 1 августа 1 июля
я как-то видела список дел на лето для каждого дня (1 июня, 2 июня и т. д.) если кто видел, киньте пожалуйста
1 июня - Начни свой день с чего-нибудь необычного.
2 июня - Сделай своё утреннее фото.
3 июня
подробнее...
я как-то видела список дел на лето для каждого дня (1 июня, 2 июня и т. д.) если кто видел, киньте пожалуйста
1 июня - Начни свой день с чего-нибудь необычного.
2 июня - Сделай своё утреннее фото.
3 июня
подробнее...
спросили в 1374 год
Видео вопрос...
Думаю речь идет о кафе "Стойло Пегаса".
В 1919 году Есенин знакомится с Анатолием
подробнее...
Видео вопрос...
Думаю речь идет о кафе "Стойло Пегаса".
В 1919 году Есенин знакомится с Анатолием
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
спросили в Лето Свадьба
25 лет совместной жизни.Какая это свадьба.И что дарят?
25 лет — Серебряная свадьба
Серебро, обозначенное в названии этой годовщины свадьбы, указывает
подробнее...
25 лет совместной жизни.Какая это свадьба.И что дарят?
25 лет — Серебряная свадьба
Серебро, обозначенное в названии этой годовщины свадьбы, указывает
подробнее...
спросили в Другое
Чем заняться дома в свободное время?
Рисуйте. Когда не знаешь чем заняться дома, можно попробовать развить свои
подробнее...
Чем заняться дома в свободное время?
Рисуйте. Когда не знаешь чем заняться дома, можно попробовать развить свои
подробнее...
спросили в Тренинг Тренинги
Как стать актером?
Сначала поступи учиться в своей стране.
Выдержишь конкурс, поступишь, будут тебе и кастинги и
подробнее...
Как стать актером?
Сначала поступи учиться в своей стране.
Выдержишь конкурс, поступишь, будут тебе и кастинги и
подробнее...
Как оригинально поздравить подругу с ДР?
1. можно снять про нее фильм. если ее многие знают, то очень круто получится)
2. с ее с
подробнее...
спросили в Железо
как разогнать видео карту через Riva Tuner
Для разгона видеокарт Nvidia существует уже знакомая вам программа Riva Tuner. С ее помощью можно
подробнее...
как разогнать видео карту через Riva Tuner
Для разгона видеокарт Nvidia существует уже знакомая вам программа Riva Tuner. С ее помощью можно
подробнее...
что за черно-белые граффити нарисованы на стенах зданий в припяти?
Взяться они могли откуда угодно, а именно, были нарисованы приезжающими туда туристами. Для чего?
подробнее...
Не подскажите как проводят свадьбу?
Этот предсвадебный список приготовлений поможет Вам не упустить организационные моменты и пункты,
подробнее...
спросили в Другое
как вызвать Кошку желаний
Кошка желаний
Это ангел белой персидской кошки. Я снимала на видео, но не повторяйте
подробнее...
как вызвать Кошку желаний
Кошка желаний
Это ангел белой персидской кошки. Я снимала на видео, но не повторяйте
подробнее...
спросили в Другое Зоофобии
Как перестать бояться пауков?
Ваша фобия - Арахнофобия (от др. -греч. ἀράχνη — паук, др. -греч.
подробнее...
Как перестать бояться пауков?
Ваша фобия - Арахнофобия (от др. -греч. ἀράχνη — паук, др. -греч.
подробнее...
Хочу построить дачу своими руками - чертежи есть у кого-нибудь? Или хотя бы фото и видео?
А! Это фото того самого дома с сайта Домогацкого DachaSvoimiRukami.com взято. Кстати! Там как раз и
подробнее...