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
2462
Vastaukset
- 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
Useita puukotettu Tampereella
Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht2474639Kuka rääkkää eläimiä Puolangalla?
Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii773086- 472473
- 281813
Meneeköhän sulla
oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua451777- 811470
Lähetä terveisesi kaipaamallesi henkilölle
Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘851295PS uusimman gallupin rakettimainen nousija
https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden143965- 69958
Sellainen tunne sydämessä
Että nainen olet kaivannut minua. Tai sanonko että oikeastaan koet sitä samaa nostalgiaa, kaipuuta ja mukavia muistoja,86894