Программа поиска в базе данных в среде Borland Delphi 7.0 Enterprise. Условия и блок-схемы задач. Ввод массива. Текст программ в Delphi, в Паскаль. Текст программы поиска в базе данных. Кодирование материала. Изготовление реляционной базы данных.
Аннотация к работе
Условия и блок-схемы задач Текст программ в Delphi Текст программ в Паскаль Таблицы Текст программы поиска в базе данных Заключение Библиографический справочник Введение В работе необходимо создать расчётные приложения задач и программу поиска в базе данных в среде Borland Delphi 7.0 Enterprise Задача №1. Найти площадь поверхности конуса S №2. Задача 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 ..