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

    +99

    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
    program lab;
usescrt
var
a:array [1..20] of shortint;
s:byte;
g,b:real;
begin
clrscr
randomize;
for s:=1 to 20 do 	
begin 
a[s]:=random (40);
a[s]:=a[s]-20;
write (a [s]4);
end;
g:=0
for s:=1 to 20 do
if a[s]>0 , then g= g+a [s];
writelnc(summa pol ',g);
b:=0;
for s:=1 to 20 do
if a[s]<0 then b:=b+a[s];
writeln (srednee',b);
b:=(b)/20;
repeat until keypressed;
end.

    http://rghost.ru/38741341

    Запостил: dos_, 01 Июля 2012

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

    • ava bormand 01.07.2012 06:45 # +4

      Мдя. Автор ее хотя бы компилил? Что-то у нго смвоы выпдают.
      dos_ вы не случаем не учитель информатики, заставляющий бедных детей писать проги на листе бумаги?

      > s:byte
      Байтодрочер детектед.

      > writeln ('srednee',b);
      > b:=(b)/20;
      Все верно. От перестановки слагаемых сумма не меняется.

      > repeat until keypressed;
      Матрица форева.
      Ответить

      • ava vistefan 01.07.2012 08:42 # +3

        Нет, если бы он был учителем, он бы не допустил такого жёсткого косяка, как пустой оператор перед end

        >b:=(b)/20
        В скобках оно надёжнее.
        Ответить

        • ava bormand 01.07.2012 08:47 # +1

          > если бы он был учителем, он бы не допустил такого жёсткого косяка
          Ну косяки же не он допускал, а ученик, который писал код на бумаге :P
          Ответить

          • ava vistefan 01.07.2012 08:47 # +3

            А, тогда, судя по коду - сразу на туалетной бумаге...
            Ответить

    • ava Lure Of Chaos 01.07.2012 12:08 # +7

      вот оно, бля, новое поколение
      Ответить

    • ava kipar 02.07.2012 13:41 # +2

      Среднее неправильно считается (надо не на 20 делить, а на число отрициательных), ну и пропущенные символы и отступы, а так обычная лаба.
      А, ну и random(41) надо было делать чтобы получить число от -20 до +20.
      Ответить

      • ava bormand 02.07.2012 14:52 # +1

        > надо не на 20 делить, а на число отрициательных
        Ага, и явно не после вывода ;)

        > ну и пропущенные символы и отступы
        И, кстати, даже лишние. Такое ощущение, что код ниразу не пытались компилировать...

        > а так обычная лаба
        Самого обычного двоечника. Угу.
        Ответить

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