Мир информатики: 11 класс

Контрольная работа по теме "Обработка информации в базах данных"

---------------------------

Тема Выполнение практических заданий по темам учебных предметов

"Биология"

Разберите и выполните на компьютере программу, демонстрирующую стадии жизненного цикла бабочек: яйцо, личинка, куколка, взрослая особь.

(стадии развития бабочек загружаются из файлов Бабочка1.jpg, Бабочка2.jpg, Бабочка3.jpg, Бабочка4.jpg)

"Физика"

Разберите и выполните на компьютере программу, имитирующую наливание жидкости из колбы в сосуд. Изображение из колбы загружается из файла Kolba.jpg

Практическая работа (биология)

Практическая работа (физика)

----------------------------------------------------------------------

Тема Построение графиков и диаграмм

Практическая работа №2. Построение диаграмм

1. Построение графика функции

При работе с графическим окном нужно учитывать, что начало координат - точка (0,0) - находится в левом верхнем углу, ось ОХ направлена вправо, ось ОY - вниз. Чтобы в графическом окне нарисовать график, надо выполнить преобразование координат в экранные координаты.

Пусть (х0, y0) - координаты начала координат в графическом окне.

k - масштаб.

Точка с координатами (x,y) в графическом окне будет иметь экранные координаты (x1,y1).

Формулы преобразования координат:

x1=x0+kx;

y1=y0-ky.

Пример 1. Программа построения графика зависимости y=x² – 3 на отрезке [-5,5]

program parabola;

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.