- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 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
zooz13 23.02.2012 00:16 # +7
i3ookMAn 23.02.2012 00:19 # −4
ЛолЪ :D
bober_maniac 23.02.2012 00:39 # +1
:3
Говногость 23.02.2012 00:41 # +1
bober_maniac 23.02.2012 00:42 # +1
3.14159265 23.02.2012 17:17 # +7
Ай малаца, даже хост подсветил.
Кстати первый по запросу IT+IS+A+BASIC+HURRY+GET+IN+THE+CAR в гоогле вылазит сам этот коммент на говнокод.ру.
istem 23.02.2012 01:11 # +5
wvxvw 23.02.2012 22:56 # +1
eth0 23.02.2012 10:01 # 0
bugmenot 23.02.2012 13:45 # 0
DBdev 23.02.2012 16:59 # +2
TheHamstertamer 23.02.2012 20:26 # −5
dreesto 23.02.2012 20:37 # −5
Steve_Brown 24.02.2012 10:49 # +2
Из окна видно даль,
Так откуда взялась
P$
guest8 09.04.2019 12:44 # −999