Mikä tässä koodissa pistää teitä silmään?

Anonyymi-ap

// Muuttujat kulmille
let α, β, γ; // α = kulma A, β = kulma B, γ = hypotenuusan kulma (90°)

const calculateAngles = (a, b, c) => {
  α = Math.asin(a / c) * (180 / Math.PI); // Kulma A
  β = Math.asin(b / c) * (180 / Math.PI); // Kulma B
  γ = 90; // hypotenuusan kulma on 90°
};

5

590

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Pystyykö muuttujan nimi olemaan ASCII:n ulkopuolelta?

      • Anonyymi

        Näköjään. Aika veemäistä kyllä naputella tuollaisia tavallisella näppiksellä. Kosketusnäytöllä hieman helpompaa.


    • Anonyymi00004

      Koodi on javaa, kun sen pitäisi olla vbs:ässää. Kiva varmaan etsiä noita kärpäsen paskoja (}) isommasta koodista.

    • Anonyymi00005

      Dim angles

      angles = calculateAngles(Empty , 0.5, 1)
      MsgBox("kulma A: " & Fix(angles(0)) & vbNewLine & "kulma B: " & Fix(angles(1)) & vbNewLine & "kulma C: " & angles(2))

      angles = calculateAngles(Sqr(0.75), Empty, 1)
      MsgBox("kulma A: " & Fix(angles(0)) & vbNewLine & "kulma B: " & Fix(angles(1)) & vbNewLine & "kulma C: " & angles(2))

      angles = calculateAngles(Sqr(0.75), 0.5, Empty)
      MsgBox("kulma A: " & Fix(angles(0)) & vbNewLine & "kulma B: " & Fix(angles(1)) & vbNewLine & "kulma C: " & angles(2))

      Function calculateAngles(side_adjacent, side_opposite, side_hypotenuse)
      ' Muuttujat kulmille
      Dim angle_A, angle_B, angle_C ' angle_A = kulma A, angle_B = kulma B, angle_C = hypotenuusan kulma (90°)
      Dim ratio_opposite_hypotenuse, ratio_adjacent_hypotenuse, ratio_opposite_adjacent
      Dim radians_to_degrees
      radians_to_degrees = 180 / (4 * Atn(1))

      If Not(IsEmpty(side_opposite)) And Not(IsEmpty(side_hypotenuse)) Then
      ratio_opposite_hypotenuse = side_opposite / side_hypotenuse
      angle_A = (Atn(ratio_opposite_hypotenuse / Sqr((-ratio_opposite_hypotenuse * ratio_opposite_hypotenuse) + 1))) * radians_to_degrees
      angle_B = 90 - angle_A
      ElseIf Not(IsEmpty(side_adjacent)) And Not(IsEmpty(side_hypotenuse)) Then
      ratio_adjacent_hypotenuse = side_adjacent / side_hypotenuse
      angle_A = (Atn(-ratio_adjacent_hypotenuse / Sqr((-ratio_adjacent_hypotenuse * ratio_adjacent_hypotenuse) + 1)) + 2 * Atn(1)) * radians_to_degrees
      angle_B = 90 - angle_A
      ElseIf Not(IsEmpty(side_opposite)) And Not(IsEmpty(side_adjacent)) Then
      ratio_opposite_adjacent = side_opposite / side_adjacent
      angle_A = Atn(ratio_opposite_adjacent)* radians_to_degrees
      angle_B = 90 - angle_A
      End If

      angle_C = 90
      calculateAngles = Array(angle_A, angle_B, angle_C)

      End Function

    • Anonyymi00006

      Mitä tulee aloitukseen.

      Rivin
      β = Math.ASIN(b / c) * (180 / Math.PI); // Kulma B

      Pitäisi olla
      β = Math.ACOS(b / c) * (180 / Math.PI); // Kulma B

    Ketjusta on poistettu 1 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Työeläkeloisinta Suomen suurin talousongelma

      Työeläkeloisinta maksaa vuodessa lähes 40 miljardia euroa, josta reilut 28 miljardia on pois palkansaajien ostovoimasta.
      Maailman menoa
      166
      2120
    2. Israel euroviisujen 2.

      Israel sai taas eniten yleisöääniä. Suomesta täydet 12 pistettä, poliittinen ”ammattiraati” antoi 0 pistettä. Hyvä Is
      Uskonnot ja uskomukset
      311
      1803
    3. Persujen puoluekokous 2026

      Missä ja Milloin pidetään ?
      Maailman menoa
      93
      1587
    4. Euroviisut ei enää niin musiikkikilpailu?

      Kappaleiden taso ei enää ole mikä sijoituksen ratkaisee.Eikö kukaan ihmettele että Israel pärjää lähes joka vuosi kisois
      Maailman menoa
      82
      1258
    5. Mun mielestäni on tosi loukkaavaa

      Nainen, että luulet palatan typeriä, sekavia ja ilkeitä viestejä mun kirjoittamiksi. Mä en ole katkera, epätoivoinen, ra
      Ikävä
      200
      1220
    6. Mikä se viehättävin

      Asia on kaivatussasi?
      Ikävä
      67
      1170
    7. Tiedän satavarmasti ettet tule koskaan

      Uskaltamaan mitään. Ei me tulla edes näkemään koskaan.
      Ikävä
      25
      1091
    8. Mikä kaivatussasi

      Viehättää ulkoisesti ja mikä sisäisesti?
      Ikävä
      48
      1027
    9. Rakas nainen ymmärsin

      Että minun pitää pitää kiinni sinusta. Haluan, että sä olet onnellinen. Olet mulle se oikea ja mä sulle. Rakastan Sua yl
      Ikävä
      73
      986
    10. Maalaisliiton nuorilta paljon puhuva idea

      Taas vongataan lisää tukea... kehdosta hautaan! Maalaisliiton nuoret aka Keskustanuoret haluaa Suomeen valtiollisen dei
      Maatila ja metsä
      24
      972
    Aihe