Eto ljudi u skoli radimo u basicu, koristimo fb, i fbedit, i sad nisam siguran kako koristiti logicki operator not, sve u svemu imam varijablu a i b, i sad imam neke petlje itd, kad zavrsim postacu kod, nista posebno, i sad ja pisem a not b i nece pa nezz kaj sad malo sam surfo al nisam nasao pa da eto pitam ovdje
- +/- sve poruke
- ravni prikaz
- starije poruke gore
nvm sinulo mi je da moze i <>
usput obecao sam kod pa eto
prfoesor je rekao da se zove Top3 - poreda 3 unesena broja po redu :S
Dim As String dailine
Dim As Single a,b,c,pom
cnj:Input "Unesite prvi od 3 broja: ";a
Input "Drugi: ";b
Input "i treci: ";c
pom=0
If a=b And b=c Then
Print " "
Print "Sva tri broja su jednaka"
Print " "
GoTo znj
ElseIf a=b And b <> c Then
If a>c Then
Print " "
Print "Dva broja su jednaka, a poredak je ovakakv:";a
Print "a razliciti od druga dva je:";c
GoTo znj
Else
Print " "
Print "Dva broja su jednaka, a poredak je ovakakv:";c
Print "a onaj drugi broj je:";a
GoTo znj
EndIf
ElseIf a <> b And b=c Then
If a>b Then
Print " "
Print "Dva broja su jednaka, a poredak je ovakakv:";a
Print "A manji od ta dva broja je";b
GoTo znj
Else
Print " "
Print "Dva broja su jednaka, a poredak je ovakakv:";b
Print "A manji od dva broja je";a
GoTo znj
EndIf
EndIf
If a>b And b>c Then
a=a
b=b
c=c
EndIf
If a>b And c>b Then
If a>c Then
pom=b
b=c
c=pom
ElseIf c>a Then
pom=a
a=c
c=b
b=pom
EndIf
EndIf
If b>a And b>c Then
If a>c Then
pom=a
a=b
b=pom
c=c
Else
pom=a
a=b
b=c
c=pom
EndIf
EndIf
If c>b And b>a Then
pom=a
a=c
b=b
c=pom
EndIf
Print " "
Print "-----------------"
Print "Najveci je";a
Print "-----------------"
Print "Srednji je";b
Print "-----------------"
Print "Najmanji je";c
Print "-----------------"
GetKey
Cls
znj:Input "Zelite li jos provjeravati Top3";dailine
If dailine="da" Then
cls
GoTo cnj
Else
Cls
Print "Aj bok!"
endif
GetKey
:D
u fb-u to bolje izgleda i znam da sam mogo jednostavnije i bez nekih koraka kao b=b :S al to mi je za laksu provjeru bilo pa nisam poslije micao.
A da koristiš uredi?