Подробнее о заявке
Предмет Pascal
Заявка номер Private
Стоимость 382 руб.
Уникальность 70%
Объем 30 стр.
Дата заявки: 17.06.2017
Выполнено: 20.06.2017
Решение задач по Pascal:

«Сделать чтобы облака плыли сначало и след не оставался»

Задание

program graphic; uses graphABC; { подключаем модуль GraphABC для работы } var

j,i:integer; begin {начало основного блока операторов программы}

//дом rectangle(150,150,350,350); floodfill(151,250,clbrown); rectangle(210,210,290,290); rectangle(210,210,250,290); floodfill(215,230,clYellow); floodfill(251,251,clblue); Rectangle(250,210,290,290); floodfill(251,215,clYellow); line(250,210,250,290); line(210,250,290,250); line(150,150,250,50); line(250,50,350,150); floodfill(250,60,clblack); //облака

//фон,солнце floodfill(0,0,cllightgreen); circle(640,0,100); floodfill(630,1,clyellow); //заборчик rectangle(0,270,150,280); floodfill(1,271,clblack); rectangle(350,270,640,280); floodfill(351,271,clblack); rectangle(0,320,150,330); floodfill(1,321,clblack); rectangle(350,320,640,330); floodfill(351,321,clblack); rectangle(1,250,11,350); floodfill(2,301,clblack); rectangle(16,250,26,350); floodfill(17,301,clblack); rectangle(31,250,41,350); floodfill(32,301,clblack); rectangle(46,250,56,350); floodfill(47,301,clblack); rectangle(61,250,71,350); floodfill(62,301,clblack); rectangle(76,250,86,350); floodfill(81,301,clblack); rectangle(91,250,101,350); floodfill(92,301,clblack); rectangle(106,250,116,350); floodfill(111,301,clblack); rectangle(121,250,131,350); floodfill(126,301,clblack); rectangle(136,250,146,350); floodfill(141,301,clblack); rectangle(351,250,361,350); floodfill(352,301,clblack); rectangle(366,250,376,350); floodfill(367,301,clblack); rectangle(381,250,391,350); floodfill(382,301,clblack); rectangle(396,250,406,350); floodfill(397,301,clblack); rectangle(411,250,421,350); floodfill(412,301,clblack); rectangle(426,250,436,350); floodfill(431,301,clblack); rectangle(441,250,451,350); floodfill(442,301,clblack); rectangle(456,250,466,350); floodfill(461,301,clblack); rectangle(471,250,481,350); floodfill(476,301,clblack); rectangle(486,250,496,350); floodfill(491,301,clblack); rectangle(501,250,511,350); floodfill(502,301,clblack); rectangle(516,250,526,350); floodfill(517,301,clblack); rectangle(531,250,541,350); floodfill(532,301,clblack); rectangle(546,250,556,350); floodfill(547,301,clblack); rectangle(561,250,571,350); floodfill(562,301,clblack); rectangle(576,250,586,350); floodfill(581,301,clblack); rectangle(591,250,601,350); floodfill(592,301,clblack); rectangle(606,250,616,350); floodfill(611,301,clblack); rectangle(621,250,631,350); floodfill(626,301,clblack); rectangle(636,250,640,350); floodfill(637,301,clblack); //ступеньки rectangle(350,300,380,350); floodfill(351,301,clbrown); rectangle(380,315,410,350); floodfill(381,321,clbrown); rectangle(410,330,440,350); floodfill(411,341,clbrown); //дорога rectangle(0,350,640,480); floodfill(1,351,clgray); rectangle(3,400,50,430); floodfill(10,401,clwhite); rectangle(60,400,110,430); floodfill(61,401,clwhite); rectangle(120,400,170,430); floodfill(121,401,clwhite); rectangle(180,400,230,430); floodfill(182,401,clwhite); rectangle(240,400,290,430); floodfill(241,401,clwhite); rectangle(300,400,350,430); floodfill(301,401,clwhite); rectangle(360,400,410,430); floodfill(362,401,clwhite); rectangle(420,400,470,430); floodfill(421,401,clwhite); rectangle(480,400,530,430); floodfill(481,401,clwhite); rectangle(540,400,590,430); floodfill(541,401,clwhite); rectangle(600,400,640,430); floodfill(601,401,clwhite);

