S7-300 cần sự chỉ bảo của các bậc tiền bối

[nmh_bk]

FUNCTION FC3 : VOID
TITLE = 'giai phuong trinh bac 2 a*x^2+b*x+c=0'
//************************************************** *
VAR_INPUT
A : REAL;
B : REAL;
C : REAL;
END_VAR
VAR_TEMP
DELTA: REAL;
END_VAR
VAR_OUTPUT
VO_NGHIEM: BOOL;
X1 : REAL;
X2 : REAL;
END_VAR;
//************************************************** *
DELTA:=B*B-4*A*C;
IF DELTA <0 THEN VO_NGHIEM:=TRUE;
ELSIF DELTA =0 THEN X1:=-B/(2*A);X2:=-B/(2*A);
ELSE
X1:=(-B+SQRT(DELTA))/(2*A);
X2:=(-B-SQRT(DELTA))/(2*A);
END_IF;
//************************************************** *
END_FUNCTION