1. Pascal / Говнокод #8221

    +148

    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
    program analize_methods;
uses dos,crt;
const amax=10000;
type ar=array [1..amax] of integer;
ar3=array [1..3] of ar;
var a:ar3;b:^ar3;
time:array [1..2,1..3] of real;
hour,min,sec,sec100:word;
r,r1,r2:real;
ns,i,k:integer;
f:text;

{ЊҐв®¤ б®авЁа®ўЄЁ vyborom)}
procedure vybor(var m:ar);
var i,j,x,p:integer;
begin
for i:=1 to amax-1 do
begin
p:=i;
x:=m[i];
for j:=i+1 to amax do
if x>m[j] then
begin
p:=j;
x:=m[j];
end;
m[p]:=m[i];
m[i]:=x;
end;
end;

{ б®авЁа®ўЄ  ўбв ўЄ®© }
procedure Inser(var item:ar; count:integer);
var
i,x,j: integer;
begin
for i := 2 to count do
begin
x := item[i];
j := i-1;
while (x<item[j]) and (j>0) do
begin
item[j+1] := item[j];
j := j-1;
end;
item[j+1] := x;
end;
end;  { Є®­Ґж б®авЁа®ўЄЁ ўбв ўЄ®© }

    Это человек на собеседовании написал. Задача была - реализовать асинхронный ввод в 1С

    Запостил: alexoy, 17 Октября 2011

    Комментарии (25) RSS

    Добавить комментарий