Это разве экзотика ? Вот экзотикаOlej писал(а): 2. ещё то же самое на 4-х более экзотических языках программирования:
- Go
- Scheme
- Scala
- Ocaml
Baik - скриптовый язык программирования (с динамической типизацией), созданный Mr. Harris Hasanuddin (Jakarta, Indonesia) для обучения языку сценариев с использованием индонезийского словарного запаса, для ОС Windows, Linux на серверах, ПК, ноутбуках и встроенных компьютерах.
https://www.facebook.com/BAIK-Scripting ... 054530076/
[polygon.ina]
Код: Выделить всё
tulis "Введите число вершин многоугольника:", "\n"
masuk v
untaian x[v]
untaian y[v]
perintah "clear"
tulis "Число вершин многоугольника: ", v, "\n"
tulis "Координаты вершин:\n"
untuk(i=0;i<v;i=i+1) ulang
tulis "Координаты X вершины ", i+1, ":", "\n"
masuk a
x[i] = a
tulis "Координаты Y вершины ", i+1, ":", "\n"
masuk b
y[i] = b
perintah "clear"
tulis "Число вершин многоугольника: ", v, "\n"
tulis "Координаты вершин:\n"
untuk(n=0;n<=i;n=n+1) ulang
tulis "Вершина-", n+1, " X=", x[n], " Y=", y[n], "\n"
lagi
lagi
untuk (i=0; i<n; i++) ulang
j = (i + 1) % n
dl = (x[i] - x[j]) * (x[i] - x[j]) + (y[i] - y[j]) * (y[i] - y[j])
p = p + (akar dl)
s = s + x[i] * y[j] - x[j] * y[i]
lagi
kalau s < 0 maka
s = 0 - s
akhirkalau
s=s*0.5
tulis "Площадь = ", s,"\n"
tulis "Периметр = ", p,"\n"
tamat
Код: Выделить всё
$ ./baik9.2 -v
BAIK (Bahasa Anak Indonesia untuk Komputer) versi 9.2
Optimized for Web and GPIO robot controlling
Copyright Haris Hasanudin 2005-2016
$ ./baik9.2 polygon.ina
Число вершин многоугольника: 3
Координаты вершин:
Вершина-1 X=-1 Y=0
Вершина-2 X=0 Y=1
Вершина-3 X=1 Y=0
Площадь = 1.00
Периметр = 4.83
$ ./baik9.2 polygon.ina
Число вершин многоугольника: 4
Координаты вершин:
Вершина-1 X=1 Y=1
Вершина-2 X=1 Y=2
Вершина-3 X=2 Y=2
Вершина-4 X=2 Y=1
Площадь = 1.00
Периметр = 4.00