Basic

poruka: 5
|
čitano: 846
|
moderatori: Lazarus Long, XXX-Man, vincimus
1
+/- sve poruke
ravni prikaz
starije poruke gore
16 godina
neaktivan
offline
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

Kažu da škola nije zatvor, a mi ni krivi ni dužni dobili 12 godina. Einstein je umro, Newton je umro, Tesla je umro, a ni ja se ne osjećam baš najbolje! Bolje ispasti budala nego iz aviona...
Poruka je uređivana zadnji put uto 11.5.2010 19:43 (Matatata krele od zanata).
 
0 0 hvala 0
16 godina
neaktivan
offline
Basic

nvm sinulo mi je da moze i <>

Kažu da škola nije zatvor, a mi ni krivi ni dužni dobili 12 godina. Einstein je umro, Newton je umro, Tesla je umro, a ni ja se ne osjećam baš najbolje! Bolje ispasti budala nego iz aviona...
 
0 0 hvala 0
16 godina
neaktivan
offline
Basic

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

Kažu da škola nije zatvor, a mi ni krivi ni dužni dobili 12 godina. Einstein je umro, Newton je umro, Tesla je umro, a ni ja se ne osjećam baš najbolje! Bolje ispasti budala nego iz aviona...
 
0 0 hvala 0
16 godina
neaktivan
offline
Basic

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.

Kažu da škola nije zatvor, a mi ni krivi ni dužni dobili 12 godina. Einstein je umro, Newton je umro, Tesla je umro, a ni ja se ne osjećam baš najbolje! Bolje ispasti budala nego iz aviona...
 
0 0 hvala 0
16 godina
offline
Basic

A da koristiš uredi?

Do why me key too - pročitaj ovo brzo :)
Moj PC  
1 0 hvala 0
1
Nova poruka
E-mail:
Lozinka:
 
vrh stranice