zadatak u qbasic-u

[Michel]

Hvala svima na odgovorima u prvom threadu bili ste od velike pomoći. Bio sam na ispitu i riješio nešto pozitivno , a za konačni prolaz sam dobio riješiti doma jedan zadatak koji moram odnijet u profesora i doć po ocjenu.
Zadatak je sljedeći:

Omogučiti programu da se unesu dva broja, i onaj koji je od ta dva veći program treba izračunat sinx , a onome koji je manji kosinus.
Uglavnom bez obzira bio veći a% ili b% svakako od toga većeg treba dobiti sinx.
Problem mi nastaje sto taj sinx dobijem u radijanima, i treba mi pomoć kako ga prebacit u stupnjeve. Puno hvala
E da i ako mi netko može riješiti cijeli zadatak tako da ga mogu samo prepisati i da radi, jer sam se izgubim u njemu.

[munst0r]

Autor Michel

Hvala svima na odgovorima u prvom threadu bili ste od velike pomoći. Bio sam na ispitu i riješio nešto pozitivno , a za konačni prolaz sam dobio riješiti doma jedan zadatak koji moram odnijet u profesora i doć po ocjenu.
Zadatak je sljedeći:

Omogučiti programu da se unesu dva broja, i onaj koji je od ta dva veći program treba izračunat sinx , a onome koji je manji kosinus.
Uglavnom bez obzira bio veći a% ili b% svakako od toga većeg treba dobiti sinx.
Problem mi nastaje sto taj sinx dobijem u radijanima, i treba mi pomoć kako ga prebacit u stupnjeve. Puno hvala
E da i ako mi netko može riješiti cijeli zadatak tako da ga mogu samo prepisati i da radi, jer sam se izgubim u njemu.

Pretvorbu iz radijana u stupnjeve radis po jednostavnoj formuli:

stupnjevi = radijani * (180 / pi)

(pi = 3.14159265...)


npr:

1 rad = 1 * 180 / 3.14159265 = 57.2958 stupnjeva

[munst0r]

E da... sad kada sam ponovo procitao ono sto si napisao, uvidjeh da tebi ustvari ne treba formula za pretvorbu iz radijana u stupnjeve, nego formula za pretvorbu iz stupnjeva u radijane...

Ta formula glasi:

radijani = stupnjevi * (pi / 180)

Naime, pretpostavljam da ce ovi kutovi a i b biti zadani u stupnjevima, a funkcije SIN i COS u QBASICu primaju radijane. Dakle, ti prvo trebas zadane stupnjeve pretvoriti u radijane te ih zatim predati funkciji da izracuna sinus, tj. kosinus.


"Problem mi nastaje sto taj sinx dobijem u radijanima".

Sinus nekog kuta ne moze biti u radijanima, niti u stupnjevima. Sinus, kosinus i ekipa su brojevi koji nemaju svoju jedinicu. Dakle, mozemo reci da sinus nekog kuta iznosi 0.32532 NICEGA.

Nadalje, ako znamo da je sinus nekog kuta 0.32532 onda mozemo jednostavno izracunati da taj kut iznosi nesto malo manje od 19 stupnjeva, odnosno 0.33 radijana.
Pomocu jedne od gore navedenih formula za pretvorbu iz stupnjeva u radijane (i obrnuto) mozes provjeriti da su to isti kutevi.


No, pustimo sad matematiku na miru...

Evo rjesenja programa:
(Moram napomenuti da ja nisam taknuo qbasic od osnovne skole te da je moguce da mi se potkrala neka sintaksna pogreska... ako mi netko nadje logicku pogresku u ovakvom zadacicu, odmah skacem kroz prozor... )

CLS
INPUT "Unesi prvi kut: ", a
INPUT "Unesi drugi kut: ", b

radA = a * (180 / pi)
radB = b * (180 / pi)

IF a > b THEN
sinus = SIN(radA)
kosinus = COS(radB)
ELSE
sinus = SIN(radB)
kosinus = COS(radA)
END IF

PRINT "Sinus veceg kuta iznosi"; sinus
PRINT "Kosinus manjeg kuta iznosi"; kosinus

U zadatku nije napomenuto sto treba napraviti ukoliko su brojevi a i b jednaki te ovaj program radi pod pretpostavkom da se nece zadavati jednaki a i b...

Nego, tebi ovo treba za faks? I izgubis se u ovakvom zadacicu? Ok, ili si lijen ko dupe, ili se za***avas...
I kako to da uopce radite u qbasicu na faksu? Jer, ovo je zadatak za peti razred osnovne skole (ne lazem, sestricna ga je upravo zavrsila)...

[Michel]

Ma prave stvari radimo u elektrotehnici elektronikama , digitalnim sustavima itd. Od programiranja nismo p vidili. ( Vidi se iz priloženog ) Puno hvala na pomoći

[Michel]

ups . Zadatak ne radi dobro. Ne znam jesam li ja što pogriješio pls ispravi me :P
cls
input " unesi prvi kut ", a
input " unesi drugi kut ", b

radA = a * (180/3.1415)
radB = b * (180/3.1415)

if a > b then
sinus = sin(radA)
kosinus = cos(radB)
else
sinus = sin(radB)
kosinus = cos(radA)
end if
Print "sinus veceg kuta je "; sinus
print "kosinus veceg kuta je "; kosinus
end

-------------------------------------------
Problem je što riješenja ispadaju pogrešna. Pretpostavljam da ova formula ne valja za pretvorbu u stupnjeve. Help pls

[munst0r]

Ma... u postu napisem dobru formulu i onda u program uvrstim krivu...

