• Дисциплины
• Виды работ

Программный продукт, осуществляющий решение задач по дисциплине "Численные методы"

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

?ормлению.

8ГОСТ 19.701-90.ЕСПД. Схема алгоритмов, программ, данных и систем. Условные обозначения и правила обозначения.

9Грибов И.Р. Экономика предприятия. - М.: ЮНИТИ, 2004- 214с.

10Демидович Б.П., Матон И.А., Шувалова Э.З. Численные методы анализа. - М.: Наука, 1967. - 368 с.

Елизаров О.П. Экономика предприятия (фирмы).- М.: ЮНИТИ, 2006г- 384с.

Камаева В.Д. Экономическая теория, Москва, Юрайт, 2006г.

Каханер Д., Моулер К., Нэш С. Численные методы и программное обеспечение. - М.: Мир, 1998. - 575 с.

14Культин Н.Б. Основы программирования в Delphi 7. - СПб.: БХВ-Петербург, 2004. - 608 с.

М.П. Лапчик, М.И. Рагулина, Е.К. Хеннер. Численные методы 2-е издание. - М.: Академа, 2005. - 384 с.

Рудаков А.В. Технология разработки программных продуктов: Учеб. пособие для студ. сред. проф. образования - М.: Издательский центр Академия, 2005.- 208 с.

Самарский А.А., Гулин А.В. Численные методы. - М.: Наука, 1989. - 432 с.

СанПиН 2.2.2/2.4.1340-03. Гигиенические требования к видеодисплейным терминалам ПЭВМ.

Табурчак П.Б. Экономика предприятия. - Ростов н/Д: Феникс, 2002.

20Турчак Л.И. Основы численных методов: учебное пособие. - М.: Наука, 1987. - 320 с.

21Фигурнов В.Э. IBM PC для пользователя. Краткий курс. - М.: ИНФРА-М, 1998.-480 с.

22Фленов М.Е. Программирование в Delphi глазами хакера. - СПб.: БХВ-Петербург, 2003. - 368 с.

23Чечевицына Л.И. Экономика предприятия - М.: Издательство - торговая корпорация Дашков и Ко, 2003 - 352с.

Приложение

 

Текст программы

unit Unit1; // Главный модуль

interface

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

Dialogs, unit2, ExtCtrls, Menus, jpeg, StdCtrls, Registry;

TForm1 = class(TForm)

Image1: TImage;

MainMenu1: TMainMenu;

N11: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

N22: TMenuItem;

N23: TMenuItem;

N24: TMenuItem;

N25: TMenuItem;

Label1: TLabel;

Button1: TButton;

Timer1: TTimer;

N26: TMenuItem;

N27: TMenuItem;

N28: TMenuItem;

N29: TMenuItem;

N30: TMenuItem;

N31: TMenuItem;

N32: TMenuItem;

N33: TMenuItem;

Label2: TLabel;

Label3: TLabel;

Timer2: TTimer;

