Создание расчетных приложений и программы поиска в базе данных в среде Delphi 7.0
Memo1.Lines.Add ('площадь поверхности конуса S равна' +MaskEdit3.Text); Задано каноническое уравнение поверхности 2 порядка. Текст программы поиска в базе данных в среде Delphi 7.0. Поперечная подача на оборот стола S, ммоб, не более. Таблицы Текст программы поиска в базе данных. If strtofloat (Trim (MaskEdit2.Text))≤TableX.FieldByName ('V').AsFloat then. If strtofloat (Trim… Читать ещё >
Создание расчетных приложений и программы поиска в базе данных в среде Delphi 7.0 (реферат, курсовая, диплом, контрольная)
Министерство Образования Российской Федерации Федеральное агентство по образованию Южно-Уральский Государственный Университет Кафедра «Технология машиностроения»
Создание расчетных приложений и программы поиска в базе данных в среде Delphi 7.0
Пояснительная записка к курсовой работе
по информатике
Выполнил: Ф.И.О.
группа МТ-ххх Проверил: Выбойщик А.В.
Челябинск
Аннотация
Фамилия И.О. (студента) Создание расчетных приложений и программы поиска в базе данных в среде 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®));
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®));
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®;
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 | 7,5 | 1,8 | 3,2 | 7,5 | |||||||
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 | |
0,0025 | 0,01 | 0,0045 | |||||||||||
; | 0,008 | ||||||||||||
; | ; | ||||||||||||
; | ; | ; | ; | ||||||||||
; | ; | ; | ; | ; | ; | ||||||||
Таблица 2
Code_metod | S | V | X | |
1,2 | 6,3 | 0,007 | ||
1,8 | 6,3 | 0,006 | ||
3,2 | 6,3 | 0,005 | ||
6,3 | 0,0045 | |||
7,5 | 6,3 | 0,004 | ||
6,3 | 0,0035 | |||
6,3 | 0,003 | |||
1,2 | ||||
1,8 | ||||
3,2 | ||||
7,5 | ||||
0,0025 | ||||
1,2 | ||||
1,8 | ||||
3,2 | ||||
7,5 | ||||
1,2 | ||||
1,8 | ||||
3,2 | ||||
7,5 | ||||
1,2 | ||||
1,8 | ||||
3,2 | ||||
1,2 | ||||
1,8 | ||||
3,2 | ||||
1,8 | 6,3 | 0,012 | ||
3,2 | 6,3 | 0,009 | ||
6,3 | 0,007 | |||
7,5 | 6,3 | 0,006 | ||
6,3 | 0,005 | |||
1,8 | 0,01 | |||
3,2 | ||||
7,5 | ||||
0,0045 | ||||
1,8 | 0,008 | |||
3,2 | ||||
7,5 | ||||
1,8 | ||||
3,2 | ||||
7,5 | ||||
1,8 | ||||
3,2 | ||||
7,5 | ||||
1,8 | ||||
3,2 | ||||
Кодирование материала:
Таблица 3
Mater | Code_ metod | |
Сталь | ||
Чугун | ||
Текст программы поиска в базе данных в среде 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.