Рефераты
 

Создание расчетных приложений и программы поиска в базе данных в среде Delphi 7.0

Создание расчетных приложений и программы поиска в базе данных в среде Delphi 7.0

Министерство Образования Российской Федерации

Федеральное агентство по образованию

Южно-Уральский Государственный Университет

Кафедра «Технология машиностроения»

Создание расчетных приложений и программы поиска в базе данных в среде Delphi 7.0

Пояснительная записка к курсовой работе

по информатике

Выполнил: Ф.И.О.

группа МТ-ххх

Проверил: Выбойщик А.В.

Челябинск

2006

Аннотация

Фамилия И.О. (студента)

Создание расчетных приложений и программы поиска в базе данных в среде Delphi 7.0:

Пояснительная записка к курсовой работе по информатике

-Челябинск: ЮУрГУ,

2005. - 21 с.

В работе выполнено: 1. Блок-схемы

2. Тексты программ в Delphi и Паскаль

3. Выполнение разбиения таблицы

4. Текст программы поиска в базе данных

в среде Delphi 7.0

Содержание

Введение

Условия и блок-схемы задач

Текст программ в Delphi

Текст программ в Паскаль

Таблицы

Текст программы поиска в базе данных

Заключение

Библиографический справочник

Введение

В работе необходимо создать расчётные приложения задач и программу поиска в базе данных в среде Borland Delphi 7.0 Enterprise

Задача №1. Линейные алгоритмы

10.9. Заданы высота конуса Н и радиус окружности, лежащий в основании R. Найти площадь поверхности конуса S

№2. Ветвящиеся алгоритмы

20.13. Задано каноническое уравнение поверхности 2 порядка

Определить, является ли эта поверхность однополостным гиперболоидом.

Если условие выполняется, вывести N=1, в противном случае вывести N=0.

Задача №3.

Алексеев В.Е. №1.49 в) Задан массив (Х1, Х2, ….., Х50). Требуется переписать положительные элементы массива Х подряд в массив Y, а отрицательные - подряд в массив Z.

Задача 1

procedure TForm4.Button1Click(Sender: TObject);

const pi=3.14;

var H,R,S: real;

begin

H:=StrToFloat(Trim(MaskEdit1.Text));

R:=StrToFloat(Trim(MaskEdit2.Text));

S:=pi*R*(R+SQRT(SQR(H)+SQR(R)));

MaskEdit3.Text:=FloatToStr(S);

Memo1.Lines.Add('площадь поверхности конуса S равна' +MaskEdit3.Text);

end;

Задача 2

procedure TForm5.Button1Click(Sender: TObject);

var n,a,b,c:Real;

var M:Boolean;

begin

n:=StrToFloat(Trim(MaskEdit1.Text));

a:=StrToFloat(Trim(MaskEdit2.Text));

b:=StrToFloat(Trim(MaskEdit3.Text));

c:=StrToFloat(Trim(MaskEdit4.Text));

if trunc(n/2)+2=n

THEN

M:=True

ELSE

M:=False;

MaskEdit5.Text:=boolToStr(M);

Memo1.Lines.Add('Если M=1, то это однополостный гиперболоид, в противном случае нет' +MaskEdit5.Text);

end;

Задача 3

// Ввод массива

procedure TForm6.Button1Click(Sender: TObject);

var k, p, i: Integer;

begin

k:=0;

StringGrid2.colCount:=k+1;

p:=0;

StringGrid3.colCount:=p+1;

for i:=1 to StringGrid1.ColCount - 1 do

if STrToFloat(StringGrid1.Cells[i,1]) >0 then

begin

k:=k+1;

StringGrid2.colCount:=k+1;

StringGrid2.Cells[k,1]:= FloatToStr(StrToFloat(StringGrid1.Cells[i,1]))

end

else

begin

p:=p+1;

StringGrid3.colCount:=p+1;

StringGrid3.Cells[p,1]:= FloatToStr(StrToFloat(StringGrid1.Cells[i,1]));

end;

for i:=1 to StringGrid3.ColCount-1 do

StringGrid3.Cells[i,0]:='Z'+'['+Inttostr(i)+' ]';

for i:=1 to StringGrid2.ColCount-1 do

StringGrid2.Cells[i,0]:='Y'+'['+Inttostr(i)+' ]';

end;

