Дофига прог Делфи 1 (rogram Project1ORG)

Посмотреть архив целиком

Семестровая работа: органайзер описания программы и ее компонентов:

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

program Project1ORGanaizer;

uses

Forms,

Unit1ORG in 'Unit1ORG.pas' {Form1},

calk in 'компоненты органайзера\калькулятор\calk.pas' {Form1calk},

Unit1okr in 'компоненты органайзера\Округление\Unit1okr.pas' {Form1okr},

Unit1ISBN in 'компоненты органайзера\Проверка ISBN книги\Unit1ISBN.pas' {Form1ISBN},

Unit1bankcart in 'компоненты органайзера\Проверка банковской карты\Unit1bankcart.pas' {Form1bank},

Unit1matr in 'компоненты органайзера\матрицы\Unit1matr.pas' {Form1matr},

Unit1obr in 'компоненты органайзера\Обработка строк\Unit1obr.pas' {Form1obrab};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm1calk, Form1calk);

Application.CreateForm(TForm1okr, Form1okr);

Application.CreateForm(TForm1ISBN, Form1ISBN);

Application.CreateForm(TForm1bank, Form1bank);

Application.CreateForm(TForm1matr, Form1matr);

Application.CreateForm(TForm1obrab, Form1obrab);

Application.Run;

end.

















Главный юнит содержит информацию о компонентах программы обращается к ним с помощью функции showmodal имеет графический интерфейс ,службу маин иеню для облегчения доступа к компонентам программы

unit Unit1ORG;

interface

uses

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

Dialogs, Menus, ExtCtrls, StdCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

Label1: TLabel;

Label2: TLabel;

Timer1: TTimer;

Image1: TImage;

N12: TMenuItem;

procedure N11Click(Sender: TObject);



procedure FormCreate(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N9Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses calk, Unit1okr, Unit1ISBN, Unit1bankcart, Unit1matr, Unit1obr, laba8;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

image1.Picture.LoadFromFile('12.bmp');

label1.Transparent:=true;

label2.Transparent:=true;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

form1lab8.ShowModal;

end;

procedure TForm1.N14Click(Sender: TObject);

begin

form1ISBN.showmodal;

end;

procedure TForm1.N15Click(Sender: TObject);

begin

form1bank.showmodal;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

form1calk.showmodal;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

form1okr.showmodal;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form1obrab.showmodal;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var

Time:TDateTime;

begin

Time:=Now();

Label1.Caption:=FormatDateTime('hh:mm:ss',Time);

Label2.Caption:=FormatDateTime('dd.mm.yyyy',Time);

end;

end.





uses

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

Dialogs, StdCtrls, Buttons, ExtCtrls;

type

TForm2 = class(TForm)

Label1: TLabel; Edit1: TEdit;Label2: TLabel;

Edit2: TEdit;Label3: TLabel;Edit3: TEdit;

BitBtn1: TBitBtn;BitBtn2: TBitBtn;Label4: TLabel;

ComboBox1: TComboBox;Memo1: TMemo;

RadioGroup1: TRadioGroup;Label5: TLabel;

procedure BitBtn1Click(Sender: TObject);

private { Private declarations }

public { Public declarations }

end;

var Form2: TForm2;

implementation {$R *.dfm}

var a,b,h,dx,dx2,integ,x,z,z0:Extended;i,n,op:integer;

function fx:extended;

begin

if n>0 then

begin if op=0 then begin

dx:=(b-a)/n; x:=a+dx/2;

for i:=1 to n do

begin

z:=z+x; x:=x+dx;

end;

z:=z*dx;

end;

if op=1 then begin

dx:=(b-a)/n; x:=a+dx/2;

for i:=1 to n do

begin

z:=z+((x*x)/2); x:=x+dx; z:=z*dx;

end;

end;

if op=2 then begin

dx:=(b-a)/n; x:=a+dx/2;

for i:=1 to n do begin

z:=z+(sin(x)/cos(x)); x:=x+dx;

end;

z:=z*dx;

end;

if op=3 then begin

dx:=(b-a)/n;

x:=a+dx/2;

for i:=1 to n do

begin

z:=z+(cos(x)/sin(x));

x:=x+dx;



end;

z:=z*dx;

end;

if op=4 then begin

dx:=(b-a)/n;

x:=a+dx/2;

for i:=1 to n do

begin

z:=z+ln(x);

x:=x+dx;

end;

z:=z*dx;

end ;

end

калькулятор программа для вычислительных операций выполнена в графической среде делфи

использует оператор case of для запоминания последующих операция имеет кнопки для ввода чисел с икрана использует поле edit для ввода и запоминания чисел для вычисления использует стандартные функции сложения, вычитания ,взятия логарифма ,косинуса и синуса



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

калькулятор

unit calc_;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; ButtonEnter: TButton;

Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; ButtonPlus: TButton ButtonMinus: TButton;

ButtonC: TButton; Button0: TButton; ButtonZ: TButton; Button10: TButton; Button11: TButton; Button12: TButton; Button13: TButton; Button14: TButton; Edit2: TEdit; Edit3: TEdit Edit4: TEdit; Button15: TButton; Button16: TButton; Button17: TButton; Label1: TLabel; Button18: TButton; Button19: TButton;

procedure Edit1Change(Sender: TObject; var Key:Char); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button9Click(Sender: TObject);

procedure Button6Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject); procedure Button0Click(Sender: TObject); procedure ButtonZClick(Sender: TObject);

