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

    Всего: 2

  2. Pascal / Говнокод #21790

    −53

    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
    uses crt;

procedure dl(a,b,c,d:real; var e:real);
 begin
  e:=sqrt(sqr(a-c)+sqr(b-d));
 end;

procedure abc(a,b,c,d:real; var x,y,z:real);
 begin
  x:=d-b;
  y:=a-c;
  z:=b*c-a*d;
 end;

var x1,y1,x2,y2,x3,y3,x4,y4,d1,d2,d3,d4,a1,b1,c1,a2,b2,c2,a3,b3,c3,a4,b4,c4:real;

Begin
 ClrScr;
 Writeln('‚ўҐ¤ЁвҐ Є®®а¤Ё­ вл ЇҐаў®© в®зЄЁ');
 Read(x1,y1);
 Writeln('‚ўҐ¤ЁвҐ Є®®а¤Ё­ вл ўв®а®© в®зЄЁ');
 Read(x2,y2);
 Writeln('‚ўҐ¤ЁвҐ Є®®а¤Ё­ вл ваҐв쥩 в®зЄЁ');
 Read(x3,y3);
 Writeln('‚ўҐ¤ЁвҐ Є®®а¤Ё­ вл зҐвўҐав®© в®зЄЁ');
 Read(x4,y4);
 dl(x1,y1,x2,y2,d1);
 dl(x2,y2,x3,y3,d2);
 dl(x3,y3,x4,y4,d3);
 dl(x4,y4,x1,y1,d4);
 abc(x1,y1,x2,y2,a1,b1,c1);
 abc(x2,y2,x3,y3,a2,b2,c2);
 abc(x3,y3,x4,y4,a3,b3,c3);
 abc(x4,y4,x1,y1,a4,b4,c4);
 write(d1:3:1,d2:3:1,d3:3:1,d4:3:1);
 ReadKey()
 End.

    Шкварюсь на ОАП. Условия задачи - даны четыре точки, которые образует четырехугольник. Нужно определить его вид и найти площадь.

    Simodgo, 06 Декабря 2016

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

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

    −50

    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 magic_square;
uses crt;
const n=1000;
var a:array[1..n,1..n] of real;
    n1,i,j:integer;
    s,t,t1,t2,k,k1,k2,b,s1:real;
begin
 clrscr;
 writeln('‚ўҐ¤ЁвҐ а §ап¤­®бвм ¬ ббЁў ');
 readln(n1);
 writeln('‚ўҐ¤ЁвҐ н«Ґ¬Ґ­вл ¬ ббЁў ');
 for i:=1 to n1 do
  for j:=1 to n1 do
   readln(a[i,j]);
 for i:=1 to n1 do
  begin
   for j:=1 to n1 do
    write(' ',a[i,j]:3:1);
   writeln;
  end;
 s:=0;
 for i:=1 to n1 do
  s:=s+a[i,i];
 for i:=3 downto 1 do
  s1:=s1+a[i,i];
 for i:=1 to n1 do
  begin
   for j:=1 to n1 do
     if i=1 then t:=t+a[i,j] else
     if i=2 then t1:=t1+a[i,j] else
     if i=3 then t2:=t2+a[i,j];
   writeln;
  end;
 for i:=1 to n1 do
  begin
   for j:=1 to n1 do
     if j=1 then k:=k+a[i,j] else
     if j=2 then k1:=k1+a[i,j] else
     if j=3 then k2:=k2+a[i,j];
   writeln;
  end;
 writeln('‘㬬  н«Ґ¬Ґ­в®ў ¤Ё Ј®­ «Ё - ',s:3:1);
 writeln('‘㬬  нҐ«Ґ¬Ґ­в®ў Ї®Ў®з­®© ¤Ё Ј®­ «Ё - ', s1:3:1);
 writeln(t:3:1,' ', t1:3:1,' ', t2:3:1);
 writeln(k:3:1,' ', k1:3:1,' ', k2:3:1);
 If (s=t) and (t=t1) and (t1=t2) and (t2=k) and (k=k1) and (k1=k2) and (k2=s1) then writeln('Љў ¤а в - ¬ ЈЁзҐбЄЁ©!!!') else writeln('Љў ¤а в - ­Ґ ¬ ЈЁзҐбЄЁ©!!!');
 readkey();
end.

    Шкварюсь на ОАП

    Simodgo, 13 Сентября 2016

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