Results 1 to 5 of 5
Thread: !
Hybrid View
-
2nd June 2004 10:47 #1If you can read this, then you aren't "well" verclockd yet...!!!
-
2nd June 2004 12:08 #2
qbasic ... :bua:
, ?
, 10 - , 10- , ...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
-
2nd June 2004 12:33 #3
.
:
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
RETURNIf you can read this, then you aren't "well" verclockd yet...!!!
-
2nd June 2004 13:10 #4
.

, (
) ... (
) , , ..
:
, !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
-
2nd June 2004 13:25 #5
. .
.
,
.
If you can read this, then you aren't "well" verclockd yet...!!!




Reply With Quote
R9 280,
7th May 2023, 21:28 in