procedure FormShow(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure N20Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N22Click(Sender: TObject);

procedure N23Click(Sender: TObject);

procedure N24Click(Sender: TObject);

procedure N25Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure N27Click(Sender: TObject);

procedure N31Click(Sender: TObject);

procedure N32Click(Sender: TObject);

procedure N33Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure WMGetSysCommand(var Message : TMessage); message WM_SYSCOMMAND;

procedure Timer2Timer(Sender: TObject);

procedure N30Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

Form1: TForm1;Unit1_1, Unit2_1, Unit3_1, Unit4_1, Unit5_1, Unit6_1, Unit11, Unit14,

Unit15, Unit13, Unit9, Unit17, Unit19, Unit12, Unit18, Unit16, Unit10,

Unit7_1, Unit8_1, Unit1_2, Unit1_3, Unit2_2, Unit2_3, Unit3_2, Unit3_3,

Unit4_2, Unit4_3, Unit5_2, Unit5_3, Unit6_2, Unit6_3, Unit7_2, Unit8_2,

Unit20_1, Unit20_2, Unit20_3, Main, Password;

{$R *.dfm}TForm1.FormShow(Sender: TObject);.free;;TForm1.N6Click(Sender: TObject);.Edit1.Clear;.Edit2.Clear;.showmodal;;TForm1.N7Click(Sender: TObject);.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.showmodal;;TForm1.N8Click(Sender: TObject);.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.showmodal;;TForm1.N9Click(Sender: TObject);.Edit1.Clear;.Edit2.Clear;.showmodal;;TForm1.N10Click(Sender: TObject);.Edit1.Clear;.Edit2.Clear;.showmodal;;TForm1.N12Click(Sender: TObject);.Edit1.Clear;.Edit2.Clear;.showmodal;;TForm1.N13Click(Sender: TObject);.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.Edit4.Clear;.Edit5.Clear;.showmodal;;TForm1.N14Click(Sender: TObject);.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.Edit4.Clear;.Edit5.Clear;.showmodal;;TForm1.N15Click(Sender: TObject);.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.Edit4.Clear;.Edit5.Clear;.showmodal;;TForm1.N16Click(Sender: TObject);.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.Edit4.Clear;.Edit5.Clear;.showmodal;;TForm1.N17Click(Sender: TObject);.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.Edit4.Clear;.Edit5.Clear;.showmodal;;TForm1.N18Click(Sender: TObject);.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.Edit4.Clear;.Edit5.Clear;.Edit6.Clear;.showmodal;;TForm1.N19Click(Sender: TObject);.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.Edit4.Clear;.Edit5.Clear;.Edit6.Clear;.showmodal;;TForm1.N20Click(Sender: TObject);.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.Edit4.Clear;.Edit5.Clear;.Edit6.Clear;.showmodal;;TForm1.N21Click(Sender: TObject);.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.Edit4.Clear;.Edit5.Clear;.showmodal;;TForm1.N22Click(Sender: TObject);.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.Edit4.Clear;.Edit5.Clear;.showmodal;;TForm1.N23Click(Sender: TObject);.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.Edit4.Clear;.Edit5.Clear;.Edit6.Clear;.showmodal;;TForm1.N24Click(Sender: TObject);.Edit1.Clear;.showmodal;;TForm1.N25Click(Sender: TObject);.Edit1.Clear;.showmodal;;time;b of

:.Label1.Font.Color:=clyellow;:=1;;

:.Label1.Font.Color:=claqua;:=2;;

:.Label1.Font.Color:=clwhite;:=0;;;;TForm1.Timer1Timer(Sender: TObject);;;TForm1.Button1Click(Sender: TObject);.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;;TForm1.N27Click(Sender: TObject);.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;.Close;;TForm1.N32Click(Sender: TObject);: TRegistry;:= TRegistry.Create;.OpenKey(software,true);.OpenKey(stalk,true);.OpenKey(pas,true);Registry.ValueExists(login) then.MaskEdit1.Clear;.ShowModal;.MaskEdit1.Clear;.MaskEdit2.Clear;.ShowModal;;;TForm1.N31Click(Sender: TObject);.ShowModal;;TForm1.N33Click(Sender: TObject);: TRegistry;:string;

beginInputQuery(Регистрация,Введите регистрационный номер:,polic) then

begin

// Проверяем его:

if polic=254622210741989 then

begin // Все в порядке:= TRegistry.Create;.OpenKey(software,true);.OpenKey(stalk,true);.WriteInteger(polic,1);.WriteInteger(MaxR,10);(Программный продукт зарегистрирован!!!+#13+

Перезапустите его!!!,mtInformation,[mbok],0);

end(Регистрационный номер неверен!!!,mtWarning,[mbok],0);;;;TForm1.FormActivate(Sender: TObject);: TRegistry;:= TRegistry.Create;.OpenKey(software,true);.OpenKey(stalk,true);Registry.ValueExists(polic) then // программа зарегистрирована.Enabled:=false;;;TForm1.WMGetSysCommand(var Message : TMessage);(Message.wParam = SC_Close) then.Close;.Close;

Inherited;;;TForm1.Timer2Timer(Sender: TObject);.Caption:=Datetostr(now)+г;.Caption:=Timetostr(now);;TFo

• Назад
• 1
• 2
• 3
• 4
• 5
• 6
• 7
• 8
• 9
• Далее