FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
I'm progress
Primero que nada debo agradecerles a todos por ayuda y seguerencias con mi anterior Hilo "Como realizo este programa"
He aprendido mucho en estos ultimos dias... ahh por cierto, ya solucione en problema, osea realize el programa. Ahora, este es un nuevo programa... me gustaria opiniones. See U. {Realize un programa que dado un radio de una Esfera determine el % de puntos (cargado de una Base de Datos) que estan es dicha esfera (Los puntos de la superficie no cuentan).} procedure TForm1.DriveComboBox1Change(Sender: TObject); begin directorylistbox1.drive:=driveComboBox1.drive; end; procedure TForm1.DirectoryListBox1Change(Sender: TObject); begin FileListBox1.drive:=DirectoryListBox1.drive; end; procedure TForm1.FileListBox1DblClick(Sender: TObject); Var coordenadas:string; A:Textfile; I,N,X,Y,Z,m,R:byte; D:Real; begin label1.visible:=true; label1.caption:=FileListBox1.FileName; R:=strtofloat(Edit1.text); Coordenadas:=FileListBox1.FileName; AssingFile(A,coordenadas); reset(A); readln(A); For I:=1 to N do Begin readln(A,X); readln(A,Y); readln(A,Z); D:= sqrt(X*X+Y*Y+Z*Z); if D<R then m=m+1 else m=m; End; Label3.visible:=true; Label3.caption:='Porcentaje' + floattostr ((m/N)*100) + '%' end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); Var R:byte; begin R:=strtofloat(Edit1.text) If key=char(13) then Begin if R>0 then Begin DirectoryBoxList1.Visible:=True; FileListBox1.Visible:=True; DriveComboBox1:=True; End Else end; end. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|