Практическая работа

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

Работа добавлена на сайт bukvasha.net: 2015-07-01

Поможем написать учебную работу

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

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 25.12.2024


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

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

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

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

Создание расчетных приложений и программы поиска в базе данных в среде 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.


1. Доклад на тему Береза
2. Курсовая Эрик Берн Транзактный анализ ТА Игры взрослых социально - психологические аспекты изучения
3. Реферат на тему Significance Of Art Essay Research Paper Art
4. Реферат Карл Густав Юнг аналитическая теория личности
5. Реферат на тему Тесты как средство контроля за качеством учебных достижений младших школьников
6. Контрольная_работа на тему Классификация помещения с электроустановками
7. Презентация на тему Внутренняя память компьютера
8. Реферат на тему Aids 2 Essay Research Paper How Aids
9. Доклад на тему Работа детей в совхозах и на полях во время ВОВ
10. Реферат Походження і функції банків