Скачать: CL | DM;

На каком языке это написано?   Найти похожие ветки 

← →
AK-74 ©   (2003-02-25 01:28) [0]

i=k
do while i>0
if ind[i+1]-ind[i]>1
ind[i]++
end if
do while ind[i+1]-ind[i]>1
ind[i+1]=ind[i]+1
i++
end do
do while ind[i]<=L+i-k
mul = 1
for j=1 to k
mul *= m[ind[j]]
next
sum+=mul
ind[i]++
end do
ind[i]--
i--
end do

---

← →
Мазут Береговой   (2003-02-25 01:47) [1]

Похоже на Fortran, хотя и не уверен. Я его последний раз в институте видел в 1993 г.

---

← →
AK-74 ©   (2003-02-25 01:59) [2]

Нет, в Фортране, например, цикл for:
DO 1 J=1,K
и IF там по-другому, и метки должны быть, и много еще чего...

---

← →
Мазут Береговой   (2003-02-25 02:41) [3]

Может Бэйсик? Только скобки квадратные смущают. Точно! End If, End Do в бэйсике. Может самый первый бэйсик?

---

← →
PVOzerski ©   (2003-02-25 03:07) [4]

Это вряд ли бэйсик, там ++, *= и т.п. не бывает. IMHO, это запросто может быть макроязык из какой-нибудь проги. Хотя и какой-то менее известный универсальный - тоже. А вот квадратные скобки как синоним круглых некоторые диалекты бэйсика допускают.

---

← →
Darts   (2003-02-25 09:32) [5]

Clipper

---

← →
Delirium^.Tremens ©   (2003-02-25 09:40) [6]

Вьетнамский

---

← →
alxx ©   (2003-02-25 10:39) [7]

- Папа, а что такое диструбные гентроны?
- Где ты это вычитал?
- Это я сам напиал.

---

← →
DiamondShark ©   (2003-02-25 11:41) [8]

Похоже на Power Builder,
а может и какой ещё скриптовой язык.

Не томи душу, колись.

---

← →
CinCinNut ©   (2003-02-25 12:47) [9]

> Darts (25.02.03 09:32)

Точно Клиппер. только там enddo, endif слитно пишутся.

---

← →
Uncle Archi ©   (2003-02-27 21:43) [10]

Псевдокод.

---

← →
AK-74 ©   (2003-02-27 22:28) [11]

> Uncle Archi © (27.02.03 21:43)

Псевдокод?!?! %)
Приведенный кусок - это настоящий формальный компилируемый язык.

---

← →
wal ©   (2003-02-28 01:20) [12]

PL/m

---

← →
AK-74 ©   (2003-02-28 01:39) [13]

> wal © (28.02.03 01:20)

Какой PL/M ?!
Там ведь массивы с круглыми скобками, всякие точки-с-запятой, и т.д.

---

← →
Dudao++   (2003-02-28 03:44) [14]

мужики так это моё
Где этот кусок кода вы вытащили ?

---

← →
Skyle ©   (2003-02-28 04:46) [15]

Дык колитесь уже, какой язык..:)) Уже интересно стало..:)

---

← →
AK-74 ©   (2003-02-28 13:15) [16]

> Dudao++ (28.02.03 03:44)
Тогда чё не написал, на каком это языке и чё это делает?

---

← →
Mike B. ©   (2003-02-28 14:01) [17]

Это русский язык как государственный

---

← →
Странник ©   (2003-02-28 15:08) [18]

> CinCinNut © (25.02.03 12:47)
это Clipper, а end-ы как хошь так и пиши

---

← →
Leshiy ©   (2003-02-28 15:53) [19]

Ся

---

← →
Паша ©   (2003-02-28 16:21) [20]

Clipper, только смысл написанного от меня ускользает:) похоже на расчет "диструбных гентронов"?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.013 c