Практическая_работа на тему Создание расчетных приложений и программы поиска в базе данных в среде Delphi 70
Работа добавлена на сайт bukvasha.net: 2015-07-01Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Министерство Образования Российской Федерации
Федеральное агентство по образованию
Южно-Уральский Государственный Университет
Кафедра «Технология машиностроения»
Создание расчетных приложений и программы поиска в базе данных в среде 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
Текст программы поиска в базе данных в среде 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. 2. Курсовая Оценка эфективности инвестиционного проекта ЗАО Сеть перевозных туалетов 3. Реферат История Рок-музыки 4. Доклад на тему Даки 5. Реферат на тему Hannibal 6. Статья Экзистенция и опыт в православном мышлении накануне XXI века 7. Реферат на тему The Arts And Crafts Debate Essay Research 8. Реферат Бизнес как объект оценки 9. Курсовая на тему Проектирование оснований и конструирование фундаментов промышленных зданий и сооружений 10. Контрольная работа по Философии 7 |