procedure TForm6.StringGrid1KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in [#8, '0' .. '9' , '-' , ',' ]) then key:=#0;

end;

// Решение задачи

procedure TForm6.Button2Click(Sender: TObject);

var i : Integer;

begin

StringGrid1.ColCount:=SpinEdit1.Value+1;

for i:=1 to StringGrid1.ColCount-1 do

StringGrid1.Cells[i,0]:='X'+'['+Inttostr(i)+' ]';

end;

Текст программ в Паскаль

Задача 1

Program kino5;

const pi=3.14;

var H,R,S real;

{H-высота конуса

R-радиус окружности

S-площадь поверхности конуса}

begin

read ln(H,R);

S:=pi*R*(R+SQRT(SQR(H)+SQR(R)));

writeln('S=',S);

end.

Задача 2

Program kino5;

var n,a,b,c:Real;

var M:Boolean

begin

real ln(n,a,b,c);

if trunc(n/2)+2=n

M:=True

ELSE

M:=False;

writeln('M=',M);

end.

Задача 3

Var

A: avray[1..50] f Real;

var k:Integer;

var p:Integer;

var i:Integer;

var b,c:avray[1..50] of Real;

begin

k:=0;

p:=0

for i:=0 to 50 do

if A[i]>0 then

begin

Inc(R);

b[k]:=A[i];

end

else

begin

Inc(p);

c[p]:=A[i];

end;

for i:=1 to k do

Writeln (b[i]);

for i:=1 to p do

Writeln(c[i]);

end.

Таблицы

Таблица 1

скорость детали V мм\мин, не более

СТАЛЬ

ЧУГУН

поперечная подача на оборот стола S, мм\об, не более

1,2

1,8

3,2

5

7,5

11

16

1,8

3,2

5

7,5

11

6,3

0,007

0,006

0,005

0,0045

0,004

0,0035

0,003

0,012

0,009

0,007

0,006

0,005

8

6

5

45

4

35

3

0,0025

0,01

8

6

5

0,0045

10

5

45

4

35

3

25

-

0,008

7

5

45

4

12

45

4

35

3

25

-

-

7

6

45

4

3

16

4

35

3

25

-

-

-

6

5

4

3

-

20

35

3

25

-

-

-

-

5

4

3

-

-

Таблица 2

Code_metod

S

V

X

1

1,2

6,3

0,007

1

1,8

6,3

0,006

1

3,2

6,3

0,005

1

5

6,3

0,0045

1

7,5

6,3

0,004

1

11

6,3

0,0035

1

16

6,3

0,003

1

1,2

8

6

1

1,8

8

5

1

3,2

8

45

1

5

8

4

1

7,5

8

36

1

11

8

3

1

16

8

0,0025

1

1,2

10

5

1

1,8

10

45

1

3,2

10

4

1

5

10

35

1

7,5

10

3

1

11

10

25

1

1,2

12

45

1

1,8

12

4

1

3,2

12

35

1

5

12

3

1

7,5

12

25

1

1,2

16

4

1

1,8

16

35

1

3,2

16

3

1

5

16

25

1

1,2

20

35

1

1,8

20

3

1

3,2

20

25

2

1,8

6,3

0,012

2

3,2

6,3

0,009

2

5

6,3

0,007

2

7,5

6,3

0,006

2

11

6,3

0,005

2

1,8

8

0,01

2

3,2

8

8

2

5

8

6

2

7,5

8

5

2

11

8

0,0045

2

1,8

10

0,008

2

3,2

10

7

2

5

10

5

2

7,5

10

45

2

11

10

4

2

1,8

12

7

2

3,2

12

6

2

5

12

45

2

7,5

12

4

2

11

12

3

2

1,8

16

6

2

3,2

16

5

2

5

16

4

2

7,5

16

3

2

1,8

20

5

2

3,2

20

4

2

5

20

3

Кодирование материала:

Таблица 3

Mater

Code_ metod

Сталь

1

Чугун

2

Текст программы поиска в базе данных в среде Delphi 7.0

procedure TForm2.Button1Click(Sender: TObject);

var x1,res:variant;

label 1,2,3,4,5;

begin

x1:=TableMater.Lookup('Mater',DBComboBox1.Text,'Code_metod');

TableX.First;

While not TableX.EOF do

1: if x1=TableX.FieldByName('Code_metod').AsInteger then

2: if strtofloat(Trim(MaskEdit1.Text))<=TableX.FieldByName('S').AsFloat then

3: if strtofloat(Trim(MaskEdit2.Text))<=TableX.FieldByName('V').AsFloat then

begin

res:=TableX.Lookup('Code_metod;S;V', VarArrayOf([x1, TableX.FieldByName('S').Asfloat, TableX.FieldByName('V').AsFloat]), 'X');

goto 5;

end

else

begin

TableX.Next;

goto 3;

end

else

begin

TableX.Next;

goto 2;

end

else

begin

TableX.Next;

goto 1;

end;

5: Maskedit3.Text:=res;

end;

end.

Заключение

В работе выполнены блок-схемы задач, приведены листинги расчетных приложении. Приведено изготовление реляционной базы данных, а также листинг программы поиска в этой базе данных в среде Borland Delphi 7.0 Enterprise.

Библиографический список

1. Обработка металлов резанием. Под ред. А.А Панова. М.: Машиностроение, 1988.

2. Галисеев Г. В. Программирование в среде Delphi 7. Самоучитель.

М.: Издательский дом «Вильямс», 2004.


© 2010 BANKS OF РЕФЕРАТ