laittasko joku ystävällinen mulle nelilaskimen
(yhteen, kerto, vähennys, jako)koodin?? C :lla
tehtynä...olisin erittäin kiitollinen!!!
nelilaskin
ei osaa eikä toimi
7
2529
Vastaukset 7
- ei osaa eikä toimi
olen saanut sen toimimaan vain siten, että se
laskee(yhteen, vähnetää, kertoo, jakaa) aina vain
kaksi lukua. Miten sen saisi tehtyä niin, että
lukuja voisi laskea n-määrän yhteen?- Itsekin joskus..
www.fi.pampersdiscoveryshop.com/15storefront.asp
- Anonyymi
Ei nelilaskimessa lasketa kuin kaksi lukua kerrallaan.
- nörtti
jollakin do-while lausekkeella se onnistuu,
alusta yhteenlaskettavat nolliksi siitä voi olla
myös hyötyä...- ei osaa eikä toimi
oon kokeillu do-while....mutta pitäiskö olla
jotenkin niin, että luku=n; ja esim. n olis
suurempi kuin 1...vai pitääkö siihen määritellä
erikseen nappulat ( , - ,* , /)? Ja tulos olis
enter...mie tuun ihan koht hulluks.... - nörtti
ei osaa eikä toimi kirjoitti:
oon kokeillu do-while....mutta pitäiskö olla
jotenkin niin, että luku=n; ja esim. n olis
suurempi kuin 1...vai pitääkö siihen määritellä
erikseen nappulat ( , - ,* , /)? Ja tulos olis
enter...mie tuun ihan koht hulluks....teetkö sä sen homman pinolla? jos et ni sit ei oo
hajuakaan. jos teet ni alustat vaan 2 inttii
nollaks ja sitten do-whilen sisällä poppaat ne ja
lasket yhteen (toisessa funktiossa vähennät
kerrot jne...)
- mie
<html>
<head>
<title>
Nelilaskin: VBScript
</title>
</head>
<body bgcolor="#FFFFFF">
<p> </p>
<form method="POST" name=MyForm>
<p><input type="text" size="10" name="T1">TextBox
T1</p>
<p><input type="text" size="10" name="T2">TextBox
T2</p>
<p><select name="D1" size="1">
<option selected
value="1">Yhteenlasku</option>
<option selected
value="2">Vähennyslasku</option>
<option selected
value="3">Kertolasku</option>
<option selected
value="4">Jakolasku</option>
</select>
</p>
<p><input type="button" name="B1" value="Laske"
OnClick=laskenta language="VBScript">
<p><input type="reset" name="B2"
value="Tyhjennä"></p>
<p> </p>
' - komennolla saadaan blankkoja
<script language="VBScript">
sub laskenta
dim a, b, c, d, e, f
a = document.MyForm.T1.Value
b = document.MyForm.T2.Value
c=document.MyForm.D1.selectedIndex
if (not isnumeric(a)) then
msgbox("Lukujen oltava
numeerisia")
else
if (not isnumeric(b)) then
msgbox("Lukujen oltava
numeerisia")
else
d = cint(a)
e = cint(b)
if (c=0) then
f = d e
msgbox
("Yhteenlaskun tulos =" & f)
else
if (c=1) then
f = d - e
msgbox
("Vähennyslaskun tulos =" & f)
else
if (c=2)
then
f
= d * e
msgbox("Kertolaskun tulos =" & f)
else
if (c=3) then
f
= d / e
msgbox("Jakolaskun tulos =" & f)
end if
end if
end if
end if
end if
end if
end sub
</script>
</html>
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Ampuminen kylpylässä
Onko vornasen timbe käynyt hiukan kylpemässä vai mikä tämä ampumatapaus on kylpylässä? Tuntuu aika villi meno olevan naa751749- 241226
Kemijärvellä vesionnettomuus
Pitkänsillan ja taiteilijanniemen välillä nähty henkilön painuvan veden alle. Mitä on tapahtunut? Onko vesihiisi taas as341122Hei, voitko kuunnella
Voisitko auttaa minua selvittämään asioita? En halua ajaa sinua hulluuteen kanssani, en sitoa sinua, en esittää vaatimu135933Joku porukka lähtenyt täältä
Ihmeen hiljainen on palsta nyt. Yleensä tänne tulvii aloituksia yms, mutta nyt on kyllä erikoisen hiljaista.189836- 64704
- 77642
Olipa yllätys
Kuten hyvin moni tiesi/arvasi että valetta alusta loppuun toi *olemme ystäviä* satu. Instassaan käsi kädessä kuva kertoo192629On todella ikävää
Todella ikävää, että asiat ovat menneet tällaisiksi. Tämä ei ollut missään vaiheessa tarkoitukseni. Olen tehnyt virheit79608- 49581
Se kun olit pitkästä aikaa silmieni edessä
Oli kyllä sykähdyttävää. Tiedätkö, mikä laittaa minut ikävöimään sinua? Kun palautan mieleeni valtavan ihanan olemuksen,32528- 55517
- 57502
- 36484
Oletteko koskaan torjuneet kaivattuanne?
Minä olen, kun en silloin tajunnut vielä ihastuneeni. Yritin paikata tapahtunutta, mutta ei onnistunut enää.25457Kai sä mies ymmärrät..
..ettet jättänyt vaihtoahtoa. Tottakai toivon vielä, että pystyisit toimimaan niin että asiat korjaantuisivat. Vahvast28432- 33423
- 40417
- 17417
- 82398