Цена  программного продукта с НДС:

       

       НДС =     (3.11) 

       

       НДС =    = 122731 

       Цена = 122731+ 681838 = 804569 руб.

       Стоимость программного продукта составляет 804569 рублей.

 

ЗАКЛЮЧЕНИЕ

       В данном дипломном проекте была разработана  программа подсчета среднего балла и составления таблицы учащихся по группам. В наше время трудно найти программу, которая будет заполняться по нажатиям маленького количества кнопок и делать максимум действий. Программа направлена на уменьшение затраты времени преподавателям или учащимся которые делают ведомости по успеваемости данной группы. Надеемся программа будет приносить максимум пользы! 
ЛИТЕРАТУРА

1. Вирт, Н. Алгоритмы и структуры данных / Пер. с англ. – М: Мир, 1989.-360с.
2. Гринзоу Лу. Философия программирования для Windows 95/NT/ Пер. с англ. – СПб.: Символ – Плюс, 1997.-640с
3. Язык компьютера. Пер. с англ., под. Ред. и с предисловием В.М.Курочкина - М.: Мир, 1989. - 240с.
4. Зелковиц, М., Шоу, А., Геннон, Дж. Принципы разработки программного обеспечения/Пер. с англ. – М.: Мир, 1982.-386с.
5. Практическое руководство по программированию/ Пер. с англ. Б.Мик, П. Хит, Н.Рашби и др.; под ред. Б. Мика, П.Хит, Н.Рашби. - М.: Радиосвязь, 1986.-168с.
6. Культин Н. Б. Основы программирования в Delphi 7.- СПб.: БХВ-Петербург, 2003. - 608 с.: ил.
7. Яфаева, Р.Р. Лекции Программирование

 

ПРИЛОЖЕНИЕ 1

unit Unit1; 

interface 

uses

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

  Dialogs, StdCtrls, Grids, OleCtnrs, ComObj, jpeg, ExtCtrls, math; 

type

  TForm1 = class(TForm)

    ComboBox1: TComboBox;

    Button1: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Button2: TButton;

    Label4: TLabel;

    StringGrid1: TStringGrid;

    Edit4: TEdit;

    Button3: TButton;

    Edit5: TEdit;

    ComboBox2: TComboBox;

    Button4: TButton;

    Button5: TButton;

    Label5: TLabel;

    Button6: TButton;

    Button7: TButton;

    Label6: TLabel;

    Button8: TButton;

    Button9: TButton;

    Label7: TLabel;

    Button10: TButton;

    Edit6: TEdit;

    Edit7: TEdit;

    Edit8: TEdit;

    Button11: TButton;

    Image1: TImage;

    Button12: TButton;

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

    procedure Button9Click(Sender: TObject);

    procedure Button10Click(Sender: TObject);

    procedure Button11Click(Sender: TObject);

    procedure Button12Click(Sender: TObject);

  private

    { Private declarations }

  public

   { Public declarations }

  end; 

var

  Form1: TForm1;

  grups,gruppa:textfile;

  pr,chel,i,k,l,sr,j,n:integer;

  sr1,sum,d:real;

  s,ss:string;

implementation 

uses Unit2; 

{$R *.dfm} 

procedure TForm1.Button2Click(Sender: TObject);

begin

  if FileExists('grups.txt')=false then begin

  Rewrite(grups);

  write(grups,edit1.Text);

  closefile(grups);

  end

  else begin

  Append(grups);

  writeln(grups);

  write(grups,edit1.Text);

  closefile(grups);

  end;

assignfile(gruppa,edit1.Text+'.txt');

rewrite(gruppa);

combobox1.Items.Add(edit1.Text);

chel:=strtoint(edit2.Text);

pr:=strtoint(edit3.Text);

stringgrid1.ColCount:=pr+5;

writeln(gruppa,edit1.Text);

writeln(gruppa,edit2.Text);

writeln(gruppa,edit3.Text);

stringgrid1.Cells[0,0]:='ФИО';

stringgrid1.Cells[pr+1,0]:='Ср.балл';

stringgrid1.Cells[pr+2,0]:='Стипендия';

stringgrid1.Cells[pr+3,0]:='Пропуски';

