laittasko joku ystävällinen mulle nelilaskimen
(yhteen, kerto, vähennys, jako)koodin?? C :lla
tehtynä...olisin erittäin kiitollinen!!!
(yhteen, kerto, vähennys, jako)koodin?? C :lla
tehtynä...olisin erittäin kiitollinen!!!
nelilaskin
ei osaa eikä toimi
72535
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 7
Vanhimmat
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?
www.fi.pampersdiscoveryshop.com/15storefront.asp
Ei nelilaskimessa lasketa kuin kaksi lukua kerrallaan.
jollakin do-while lausekkeella se onnistuu,
alusta yhteenlaskettavat nolliksi siitä voi olla
myös hyötyä...
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...)
<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>