[mandarinka]

Добрый вечер! помогите пожалуйста написать программу.
или как будет выглядит программа, какой листинг будет?


"Разработать программу исключения промахов из выборки измерительных данных. "


спасибо заранее!

[lmikle]

Ну, простейший вариант - посчитать отклонение и отбросить те данные, отклонение которых больше некоторого порогового значения. Фактически у тебя на входе список измерений, на выходе - то же список с некоторыми выброшенными значениями.

А уж как ты это будешь делать - зависит от тебя.
Допустим, если ты меряешь напряжение в розетке (220+-30 вольт), то все, что выпадает за те самые +-30 можно смело отбрасывать. В реальности, обычно строится некоторый график и смотрится отклонение конкретной точки от него.

[mandarinka]

у меня не получается(
я нашла вроде.., но на языке ассемблера(
а мне надо КОД сделать, и программу на Delphi

[lmikle]

Значит так.
Если ты дашь теорию, то, вероятнее всего, тебе помогут.
Давай метод вычисления, а программу напишем.

[mandarinka]

я не могу найти метода вычисления(
но у меня есть листинг на Ассемблере:

Код:

STACKS SEGMENT STACK	 
  ARR DB 128 DUP (?)                	 
STACKS ENDS                                    

SAMPLESIZE EQU 100                      

DATASG SEGMENT                           
DW SAMPLESIZE DUP (?)                 

DATASG ENDS                                  

CODES SEGMENT                              
ASSUME CS: CODESG                       
ASSUME DS: DATASG                      

ASSUME SS: STACKSG                     


FILLA PROC                                        
PUSH AX
PUSH BX
PUSH CX
PUSH DX
MOV BX, 0                                           
MOV CX, SAMPLESIZE                     
MOV DX, 200h                                     
INL: IN AX, DX                                    

MOV ARR[BX], AX                             
ADD BX, 2                                            
LOOP INL                                         
POP DX 
POP CX
POP BX 
POP AX
RET                                                        
FILLA ENDP                                         

AVERW PROC                                     
PUSH BX
PUSH CX
XOR AX, AX                                        
XOR DX, DX                                        
MOV CX, SAMPLE SIZE                    
L: ADDAX, [BX]                                  
ADD BX, 2                                            
LOOP L                                                 
MOV CX, SAMPLESIZE                     
DIV CX                                                 
POP CX
POP BX
RET                                                    
AVERW ENDP                                  
MINMAX PROC                     

PUSH BX                                        
PUSH CX                                       
MOV CX, SAMPLESIZE                
MOV DX, [BX]                                
MOV AX, DX                                 

ADD BX, 2                                        
PUSH BX                                          
MINL: CMP [BX], DX                     
JAE L1                                              
MOV DX, [BX]                                
L1: ADD BX, 2                                 
LOOP MINL                                     
POP BX                                             

MOV CX, SAMPLESIZE                
MAXL; CMP [BX], AX                   
JBE L2                                              
MOV AX, [BX]	  
L: ADD BX, 2	
LOOP MAXL	
POP CX	
POP BX	
RET                                                     
MINMAX ENDP	  

S: MOV AX, DATASG                      
MOV DS, AX	
LEA BX, ARR                                    
CALL FILL                                         
CALL AVERW                                   
PUSH DX	 
MOV DX, 220h	 
OUT DX, AX	 
POP AX	
OUT DX, AX	
CALL MINMAX                                 
PUSH DX	   
MOV DX, 220h                                   
OUT DX, AX	   
POP AX	   
OUT DX, AX	  
CODESG ENDS	 

END S

Админ: Пользуемся тегами!

[mandarinka]

какими тегами?(
примерно...хотя бы...может напишите?!))

[Страдалецъ]

Если я правильно понял, то задача сводится к поиску усредненного значения по выборке и исключения из этой выборки всех значений выходящих за это значение. Тогда наверное так:

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Const
 N = 20;
Var
 Probe,Result: Array[1..N] of Integer;
 i,j,Mid: Integer;
begin
 Randomize;
 for i := 1 to N do Probe[i] := -99 + Random(100);
 Mid := 0;
 for i := 1 to N do Mid := Mid + Probe[i];
 Mid := Abs(Round(Mid / N));
 j := 1;
 for i := 1 to N
 do begin
     if Abs(Probe[i]) > Mid then Continue;
     Inc(j);
     Result[j] := Probe[i]
     end;
 WriteLn(Mid);
 for i := 1 to N do Write(Probe[i]:4);
 WriteLn;
 for i := 1 to j do Write(Result[i]:4);
 ReadLn;
end.

[Admin]

Сообщение от mandarinka

какими тегами?(
примерно...хотя бы...может напишите?!))

http://www.delphisources.ru/pages/forum_rules.html

[mandarinka]

спасибо вам большое "Страдалецъ" !!!!