for i:=10 to 300 do begin

//LockDrawing; circle(320+i,70,30); circle(370+i,70,45); circle(420+i,70,30); circle(520+i,90,30); circle(570+i,90,45); circle(620+i,90,30); end; //дом

for i:=1 to 80 do begin //UnLockDrawing; //SetSmoothingOn; //LockDrawing; // SetPenColor(clblue); rectangle(210,210,250-i,290); if abs(250-i-210)>5 then floodfill(round((210+(250-i))/2),230,cl

Читать больше
Срок выполнения:
  • Бесплатные корректировки
  • Шпаргалки в подарок!
  • Предоплата всего 25%
от 2 дней
Похожие заявки по pascal

Тип: Решение задач

Предмет: Pascal

4 Задачи в PascalABC.NET

Стоимость: 413 руб.

Тип: Решение задач

Предмет: Pascal

Табель расхода материала завода РТИ за « » 2012 год

Стоимость: 406 руб.

Тип: Решение задач

Предмет: Pascal

Составить программу вычисления периметра

Стоимость: 357 руб.

Тип: Решение задач

Предмет: Pascal

Паскаль

Стоимость: 343 руб.

Тип: Решение задач

Предмет: Pascal

Решение задач на языке Pascal + блок-схемы алгоритмов

Стоимость: 378 руб.

Тип: Решение задач

Предмет: Pascal

Решение задач на языке Pascal + блок-схемы алгоритмов

Стоимость: 360,5 руб.

Тип: Решение задач

Предмет: Pascal

Паскаль 9 класс

Стоимость: 385 руб.

Тип: Решение задач

Предмет: Pascal

Решение задач на Паскале

Стоимость: 402,5 руб.

Закажи Решение задач с полным сопровождением до защиты!
Думаете, что скачать готовую работу — это хороший вариант? Лучше закажите уникальную и сдайте её с первого раза!

Отзывы студентов

Konstantin 20.11.2023
Представленная работа в черном варианте принята преподавателем успешно.
Андрей Викторович Губкевич 28.12.2022
Мгновенное исполнение, раньше заявленного срока. Результатом полностью доволен.
Анна 13.05.2022
огромное спасибо, очень оперативно и грамотно сделаны задачи
Кирилл Бритиков 18.03.2022
Отлично, очень классный почерк)
Артем 20.05.2021
Здравствуйте,не использовал промокод на скидку при оформлении заказа. Возможно каким-либо образом использовать промокод…
Денис 10.09.2020
Спасибо за работу. Оценку выставили 4.
Светлана 27.04.2020
4 комментария нет,спасибо!
Светлана 14.03.2020
Отправила запрос, мне позвонили уточнили все подробности. Молодой человек был вежлив, кратко и четко всё узнал и отправ…
Николай 06.05.2019
Огромное спасибо! Особенно за разъяснения к решению!
Сентебов Виктор 16.06.2018
Сделано все отлично и в срок, рекомендую. отдельное спасибо менеджеру Хроменкова Екатерина
Лайфхаки по написанию самостоятельных работ
Расчетно-графическая работа по фэн-шуй: правильное оформление РГР

  Ох, не о том думал студент, когда выбирал себе вуз. Кто ж хотел для себя такой доли, как написание РГР? А тем временем выполнить работу все же придется, причем по всем правилам. Без паники, дорогие друзья, да прибудем с вами мы! Читаем и впитываем.Итак, вот основные правила оформления расчетно-гр…

Читать дальше
Оформление магистерской диссертации по ГОСТу 2024: требования, пример

Как оформить магистерскую диссертацию в {{year}} году? Так же как и в прошлые годы, потому что никаких принципиально новых отличий от стандартов оформления прошлых лет для оформления магистерской диссертации в {{year}} году не вводится.Однако напомнить основные правила оформления будет не лишним. Н…

Читать дальше