Evo, ovo ce sada raditi:

CLS
INPUT "Unesi prvi kut: ", a
INPUT "Unesi drugi kut: ", b

pi = 3.1415
radA = a * (pi / 180)
radB = b * (pi / 180)

IF a > b THEN
sinus = SIN(radA)
kosinus = COS(radB)
ELSE
sinus = SIN(radB)
kosinus = COS(radA)
END IF

PRINT "Sinus veceg kuta iznosi"; sinus
PRINT "Kosinus manjeg kuta iznosi"; kosinus

[Michel]

Tnx extra much :P

[Campeonato]

Trebam pomoc...
Pisem neki zadatak u qbasicu u skoli, pa ako bi mi netko mogao pomoci...
Imam 1 sat...

Evo zadatci idu ovako:
1. zadatak:
Napisi program u kojem se ucitava vrijednost 5 brojeva. treba izracunati i ispisati njihov zbroj, umnozak ili aritmeticku sredinu, ovisno o zelji korisnika. (koristi ON...GOTO naredbu)

2. zadatak:
Napisi program koji za zadane stranice trokuta a,b i c izracunava povrsinu trokuta po Heronovoj formuli P=pod korijenom: s(s-a)(s-b)(s-c), gdje je s polovica opsega trokuta...

Pomozite please...


EDIT: dobio sam tri iz zadatka, men dosta...
Hvala na pomoci...

[mala_slatkica]

Ej, dragi moji! Ja sam nova korisnica Visual Basica, tako da nisam baš u dobrim odnosima s rješavanjem tih zadataka.... Ako mi itko može pomoć oko ovog zadatka, ja bi mu bila jako zahvalna.. Naime, radi se o ovakvom zadatku:

1. Učitati prirodan broj pa ispisati njegov drugi i četvrti korijen.

Unaprijed Vam zahvaljujem!!!!

[markaV]

Autor mala_slatkica

Ej, dragi moji! Ja sam nova korisnica Visual Basica, tako da nisam baš u dobrim odnosima s rješavanjem tih zadataka.... Ako mi itko može pomoć oko ovog zadatka, ja bi mu bila jako zahvalna.. Naime, radi se o ovakvom zadatku:

1. Učitati prirodan broj pa ispisati njegov drugi i četvrti korijen.

Unaprijed Vam zahvaljujem!!!!

Kad se zoves mala_statkica onda ti ljudi pomazu !

Prvo da pitam dali je u pitanju QBasic ili VisualBasic. Vjerojatno si mislila na Qbasic. Ako je u pitanju VB.NET pomoci cu ti.

[mala_slatkica]

A hvala... Ima velikih razlika između QBasic i Visual Basic???? Program u kojem ja radim zove se Visual Basic..

[Baja 001]

Autor mala_slatkica

A hvala... Ima velikih razlika između QBasic i Visual Basic???? Program u kojem ja radim zove se Visual Basic..

Naravno da ima. Je li ti treba program imati Windows interface (pošto si u Visual Basicu) ili može biti program DOS sučelja (command prompt)?

[markaV]

ajd nadji kako se racuna korijen i 4-ti koruijen iz brojeva. Idem sada na misu, pa cemo ti navecer napraviti u Vb.Net-u. pozz

[Baja 001]

Autor markaV

ajd nadji kako se racuna korijen i 4-ti koruijen iz brojeva. Idem sada na misu, pa cemo ti navecer napraviti u Vb.Net-u. pozz

Može na 2 načina:
1. sqrt (x) = y
2. x^1/2

Za četvrti nisam siguran, ali onda može x^1/4


BTW mislim da nije spomenila VB.net, to je obično školski primjeri na VB6

[mala_slatkica]

Ajoj, ja bi vam rado odgovorila da znam koje sučelje koristim... već sam rekla da nisam spretna kaj se tiče tih zadataka i inf. Al' u svakom slučaju hvala na pomoći

[markaV]

Autor Baja 001

Može na 2 načina:
1. sqrt (x) = y
2. x^1/2

Za četvrti nisam siguran, ali onda može x^1/4


BTW mislim da nije spomenila VB.net, to je obično školski primjeri na VB6

evo onda ti je covijek sve rekao.
-dovuci dva textboxa i jednu tipku
-napravi dogadjaj klik na tipku(dvoklikni na nju) i unesi kod

________________
drugi korijen
________________
Dim Broj as integer
Dim Korijen as integer
Broj =texBox1.Text
Korijen=sqrt (Broj)
TextBox2.Text = Korijen
________________
Dao ti je i formulu za cetvrti korijen..postupak isti...


za rezultat mozes koristiti i Label kontrolu ili grid pa da odmah srema i prijasnje rezultate u obliku novih rows-a.



Ja ne koristim Basic 6 pa nemam pojma dali to sqrt stvarno radi, ali znam da u C++ taj sqrt radi..

[mala_slatkica]

Ok, probala sam.. i dobro je.. HVALA VAM SVIMA PUNO..!! i kaj se tiče ovog sqrt, u Basic 6 radi sqr...

[markaV]

Autor mala_slatkica

Ok, probala sam.. i dobro je.. HVALA VAM SVIMA PUNO..!! i kaj se tiče ovog sqrt, u Basic 6 radi sqr...

[deejay magicman]

Molim nekoga da mi rjesi zadatak u q basicu...HITNO MI JE;LJEPO VAS MOLIM POMOZITE!!!

zadatak glasi:
Napiši program koji traži da unesemo današnji dan i iz toga izračuna koji je danas dan u godini (uzeti u obzir prestupne godine)

Pomozite molim vas.. HVALA UNAPRJED!!