История изменений
Исправление tailgunner, (текущая версия) :
А на Оккаме это было бы как-то так:
PROC solve(CHAN OF float ch_a, ch_b, ch_c, ch_x1, ch_x2)
FLOAT a, b, c, d
SEQ
PAR
ch_a ? a
ch_b ? b
ch_c ? c
PAR
t1 := b*b
t2 := 4*a*c
d := t1-t2
PAR
ch_x1 ! (-b + sqrt(d))/(2*a)
ch_x2 ! (-b - sqrt(d))/(2*a)
Исправление tailgunner, :
А на Оккаме это было бы как-то так:
PROC solve(CHAN OF float ch_a, ch_b, ch_c, ch_x1, ch_x2)
FLOAT a, b, c, d
SEQ
PAR
ch_a ? a
ch_b ? b
ch_c ? c
PAR
t1 := b*b
t2 = 4*a*c
d := t1-t2
PAR
ch_x1 ! (-b + sqrt(d))/(2*a)
ch_x2 ! (-b - sqrt(d))/(2*a)
Исходная версия tailgunner, :
А на Оккаме это было бы как-то так:
PROC solve(CHAN OF float ch_a, ch_b, ch_c, ch_x1, ch_x2)
FLOAT a, b, c, d
SEQ
PAR
ch_a ? a
ch_b ? b
ch_c ? c
PAR
t1 := b*b
t2 = 4*a*c
d := t1-t2
PAR
ch_x1 ! (-b + sqrt(d))/2*a
ch_x2 ! (-b - sqrt(d))/2*a