1. Список говнокодов пользователя _113

    Всего: 2

  2. Си / Говнокод #13467

    +132

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    #define max    0x08         //Max number of samples to average/filter
#define byte unsigned char
#define word unsigned int
#define dword unsigned long

#define FILTER 0
#define AVG 1

typedef struct  {
  word  reading[max];
  word  result[max];
} ResultStct;


static ResultStct x;
static char samp = 0;//filter;
const byte filter_mode = FILTER;

extern int avg_result;

void MYfilter(word input_sample) 
{
  byte j;
  dword X;
    
	x.reading[samp] = input_sample;
  
	if(samp>0){

		X=0;
		for (j=0;j<=samp;j++){
		  X += x.reading[j];
		}
		avg_result = (X >> 3) - 0x0200;
		
	} 
   
	// Shift array of results if we hit max
	if (samp >= max-1) {
		for (j=0;j<max-1;j++){
			x.result[j]  = x.result[j+1];
			x.reading[j] = x.reading[j+1];
		}
		samp = max-1;
	}
	else 
	{
		samp++;
	} //end if (i => max)

    Такой вот МОЩНЕЙШИЙ фильтр встретился в одном проекте.

    _113, 24 Июля 2013

    Комментарии (18)

  3. Pascal / Говнокод #13233

    +75

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    function rus (s:string):string;             {русификатор}
var m:integer;
begin
for m := 1 to length (s) do
case s [m] of
'А'..'п':S[m]:=chr(ord (S[m])-64);
'р'..'я':S[m]:=chr(ord(S[m])-16);
end;
rus:=S; end;

    Кусок лабы на делфи

    _113, 26 Июня 2013

    Комментарии (208)