Створення розрахункових додатків і програми пошуку в базі даних у середовищі Delphi 1970

Міністерство Освіти Російської Федерації

Федеральне агентство з освіти

Південно-Уральський державний університет

Кафедра «Технологія машинобудування»

Створення розрахункових додатків і програми пошуку в базі даних у середовищі 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 kino 5;

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