Пример. Нарисовать эмблему. В левой верхней части графического экрана на черном фоне нарисовать голубой квадрат, а в нем – черный круг, закрашенный желтым цветом. В центре эмблемы черными буквами написать слово «АГНИ».
program Emblema;
uses Crt, Graph;
var driver, mode : integer;
begin
clrscr;
driver:=detect;
initgraph(driver, mode,’’);
setbkcolor(0);
setcolor(3);
rectangle(100, 0, 300, 200);
setfillstyle(1, 3);
floodfill(200, 100, 3);
setcolor(14);
circle(200, 100, 100);
setfillstyle(1, 14);
floodfill(200, 100, 14);
setcolor(0);
circle(200, 100, 100);
settextstyle(0, 0, 3);
outtextxy(135,100, ‘АГНИ‘);
readln
end.
Пример. Нарисовать разными цветами десять концентрических окружностей с общим центром в точке с графическими координатами (320; 240), и описать вокруг них красный прямоугольник.
program Circle10;
uses Crt, Graph;
var driver, mode, r : integer;
begin
clrscr;
driver:=detect;
initgraph(driver, mode,’’);
r:=10; {радиус первой окружности 10 пикселей}
while r<=100 do
begin
setcolor(random(15));
circle(320, 240, r)
r:= r+10
end
setcolor(4);
rectangle(220, 140, 420, 340);
readln
end.
Пример. Написать программу рисования графика функции y=2Sin(2x)+1 на отрезке[0;2p], протабулировав функцию с шагом h=0,1.
Program GrafikSin;
uses Crt, Graph;
const a=0; b=2*pi;
h=0.1; h1=5;
x0=60; y0=240; M=50;
var driver, mode, x1, y1 : integer;
x, y : real;
function f(x:real) : real;
begin
f:=2*sin(2*x)+1
end;
begin
clrscr;
driver:=detect;
initgraph(driver, mode,’’);
setcolor(14);
setbkcolor(1);
line(20, y0, 600, y0); {Координатная ось х}
line(x0, 440, x0, 20); {Координатная ось y}
x:=a;
x1:=x0 + trunc(M*x);
{x, y – математические координаты}
y:=f(x);
y1:=y0 - trunc(M*y);
{x1, y1 – графические координаты}
moveto(x1, y1);
setcolor(15);
while x<=b do
begin
y:=f(x);
y1:=y0 - trunc(M*y);
lineto(x1, y1);
x1:= x1+h1;
x:= x+h;
end
readln
end.
6.4 ПОНЯТИЯ ОБ АНИМАЦИИ
Чередование засвечиваний и гашений изображения используют для имитации движения этого изображения на экране. Перед очередным засвечиванием объект необходимо переместить в направлении его движения. Движение изображения на экране называют анимацией.
Для имитации движения объекта на экране нужно выполнить такой циклический алгоритм:
1. Нарисовать объект в нужной точке, сделать паузу.
2. Удалить объект, закрасив его цветом фона.
3. Изменить координаты объекта.
4. Возвратиться к пункту 1.
Пример. Изобразить движение солнца на голубом небе в горизонтальном направлении.
1.3.4. Алгоритмы со структурой вложенных циклов. 27
1.4 ПОДЧИНЕННЫЕ АЛГОРИТМЫ.. 29
Контрольные вопросы.. 31
ГЛАВА 2. 33
АЛГОРИТМИЧЕСКИЙ ЯЗЫК ПАСКАЛЬ.. 33
2.1 АЛФАВИТ ЯЗЫКА ПАСКАЛЬ. 33
2.1.1 Символы алфавита. 33
2.1.2 Слова языка Паскаль. 35
2.2 КОНСТАНТЫ И ПЕРЕМЕННЫЕ. 37
2.3 ТИПЫ ДАННЫХ ЯЗЫКА ПАСКАЛЬ. 39
2.3.1 Целочисленные типы данных. 40
2.3.2 Вещественные типы данных. 44
2.3.3 Логический тип. 46
2.3.4 Символьный тип. 47
2.4 ОПЕРАЦИИ И ВЫРАЖЕНИЯ.. 49
2.4.1 Арифметические выражения и операции. 49
2.4.2 Выражения и операции отношения. 53
2.4.3 Логические выражения и операции. 54
2.4.4 Приоритет операций. 54
2.4.5 Полезные операции. 55
2.4.6 Примеры выражений. 56
2.5 СТРУКТУРА ПРОГРАММЫ НА ЯЗЫКЕ ПАСКАЛЬ. 56
2.5.1 Заголовок программы.. 57
2.5.2 Раздел указания подключаемых модулей. 57
2.5.3 Блок описаний. 58
1)раздел описания меток. 58
2)раздел описания констант.. 59
3)раздел описания переменных. 59
4)раздел определения типов данных. 60
5)раздел описания процедур и функций. 61
2.5.4 Блок операторов. 62
КОММЕНТАРИИ.. 63
Контрольные вопросы.. 64
ГЛАВА 3. 68
Операторы языка ПАСКАЛЬ.. 68
3.1 ВВОД-ВЫВОД ДАННЫХ. 68
3.1.1 Процедура чтения Read. 68
3.1.2 Процедура записи Write. 70
Формат вывода. 71
3.2 ОПЕРАТОРЫ.. 73
3.2.1 Простые операторы.. 74
1)оператор присваивания. 74
2)оператор безусловного перехода goto. 75
3)оператор вызова процедуры.. 76
4)пустой оператор. 77
3.2.2 Структурные операторы.. 77
1)составной оператор. 77
2)условные операторы.. 78
Условный оператор if 78
Оператор выбора Case. 83
3)операторы повтора. 86
Оператор repeat 86
Оператор while. 91
Оператор For 97
Контрольные вопросы.. 105
ГЛАВА 4. 110
Массивы.. 110
4.1 ОДНОМЕРНЫЕ МАССИВЫ.. 110
4.2 ДВУМЕРНЫЕ МАССИВЫ.. 113
4.2.1 Квадратные матрицы.. 113
4.3 ДЕЙСТВИЯ НАД МАССИВАМИ.. 114
4.4 ДЕЙСТВИЯ НАД ЭЛЕМЕНТАМИ МАССИВА. 115
4.4.1 Ввод элементов массива. 115
4.4.2 Вывод элементов массива. 116
4.4.3 Обработка элементов одномерного массива. 116
4.4.4 Обработка элементов двумерного массива. 117
4.5 ПРИМЕРЫ ЗАДАЧ НА МАССИВЫ.. 118
4.6 СОРТИРОВКА ОДНОМЕРНОГО МАССИВа. 128
Контрольные вопросы.. 132
ГЛАВА 5. 133
Процедуры и функции.. 133
5.1 ПРОЦЕДУРЫ ПОЛЬЗОВАТЕЛЯ.. 133
5.1.1 Обращение к процедуре. 135
5.2 ФУНКЦИИ ПОЛЬЗОВАТЕЛЯ.. 138
ГЛАВА 6. 142
графика.. 142
6.1 МОДУЛЬ GRAPH.. 143
6.2 БАЗОВЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ.. 144
6.2.1 Установка цвета. 145
6.2.2 Вывод точки. 147
6.2.3 Вывод линии. 147
6.2.4 Построение графических фигур. 149
1)Построение прямоугольников. 149
2)Построение дуг и окружностей. 150
6.3 РАБОТА С ТЕКСТОМ.. 152
6.4 ПОНЯТИЯ ОБ АНИМАЦИИ.. 155
СПИСОК ЛИТЕРАТУРЫ.. 157
Инженерное обеспечение современного города представляет собой совокупность систем водоснабжения, канализации, электроснабжения, газоснабжения и теплоснабжения, телефонизации, радиофикации, телевидения и мусороудаления, обеспечивающих функционирование и дальнейшее развитие города. Системы инженерного обеспечения состоят из головных сооружений и инженерных сетей.
К головным сооружениям относятся:
· насосные станции на сетях водоснабжения, канализации и теплоснабжения;
· центральные и контрольно-распределительные пункты на сетях теплоснабжения;
· газораспределительные пункты для трансформации давления на сетях газоснабжения:
· распределительные пункты и трансформаторные подстанции электроснабжения;
· диспетчерские пункты и вентиляционные устройства общих коммуникационных и специальных тоннелей, каналов и коллекторов;
· станции забора воздуха, станции очистки;
· колодцы самих трубопроводов, кабелей, тоннелей и каналов.
Перечисленные сооружения размещаются в различных функциональных зонах селитебной территории и сооружаются как в надземном, так и в подземном исполнении.
Инженерные сети состоят из трубопроводов водоснабжения, бытовой и дождевой канализации, дренажа, тепло- и газоснабжения, мусороудаления и кабельных сетей различного назначения, прокладываемых в различных конструкциях, со вспомогательными устройствам* и сооружениями.
Инженерные сети классифицируют в соответствии со сложившейся планировочной структурой градостроительных образований:
· на микрорайонные, обслуживающие застройку в пределах микрорайона (снабжающие — разводящие, отводящие — принимающие);
· магистральные районного значения (снабжающие — распределительные, отводящие — собирающие);
· магистральные общегородского значения, обеспечивающие планировочные районы и город в целом (снабжающие — питающие и отводящие - собирающие).
По виду инженерные сети селитебной территории можно разделить на три группы.
1. отдельные трубопроводы разных систем и назначения (трубопроводы водоснабжения, бытовой и дождевой канализации, дренажа, теплоснабжения, газоснабжения и мусороудаления);.
2. различные кабельные сети (электроснабжения, телефонизации, радиофикации и телевидения, диспетчеризации, уличного освещения, электротранспорта и пр);
3. общие коммуникационные тоннели для совместной прокладки трубопроводов и кабелей в различных сочетаниях, специальные тоннели, каналы и коллекторы для прокладки отдельных видов сетей (кабельные, тепловые, дождевой и бытовой канализации).
По способу прокладки все инженерные сети делят
· на подземные (обычно на селитебной территории городов применяется подземный способ прокладки инженерных сетей, так как при надземном ухудшается архитектурный облик города и загромождается территория)