построить алгоритм и написать программу вычисления значения функции на языке Qbasic

X=(EXP(-X1)-EXP(-X2))/2 И Z=(A*SQRT(X1)-B*SQRT(X2))/C ,ГДЕ

X1=(B+SQRT(ABS(B^2-4*A*C))/(2*A);
X2=(B-SQRT(ABS(B^2-4*A*C))/(2*A)
программа

REM вычисление значения функции
INPUT "A,B,C";A,B,C
IF A=0 THEN PRINT функция не определена
ELSE
X1=(B+SQRT(ABS(B^2-4*A*C))/(2*A)
X2=(B-SQRT(ABS(B^2-4*A*C))/(2*A)
X=(EXP(-X1)-EXP(-X2))/2
PRINT "X=";X
END IF
IF C=0 THEN PRINT функция не определена
ELSE
Z=(A*SQRT(X1)-B*SQRT(X2))/C
PRINT "Z=";Z
END IF
END

Поменяйте везде SQRT на SQR Совсем забыл, что это - Бейсик, а не Фортран... (IMG:style_emoticons/default/smile.gif)

X1 и/или X2 могут получиться отрицательными. Какую-то проверку перед вычислением Z добавьте...