Лабораторная работа: Создание расчетных приложений и программы поиска в базе данных в среде Delphi 7 0

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