Basic

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

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

A da koristiš uredi?