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

592

Äänestä

    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ä.

    Takaisin ylös

    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
      281
      2946

    2. Veroaste on Suomessa viitisen prosenttiyksikköä liian matala

      Veropohjaa on rapautettu käytännössä koko kulunut vuosituhat, jonka vuoksi valtion menoja on jouduttu rahoittamaan velka
      Maailman menoa
      58
      2338

    3. Israel euroviisujen 2.

      Israel sai taas eniten yleisöääniä. Suomesta täydet 12 pistettä, poliittinen ”ammattiraati” antoi 0 pistettä. Hyvä Is
      Uskonnot ja uskomukset
      348
      2007

    4. Persujen puoluekokous 2026

      Missä ja Milloin pidetään ?
      Maailman menoa
      115
      1747

    5. 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
      126
      1709

    6. 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ä
      212
      1375

    7. Tiedän satavarmasti ettet tule koskaan

      Uskaltamaan mitään. Ei me tulla edes näkemään koskaan.
      Ikävä
      66
      1327

    8. Mikä kaivatussasi

      Viehättää ulkoisesti ja mikä sisäisesti?
      Ikävä
      59
      1263

    9. Mikä se viehättävin

      Asia on kaivatussasi?
      Ikävä
      68
      1253

    10. 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ä
      78
      1203
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt