Autor Wątek: Wielokąt foremny w BASIC'u  (Przeczytany 8101 razy)

Gelip

  • *****
  • Wiadomości: 765
    • Sysprep WinXP SP2 64-bit for pure UEFI with ACPI, AHCI, NVMe, USB 3.x
Wielokąt foremny w BASIC'u
« dnia: 2020.09.13, 06:34:18 »
Potrzebuję narysować ośmio lub sześciąkąt foremny w BASIC'u mając jako dane ilość kątów i długość przekątnej, natomiast szukane to długość odcinka a - patrz załącznik.
W instrukcji od swojego klona ZX znalazłem taki programik, który pyta o ilość kątów i rysuje wzorek. Interesuje mnie pierwszy krok tego programu oraz jak go poprawić aby wprowadzić długość przekątnej a program obliczy długość odcinka a.
"Byte" Personal Computer
Брестское ПО средств вычислительной техники

KWF

  • *****
  • Wiadomości: 6823
  • Miejsce pobytu:
    trzecia planeta od Słońca
  • "I co ja robię tu, u-u, co Ty tutaj robisz ..."
    • Insta do lasownia
Odp: Wielokąt foremny w BASIC'u
« Odpowiedź #1 dnia: 2020.09.13, 07:23:14 »
Okrąg opisany na wielokącie foremnym,
R = a / [2 x sin (pi/n)]
gdzie:
R - promień okręgu opisanego na wielokącie
a - długość boku wielokąta
n - ilość boków wielokąta 
KWF
-----
R Tape loading error 0:1
Moje zabawki: https://github.com/McKlaud76

Gelip

  • *****
  • Wiadomości: 765
    • Sysprep WinXP SP2 64-bit for pure UEFI with ACPI, AHCI, NVMe, USB 3.x
Odp: Wielokąt foremny w BASIC'u
« Odpowiedź #2 dnia: 2020.09.13, 08:01:33 »
Okrąg opisany na wielokącie foremnym,
R = a / [2 x sin (pi/n)]
gdzie:
R - promień okręgu opisanego na wielokącie
a - długość boku wielokąta
n - ilość boków wielokąta
Wzór na długość boku to jest choćby i na Wiki:
a=2*R*sin (PI/n)

Bardziej interesuje mnie strona programowa w BASIC
"Byte" Personal Computer
Брестское ПО средств вычислительной техники

Gelip

  • *****
  • Wiadomości: 765
    • Sysprep WinXP SP2 64-bit for pure UEFI with ACPI, AHCI, NVMe, USB 3.x
Odp: Wielokąt foremny w BASIC'u
« Odpowiedź #3 dnia: 2020.09.13, 09:11:17 »
OK, posiedziałem trochę przy porannej kawie i jest to co chciałem :-)

Na początku program pyta, oblicza co trzeba i wyświetla na ekranie a na końcu rysuje wielokąt, opisuje okrąg na nim i zaznacza promień.

Nie wiem tylko dlaczego przy ilości boków 11 czy 22 nie rysuje ostatniego boku.
« Ostatnia zmiana: 2020.09.13, 10:13:49 wysłana przez Gelip »
"Byte" Personal Computer
Брестское ПО средств вычислительной техники