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

589

Ää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. Persut eivät ole kertoneet euronkaan edestä säästökohteita

      Mutta änkyttävät kysellä niistä muilta jatkuvasti. Vaikuttaa ettei persuilla ole kykyä omaan ajatteluun ja päätöksenteko
      Maailman menoa
      274
      3477

    2. 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
      128
      1852

    3. Israel euroviisujen 2.

      Israel sai taas eniten yleisöääniä. Suomesta täydet 12 pistettä, poliittinen ”ammattiraati” antoi 0 pistettä. Hyvä Is
      Luterilaisuus
      297
      1605

    4. Persujen puoluekokous 2026

      Missä ja Milloin pidetään ?
      Maailman menoa
      77
      1462

    5. Vältelläänkö me molemmat toisiamme??

      😘
      Ikävä
      77
      1436

    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ä
      200
      1140

    7. Odotettu tulos Taivalvaaran hiihtokeskuksen osalta

      "MCS Finland Oy on ilmoittanut Taivalkosken kunnalle 30.4.2026, että se irtisanoo Taivalkosken kunnan ja MCS Finland Oy:
      Taivalkoski
      53
      1136

    8. Mikä se viehättävin

      Asia on kaivatussasi?
      Ikävä
      63
      1021

    9. Tiedän satavarmasti ettet tule koskaan

      Uskaltamaan mitään. Ei me tulla edes näkemään koskaan.
      Ikävä
      22
      997

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