stringgrid1.Cells[pr+4,0]:='Пропуски  без ув причин'; 

i:=1;

label4.Caption:='Введите название '+inttostr(i)+' предмета';

label1.Visible:=false;

label2.Visible:=false;

label3.Visible:=false;

edit1.Visible:=false;

edit2.Visible:=false;

edit3.Visible:=false;

button2.Visible:=false;

edit4.Visible:=true;

button3.Visible:=true;

label4.Visible:=true;

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

closefile(gruppa);

stringgrid1.Width:=stringgrid1.ColWidths[0];

for n:=1 to stringgrid1.ColCount do

stringgrid1.Width:=stringgrid1.Width+stringgrid1.ColWidths[n]; 

end; 

procedure TForm1.FormCreate(Sender: TObject);

begin

label7.Caption:='Учреждение  образования "Пинский государственный профессионально-технический колледж легкой промышленности'+#13+#13+#13+'Документирование результатов учебной деятельности в учреждении образования'+#13+#13+#13+'Разработчик: А.Н.Шостак';

assignfile(grups,'grups.txt');

if FileExists('grups.txt')=true then begin

reset(grups);

while eof(grups)<>true do begin

readln(grups,s);

combobox1.Items.Add(s);

end;

end;

s:='';

stringgrid1.Width:=stringgrid1.ColWidths[0];

for i:=1 to stringgrid1.ColCount do

stringgrid1.Width:=stringgrid1.Width+stringgrid1.ColWidths[i];

end; 

procedure TForm1.Button3Click(Sender: TObject);

begin

if i<>(pr) then begin

append(gruppa);

  if i<>1 then

  writeln(gruppa);

label4.Caption:='Введите название '+inttostr(i+1)+' предмета';

stringgrid1.Cells[i,0]:=edit4.Text;

write(gruppa,edit4.Text);

i:=i+1;

edit4.Text:='';

closefile(gruppa);

end

else begin

append(gruppa);

writeln(gruppa);

stringgrid1.Cells[i,0]:=edit4.Text;

write(gruppa,edit4.Text);

i:=i+1;

edit4.Text:='';

button3.Visible:=false;

edit4.Visible:=false;

label4.Visible:=false;

button4.Visible:=true;

edit5.Visible:=true;

edit6.Visible:=true;

edit7.Visible:=true;

edit8.Visible:=true;

closefile(gruppa);

end;

k:=0;

end; 

procedure TForm1.Button4Click(Sender: TObject);

begin

if k<=chel then begin

for i:=0 to stringgrid1.ColCount do

stringgrid1.Cells[i,k+2]:='';

stringgrid1.RowCount:=stringgrid1.RowCount+1;

s:='';

append(gruppa);

writeln(gruppa);

write(gruppa,edit5.Text);

stringgrid1.Cells[0,k+1]:=edit5.Text;

writeln(gruppa);

write(gruppa,edit6.Text);

stringgrid1.Cells[0,chel+2]:=edit6.Text;

writeln(gruppa);

write(gruppa,edit7.Text);

stringgrid1.Cells[0,chel+3]:=edit7.Text;

writeln(gruppa);

write(gruppa,edit8.Text);

stringgrid1.Cells[0,chel+4]:=edit8.Text; 

k:=k+1;

closefile(gruppa);

button4.Enabled:=false;

edit5.Enabled:=false;

edit6.Enabled:=false;

edit7.Enabled:=false;

edit8.Enabled:=false;

end

else begin

stringgrid1.RowCount:=stringgrid1.RowCount+1;

s:='';

append(gruppa);

writeln(gruppa);

write(gruppa,edit5.Text);

stringgrid1.Cells[0,k+1]:=edit5.Text;

k:=k+1;

closefile(gruppa);

end;

l:=1;

label5.Caption:='Выберите оценку по '+stringgrid1.Cells[l,0];

l:=2;

combobox2.Visible:=true;

label5.Visible:=true;

button5.Visible:=true;

end; 

procedure TForm1.Button5Click(Sender: TObject);

begin

if l<=(pr) then begin

label5.Caption:='Выберите оценку по '+stringgrid1.Cells[l,0];

stringgrid1.Cells[l-1,k]:=combobox2.text;