Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

Лучшая группа колледжа вычисляется по среднему арифметическому.

Арифметическое среднее, число (), получаемое делением суммы нескольких чисел (a1, a2, ..., an) на их число (n):

Например, А. с. чисел 3, 5, 7 равно (3 + 5 + 7)/3 = 5.

(2)

Арифметическое среднее, нескольких величин равны их сумме, деленной на их число. Если n измерений или наблюдений, одинаково заслуживающих доверия, дают n значений, a1, a2.-то вероятнейшее значение измеряемой величины есть А. среднее чисел a.

(3)

Рис. 3. Общий вид окна вычисления

Рис. 4. Общий вид окна редактирования БД

Блок-схема программы

1

2

начало

ввод

данных

3

вычисление

среднего

арифметического

4

ЦИКЛ

5

6

Сравнение

Лучшая

группа

7

Конец

1. Начало программы;

2. Просмотр очередного поля БД;

3. Вычисление среднего арифметического по оценкам каждой группы

4. Цикл от 1 до количества групп

5. Сравнение резултатов групп

6. Выявление лучшей группы

7. Выход из программы

2.1.3 Требования к программе

2.1.3.1. Требования к функциональным характеристикам

Созданная программа должна обеспечить вычисление и вывод лучшей группы колледжа.

Структурная схема

Управляющая программа

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

группы колледжа

2.1.3.2. Требования к надежности

Надежность программы зависит от работы всей системы и от условий ее хранения. Если программа записана гибком магнитном диске, то ее надежность зависит от правильного хранения дискеты. В этом случае рекомендуется создать копию дискеты.

В качестве постоянного хранения программы следует использовать жесткий магнитный диск, а для распространения программы, установку программы лучше записывать на CD-ROM.

2.1.3.3. требования к составу и параметрам технических средств

Программа была выполнена в оперционной системе Windows ME, она совместима с опеационными системами Windows 98, Windows XP, Windows 95, Windows ME, Windows 2000.

Для работы данной программы используется ПК имеющий следующий характеристики:

• Процессор не ниже Pentium 100

• Емкость ОЗУ не ниже 64 МБ

• Разрядность 32 бит

• Жесткий магнитный диск

• Диск 3,5

• CD-ROM

2.2. Описание алгоритма

1. Начало

2. Инициализация окна приложения

3. Ввод данных в программу

4. Обработка данных

5. Выявление лучшей группы

6. Если дата обновления БД, позднее установленного – открытие окна редактирования БД

7. Выход из программы

2.3. Листинг программы

Текст программы приводится в Приложении 1

В программе использованы два Unit

Unit1 – определение лучшей группы

Unit2 – редактирование БД

2.4. Описание процесса отладки программы

В результате тестового запуска программы не наблюдалось никаких ошибок и сбоев. Программа работает корректно и полностью отвечает поставленной задаче.

Для запуска программы необходимо из меню «Пуск», раздел «Программы», выбрать «Колледж», «Колледж».

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

ЗАКЛЮЧЕНИЕ

Данный курсовой проект является актуальным и отвечает предъявленым к нему требованиям. Была разработана и написана, на языке программирования высокого уровня Borland Delphi 5.0, с использованием баз данных, программа, позволяющая определить лучшую группу колледжа по среднему баллу аттестационной и экзаменационной сессии.

Список использованной литературы

1. Delphi 5.0, учебный курс, Фараонов В.В., ISBN 5-8952-020-4, 400 с.

2. Большая Советская Энциклопедия

3. Малый энциклопедический словарь Брокгауза и Ефрона

4. Delhphi 4.0, Дарахвелидзе П.Г., Марков Е. П. 1998, 816 с.

5. Сайт http://delhpi.mastak.ru

Приложение 1. Листинг программы

Часть 1. Вычисление и вывод лучшей группы:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Grids, DBGrids, Db, DBTables;

type

TForm1 = class(TForm)

Table1: TTable;

DataSource1: TDataSource;

Table2: TTable;

DataSource2: TDataSource;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

Button1: TButton;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var

t, i, k, j, f: integer;

tmp: string;

gr: array of string;

tt: array [1..5, 1..5] of extended;

begin

table2.moveby(1);

i:=1;

for i:=1 to 3 do //3 это кол-во курсов

begin

for j:=1 to 2 do //2 кол-во групп на курсе

begin

table1.Filtered:=true;

tmp:tmp+gr[j];

table1.Filter:='kurs=1 and grup='+ tmp;

table2.Filtered:=true;

table2.Filter:='sessia=1';

k:=table2.RecordCount;

t:=0;

table2.moveby(1);

for f:=1 to k do

begin

t:=t+table2.fieldbyname('ocenka').value;

table2.next;

end;

tt[1, 1]:=t/k;

//table1.Filtered:=false;

end;

end;

label1.caption:=(inttostr(t));

end;

procedure TForm1.Button2Click(Sender: TObject);

var

i:integer;

sum:extended;

begin

table2.filter:='grup=2';

for i:=1 to Table2.recordcount do

begin

Table2.moveby(i);

sum:=sum + strtoint(Table2.Fieldbyname('ocenka').value);

end;

sum:=sum/Table2.recordcount;

//abel1.caption:=floattostr(sum)+ label1.caption;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

Form2.show;

end;

end.

Часть 2. Заполнение базы данных.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TForm2 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Edit5: TEdit;

Button1: TButton;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.DFM}

end.

Характеристики

Список файлов курсовой работы