procedure ButtonCClick(Sender: TObject); procedure ButtonPlusClick(Sender: TObject); procedure ButtonMinusClick(Sender: TObject);

procedure ButtonEnterClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button10Click(Sender: TObject);

procedure Button11Click(Sender: TObject); procedure Button12Click(Sender: TObject); procedure Button13Click(Sender: TObject);

procedure Button14Click(Sender: TObject); procedure Button15Click(Sender: TObject); procedure Button16Click(Sender: TObject);

procedure Button17Click(Sender: TObject); procedure Button18Click(Sender: TObject); procedure Button19Click(Sender: TObject);

private { Private declarations }

public{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

var accum: real; // аккумулятор

oper: integer; // операция: 1 - '+' ; 2 - '-';

f: integer; { f = 0 ждем первую цифру нового числа, например, после выполнения операции, когда на индикаторе результат.

f = 1 ждем остальные цифры. }

// кнопка 0 procedure TForm1.Button0Click(Sender: TObject);

begin

if f = 0 // первая цифра числа

then begin

Edit1.Text := '0'; f := 1; // ждем остальные цифры

end

else

if Edit1.Text <> '0' // чтобы на индикаторе не было // нескольких нулей в начале числа

then Edit1.Text := Edit1.Text + '0';

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

edit1.Text:=floattostr(sin(strtofloat(edit1.Text)));

end;

procedure TForm1.Button11Click(Sender: TObject);

begin

edit1.Text:=floattostr(cos(strtofloat(edit1.Text)));

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if f = 0 // первая цифра числа then begin

Edit1.Text := '1';

f := 1; // ждем остальные цифры

end

else Edit1.Text := Edit1.Text + '1';

end;

procedure TForm1.Button2Click(Sender: TObject); // кнопка 2

begin

if (f = 0) // первая цифра числа

then begin

Edit1.Text := '2';

f := 1; // ждем остальные цифры

end

else Edit1.Text := Edit1.Text + '2';

end;

procedure TForm1.Button3Click(Sender: TObject); // кнопка 3

begin

if f = 0

then begin

Edit1.Text := '3';

f := 1;

end

else Edit1.Text := Edit1.Text + '3';

end;

procedure TForm1.Button4Click(Sender: TObject); // кнопка 4

begin

if f = 0 then

begin

Edit1.Text := '4';

f := 1;

end

else Edit1.Text := Edit1.Text + '4';


Случайные файлы

Файл
46052.rtf
referat.doc
10253.rtf
3265.rtf
138566.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.