1. Куча / Говнокод #9516

    +120

    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
    ' Program DISKRIMINANT
CLS
DO
    PRINT "Vvedite peremennye"
    INPUT "A"; A
    INPUT "B"; B
    INPUT "C"; C
    D = B ^ 2 - 4 * A * C
    CLS
    PRINT "A ="; A
    PRINT "B ="; B
    PRINT "C ="; C
    IF A = 0 THEN
        CLS
        WRITE "Urovnenie ne kvadratnoe"
        WRITE "Ekstrenaja ostanovka programmy"
        WRITE "Zavershenie raboty"
        SLEEP 3
        SYSTEM
        END
    END IF
    PRINT "DISKRIMINANT ="; D
    Dx = SQR(D)
    P$ = "Pechal"
    IF D > 0 THEN PRINT "x1 ="; ((0 - B) + Dx) / (2 * A), "x2="; ((0 - B) - Dx) / (2 * A)
    IF D = 0 THEN PRINT "x ="; (0 - B) / (2 * A)
    IF D < 0 THEN PRINT P$
    INPUT "Rerty(YES = 1; NO = 2)"; CLr
    IF CLr = 1 THEN CLS
LOOP WHILE CLr = 1
IF CLr = 2 THEN SYSTEM
END

    Один из согруппников накодиль :D
    Ну я свиснул тихонька. Удивлению не была границ :D

    Запостил: i3ookMAn, 23 Февраля 2012

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

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