Контрольная работа по теме "Обработка информации в базах данных"
---------------------------
Тема Выполнение практических заданий по темам учебных предметов
- "Биология"
Разберите и выполните на компьютере программу, демонстрирующую стадии жизненного цикла бабочек: яйцо, личинка, куколка, взрослая особь.
(стадии развития бабочек загружаются из файлов Бабочка1.jpg, Бабочка2.jpg, Бабочка3.jpg, Бабочка4.jpg)
- "Физика"
Практическая работа (биология)
Практическая работа (физика)
----------------------------------------------------------------------
Тема Построение графиков и диаграмм
1. Построение графика функции
При работе с графическим окном нужно учитывать, что начало координат - точка (0,0) - находится в левом верхнем углу, ось ОХ направлена вправо, ось ОY - вниз. Чтобы в графическом окне нарисовать график, надо выполнить преобразование координат в экранные координаты.
При работе с графическим окном нужно учитывать, что начало координат - точка (0,0) - находится в левом верхнем углу, ось ОХ направлена вправо, ось ОY - вниз. Чтобы в графическом окне нарисовать график, надо выполнить преобразование координат в экранные координаты.
Пусть (х0, y0) - координаты начала координат в графическом окне.
k - масштаб.
Точка с координатами (x,y) в графическом окне будет иметь экранные координаты (x1,y1).
Формулы преобразования координат:
x1=x0+kx;
y1=y0-ky.
Пример 1. Программа построения графика зависимости y=x2
– 3 на отрезке [-5,5]
uses crt, GraphABC;
Const
w=800;
h= 600;
x0=400; y0=300;
k=20;
var i, x1,y1: integer;
x,y: real;
begin
SetWindowSize(w,h);
Line(0,y0,w,y0); // ox
Line(x0,0,x0,h);// oy
// podpisi nach koordinat
TextOut(x0+5, y0+5,'0');
TextOut(w-10,y0+5,'X');
TextOut(x0+5,10,'Y');
// delenija na osi OX
i:=k;
while i<w do
begin
Line(i,y0-5,i,y0+5);
i:=i+k;
end;
// delenija na osi OY
i:=k;
while i<h do
begin
Line(x0-5,i,x0+5,i);
i:=i+k;
end;
// postroenie grafika
x:=-5;
while x<=5 do
begin
y:=x*x-3;
x1:=round(x0+k*x);
y1:=round(y0-k*y);
SetPixel(x1,y1,clBlack);
x:=x+0.01;
end;
SaveWindow('Grafic.bmp');
end.
2. Построение столбчатых и линейных диаграмм
Диаграмма - это графически представленная зависимость одной величины от другой
Классические диаграммы - линейные и столбчатые. Используются для наглядного сравнения полученных данных или для анализа их изменения за определенный промежуток времени.
Пример 2.
Программа построения столбчатой диаграммы, отображающей динамику среднесуточных температур воздуха в течение недели
program st_diagr;
Uses Crt, GraphABC;
Const
w=800;
h=600;
x0=50; y0=500; // nachalo koordinat
k=7; //kolochestvo dnei nedeli=kolichestvo stolbcov diagram
t: array[1..k] of integer = (10,7,8,5,9,8,6); // massiv temperatur
c: array [1..k] of colortype=(ClRed, ClGreen, ClNavy, ClFuchsia, ClSkyblue, ClPurple, ClAqua);
// cveta stolbcov diagr
day: array[1..k] of string = ('Ïí','Âò','Ñð','×ò','Ïò','Ñá','Âñ');
var
x1,y1,x2,y2: integer; //koord dlja postroenija stolbca
kx,ky: integer; //edin maschtaba
i,x,y,max: integer;
Begin
SetWindowSize(w,h);
// paramtri shrifta dlja nazvanija diagrammi
SetFontSize(16);
SetFontStyle(fsBold);
TextOut(180,20, 'Диаграмма построения среднесуточных температур за неделю');
// paramtri shrifta dlja podpisei diagr
SetFontSize(12);
SetFontStyle(fsNormal);
// Нахождение максимальной температуры для определения единицы масштаба
max:=t[1];
For i:=2 to k do
begin
if t[i]>max then max:=t[i];
end;
ky:=trunc(y0/(max+1)); // edinica po osi y
kx:=trunc((WindowWidth-x0)/k) ; // edinica po osi x
// рисование осей
Line(0,y0,w,y0);
Line(x0,0,x0,h);
// названия осей
TextOut(w div 2 - 5,y0+30, 'Дни недели');
TextOut(x0+10, 20, ' t воздуха');
// деления на оси Х
i:=x0; x:=1;
While x<=k do
begin
Line(i,y0-5,i,y0+5);
i:=i+kx;
TextOut(trunc(i-(kx div 2)), y0+10, day[x]);
x:=x+1;
end;
// деления на оси Y
i:=y0; x:=0;
While x<=max do
begin
Line(x0-5,i,x0+5,i);
TextOut(x0-25,i,IntToStr(x));
i:=i-ky;
x:=x+1;
end;
//Построение столбцов диаграммы
x1:=x0; y1:=y0;
x:=1; // номер дня
While x<=k do
Begin
y:=t[x];
x2:=x1+kx;
y2:=trunc(y1-ky*y);
SetBrushColor(c[x]);// цвет заливки столбца
Rectangle(x1,y1,x2,y2);
x1:=x2;
x:=x+1;
end;
SaveWindow('Diagramm1.bmp');
end.
3. Построение круговых диаграмм
Круговые диаграммы применяются в случаях, когда надо показать долю каждой составляющей в общем объеме данных
Пример 3. Составить программу, которая вычисляет, какой процент от площади Мирового океана составляет площадь каждого океана, и по полученным данным строит круговую диаграмму и легенду.
Данные о площадях океанов приведены в таблице:
Океан
|
Площадь,
млн.кв.км
|
Атлантический
|
91,6
|
Индийский
|
73,6
|
Северный
Ледовитый
|
14,8
|
Тихий
|
169,2
|
Программа
program krug_giag;
Uses Crt, GraphABC;
Const
w=800; h=650; //размеры графического окна
x=400; y=250; // centr kruga
k=4; // kol sektorov
r=200;// centr kruga
a: array[1..k] of real = (991.6,73.6,14.8,169.2); // massiv ploscadei okeanov
c: array[1..k] of colortype=(ClGreen, clFuchsia, clSkyblue, clBlue);// cveta sektorov
d: array[1..k] of string= ('Атлантический', 'Индийский', Северный Ледовитый', 'Тихий');
var S: real;// obscaja ploscad okeanov
u1,u2: real; // nach i kon ugli sektora
i: integer;
x1,y1,x2,y2: integer; // koordin dlja risov legendi
begin
SetWindowSize(w,h);
// parametri shrifta dlja nazvanija diagrammi
SetFontSize(16);
SetFontStyle(fsBold);
TextOut(300,5,'Мировой океан');
// parametri shrifta dlja legendi
SetFontSize(12);
SetFontStyle(fsNormal);
// podscet summarnoi plochadi okeanov
s:=0;
for i:=1 to k do
begin
s:=s+a[i];
end;
//postroenie krug diagrammi
u1:=0;
For i:=1 to k do
begin
u2:=u1+a[i]*360/s; //kon ugol sektora
SetBrushColor(c[i]); // cvet sektora
Pie(x,y,r,u1,u2);//ris sektora
u1:=u2; // nach ugol sled sektora
end;
// risovanie legendi
x1:=200; x2:=250;
y1:=470; y2:=500;
for i:=1 to k do
begin
SetBrushColor(c[i]);
Rectangle(x1,y1,x2,y2);
SetBrushColor(clWhite); //cvet fona nadpisi
TextOut(x2+20, y1+5, d[i]); // nazvanie okeana
TextOut(x2+250, y1+5,inttostr(round(a[i]/s*100))+'%');
y1:=y1+40; y2:=y2+40;
end;
SaveWindow('Diagramm4.bmp');
end.
Тема Информационные системы
--------------------------------------------------------
Запросы выполнить задание
Объекты БД. Типы данных играть
------------------------------------------
Создание таблицы БД (видеоурок)
Комментариев нет:
Отправить комментарий