Министерство Образования Российской Федерации
Федеральное агентство по образованию
Южно-Уральский Государственный Университет
Кафедра «Технология машиностроения»
Создание расчетных приложений и программы поиска в базе данных в среде 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.
! | Как писать курсовую работу Практические советы по написанию семестровых и курсовых работ. |
! | Схема написания курсовой Из каких частей состоит курсовик. С чего начать и как правильно закончить работу. |
! | Формулировка проблемы Описываем цель курсовой, что анализируем, разрабатываем, какого результата хотим добиться. |
! | План курсовой работы Нумерованным списком описывается порядок и структура будующей работы. |
! | Введение курсовой работы Что пишется в введении, какой объем вводной части? |
! | Задачи курсовой работы Правильно начинать любую работу с постановки задач, описания того что необходимо сделать. |
! | Источники информации Какими источниками следует пользоваться. Почему не стоит доверять бесплатно скачанным работа. |
! | Заключение курсовой работы Подведение итогов проведенных мероприятий, достигнута ли цель, решена ли проблема. |
! | Оригинальность текстов Каким образом можно повысить оригинальность текстов чтобы пройти проверку антиплагиатом. |
! | Оформление курсовика Требования и методические рекомендации по оформлению работы по ГОСТ. |
→ | Разновидности курсовых Какие курсовые бывают в чем их особенности и принципиальные отличия. |
→ | Отличие курсового проекта от работы Чем принципиально отличается по структуре и подходу разработка курсового проекта. |
→ | Типичные недостатки На что чаще всего обращают внимание преподаватели и какие ошибки допускают студенты. |
→ | Защита курсовой работы Как подготовиться к защите курсовой работы и как ее провести. |
→ | Доклад на защиту Как подготовить доклад чтобы он был не скучным, интересным и информативным для преподавателя. |
→ | Оценка курсовой работы Каким образом преподаватели оценивают качества подготовленного курсовика. |
Курсовая работа | Деятельность Движения Харе Кришна в свете трансформационных процессов современности |
Курсовая работа | Маркетинговая деятельность предприятия (на примере ООО СФ "Контакт Плюс") |
Курсовая работа | Политический маркетинг |
Курсовая работа | Создание и внедрение мембранного аппарата |
Курсовая работа | Социальные услуги |
Курсовая работа | Педагогические условия нравственного воспитания младших школьников |
Курсовая работа | Деятельность социального педагога по решению проблемы злоупотребления алкоголем среди школьников |
Курсовая работа | Карибский кризис |
Курсовая работа | Сахарный диабет |
Курсовая работа | Разработка оптимизированных систем аспирации процессов переработки и дробления руд в цехе среднего и мелкого дробления Стойленского ГОКа |