+7(996)961-96-66
+7(964)869-96-66
+7(996)961-96-66
Заказать помощь

Контрольная на тему Контрольная работа 101214-22

ОПИСАНИЕ РАБОТЫ:

Предмет:
ПРОГРАММИРОВАНИЕ
Тема:
Контрольная работа 101214-22
Тип:
Контрольная
Объем:
10 с.
Дата:
21.12.2010
Идентификатор:
idr_1909__0009630
ЦЕНА:
 

150
руб.
Внимание!!!
Ниже представлен фрагмент данной работы для ознакомления.
Вы можете купить данную работу прямо сейчас!
Просто нажмите кнопку "Купить" справа.

Оплата онлайн возможна с Яндекс.Кошелька, с банковской карты или со счета мобильного телефона (выберите, пожалуйста).
ЕСЛИ такие варианты Вам не удобны - Отправьте нам запрос данной работы, указав свой электронный адрес.
Мы оперативно ответим и предложим Вам более 20 способов оплаты.
Все подробности можно будет обсудить по электронной почте, или в Viber, WhatsApp и т.п.
 

Контрольная работа 101214-22 - работа из нашего списка "ГОТОВЫЕ РАБОТЫ". Мы помогли с ее выполнением и она была сдана на Отлично! Работа абсолютно эксклюзивная, нигде в Интернете не засвечена и Вашим преподавателям точно не знакома! Если Вы ищете уникальную, грамотно выполненную курсовую работу, контрольную, реферат и т.п. - Вы можете получить их на нашем ресурсе.
Вы можете заказать контрольную Контрольная работа 101214-22 у нас, написав на адрес ready@referatshop.ru.
Обращаем ваше внимание на то, что скачать контрольную Контрольная работа 101214-22 по предмету ПРОГРАММИРОВАНИЕ с сайта нельзя! Здесь представлено лишь несколько первых страниц и содержание этой эксклюзивной работы - для ознакомления. Если Вы хотите получить контрольную Контрольная работа 101214-22 (предмет - ПРОГРАММИРОВАНИЕ) - пишите.

Фрагмент работы:





Задание 1

Uses Graph, CRT; {подключаем модули GRAPH, CRT}

Type
TTurRec = record {Запись "информация о путевках"}
Name: String; {название фирмы}
Place: String; {место отдыха}
Price: Integer; {стоимость путёвки}
Days: Integer; {длительность поездки}
end;

Var
mode, mode2: Integer;
x, x2, y, y2: Word;
a: array[1..100] of TTurRec; {массив записей "информация о путевках"}
n: Integer; {количество записей}
c: Char;

procedure ShowGraph;
begin
mode := detect;
InitGraph(mode,mode2,''); {включение графического режима}

x2 := getmaxX div 2; {половина размера экрана}
y2 := getmaxY div 2;
x := getmaxX; {размер всего экана}
y := getmaxY;

setbkcolor(9); {дорога 50}
setcolor(8);
line(0,y-50,x,y-50);
setfillstyle(1,6);
floodfill(5,y-40,8); {выс.дороги Y=(y-50)}

setfillstyle(1,14); {солнце}
setcolor(14);
pieslice(0,0,270,360,70);

setfillstyle(1,5);
setcolor(6); {ниж. часть дома} {Х=(х2+90)} {ширина=90}
rectangle(x2,y-50-150,x2+90,y-51); {Y=(y-200)} {высота=100}
floodfill(x2+5,y-60,6);

setfillstyle(1,4); {крыша} {Y=(y-251)} {высота=50}
line(x2,y-50-151,x2+45,y-50-151-50);
line(x2+45,y-251,x2+90,y-199);
floodfill(x2+45,y-249,6);

setfillstyle(1,13); {окно}
rectangle(x2+45-20,y-160,x2+45+20,y-100);
line(x2+45,y-130-30,x2+45,y-130+30);
line(x2+45-20,y-130,x2+45+20,y-130);
floodfill(x2+45-15,y-155,6);
floodfill(x2+45+15,y-155,6);
floodfill(x2+45-15,y-105,6);
floodfill(x2+45+15,y-105,6);

setfillstyle(1,10); {дерево 1}
setcolor(3);
arc(50,y-51-100,0,360,45);
floodfill(50,y-150,3);
setcolor(6);
line(50,y-51,50,y-51-100);

setfillstyle(1,10); {дерево 2}
setcolor(3);
arc(170,y-51-100,0,360,45);
floodfi