Results 1 to 5 of 5

Thread: !

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    EVGA RTX 3090 FTW3 V I P E R's Avatar
    Join Date: Dec:2001
    Location:
    Posts: 7,043

    !

    qbasic (qbasic http://www.data.bg/f.php?fid=3660470) :
    - .
    - .
    - .
    - .
    - - .
    - - .

    ( ) , , .
    .
    If you can read this, then you aren't "well" verclockd yet...!!!

  2. #2
    motherfather The Penalty's Avatar
    Join Date: Mar:2002
    Location:
    Posts: 20,472
    qbasic ... :bua:
    , ?

    Code:
    CLS
    PRINT "  :"
    INPUT ime$
    PRINT " :"
    INPUT predm
    sreden = 0
    wisok = 0
    nisuk = 7
    wisok$ = ""
    nisuk$ = ""
    FOR i = 1 TO predm
    PRINT "  :"; i
    INPUT imepr$
    PRINT "  :"
    INPUT uspeh
    sreden = sreden + uspeh
    IF wisok <= uspeh THEN
    wisok = uspeh
    wisok$ = imepr$
    END IF
    IF nisuk >= uspeh THEN
    nisuk = uspeh
    nisuk$ = imepr$
    END IF
    NEXT i
    sreden = sreden / predm
    PRINT " : "; sreden
    PRINT "- : "; wisok$; wisok
    PRINT "- : "; nisuk$; nisuk
    , 10 - , 10- , ...

    • , -
    • Sometimes I think the surest sign that intelligent life exists elsewhere in the universe is that none of it has tried to contact us
    • Soul platinum 1 and 2. See? It's not the game - you suck.


  3. #3
    EVGA RTX 3090 FTW3 V I P E R's Avatar
    Join Date: Dec:2001
    Location:
    Posts: 7,043
    .
    :

    REM GLAVNA PROGRAMA
    CLS
    INPUT "vavedete broia na ucenicite";br
    DIM name$(br), result (br)
    GOSUB inpnames
    GOSUB sumarr
    PRINT "sreden uspeh"' s/br
    1k = 2: dk = 2,5: title$ = "slab" : GOSUB makelist
    1k = 2.5: dk = 3.49: title$ = "sreden": GOSUB makelist
    1k = 3.5: dk = 4.49: title$ = "dobar": GOSUB makelist
    1k = 4.5: dk = 5.49: title$ = "mnogodobar": GOSUB makelist
    1k = 5.5: dk = 6.1: title$ = "otlicen": GOSUB makelist
    GOSUB minmax
    PRINT name$ (min); "e s nai-nisak uspeh="; result (min)
    PRINT name$(br); " e s nai-visok uspeh="; result(br)
    END
    INPNAMES: REM vavejda imeto na ucenicite
    FOR n = 1 to br
    PRINT "vavedi imeto i speha na nomer;";n
    INPUT "ime;"; name$(n)
    INPUT "uspeh;"; result (n)
    NEXT n
    RETURN
    SUMAR: REM sumirane elementite na masiv
    s=result(1)
    FOR n=2 to br
    s=s + result(n)
    NEXT n
    RETURN
    MAKELIST: REM izvejda spisak na ucenicite
    PRINT "ucenici s uspeh"; title$
    counter = 0
    FORn=1 to br
    IF result (n) < 1k THEN GOTO nxt:
    IF result (n) > dk THEN GOTO nxt:
    counter=counter + 1
    PRINT counter, name$(n), result (n)
    nxt: NEXT n
    IF counter = 0 THEN print "niama!!!"
    RETURN
    MINMAX: REM namirane na min i max element
    min=1: nom=1
    max=7: nom=7
    FOR n=2 TO br
    IF min > result(n) THEN min = result(n)
    IF max < result(n) THEN max = result(n)
    NEXT n
    RETURN
    RETURN
    If you can read this, then you aren't "well" verclockd yet...!!!

  4. #4
    motherfather The Penalty's Avatar
    Join Date: Mar:2002
    Location:
    Posts: 20,472
    .
    , ( ) ... ( ) , , ..
    :

    Code:
    CLS
    INPUT "vavedete broia na predmetite"; br
    DIM name$(br), result(br)
    GOSUB INPNAMES
    GOSUB sumar
    PRINT "sreden uspeh"; s / br
    lk = 2: dk = 2.5: title$ = "slab": GOSUB makelist
    lk = 2.5: dk = 3.49: title$ = "sreden": GOSUB makelist
    lk = 3.5: dk = 4.49: title$ = "dobar": GOSUB makelist
    lk = 4.5: dk = 5.49: title$ = "mnogodobar": GOSUB makelist
    lk = 5.5: dk = 6.1: title$ = "otlicen": GOSUB makelist
    GOSUB MINMAX
    PRINT name$(min); " e s nai-niska ocenka="; result(min)
    PRINT name$(br); " e s nai-visoka ocenka="; result(br)
    END
    INPNAMES: REM vavejda imeto na predmetite
    FOR n = 1 TO br
    PRINT "vavedi imeto na predmeta i uspeha za nomer:"; n
    INPUT "ime:"; name$(n)
    INPUT "uspeh:"; result(n)
    NEXT n
    RETURN
    sumar: REM sumirane elementite na masiv
    s = result(1)
    FOR n = 2 TO br
    s = s + result(n)
    NEXT n
    RETURN
    makelist: REM izvejda spisak na predmetite
    PRINT "predmeti s uspeh "; title$
    counter = 0
    FOR n = 1 TO br
    IF result(n) < lk THEN GOTO nxt:
    IF result(n) > dk THEN GOTO nxt:
    counter = counter + 1
    PRINT counter, name$(n), result(n)
    nxt: NEXT n
    IF counter = 0 THEN PRINT "niama!!!"
    RETURN
    MINMAX: REM namirane na min i max element
    min = 1: nom = 1
    max = 7: nom = 7
    FOR n = 2 TO br
    IF min > result(n) THEN min = result(n)
    IF max < result(n) THEN max = result(n)
    NEXT n
    RETURN
    RETURN
    , !

    • , -
    • Sometimes I think the surest sign that intelligent life exists elsewhere in the universe is that none of it has tried to contact us
    • Soul platinum 1 and 2. See? It's not the game - you suck.


  5. #5
    EVGA RTX 3090 FTW3 V I P E R's Avatar
    Join Date: Dec:2001
    Location:
    Posts: 7,043
    . . .
    , .
    If you can read this, then you aren't "well" verclockd yet...!!!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |