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