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

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