построить алгоритм и написать программу вычисления значения функции на языке 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

А какую ошибку выдает?

Пишет ELSE без IF
END без IF
индекс вне диапозона

Что я уже только не пыталась переделывать все равно так пишет.

1. Текстовые константы всегда в кавычки берутся. В том числе и те, которые в операторах PRINT.

2. В выражениях для X1 и X2 закрывающей скобки не хватает. (Кстати, там перед B "минуса" случайно нет по условию?..)

3. Тела блоков THEN / ELSE нужно с новой строчки начинать:

Т.е. EXP нужно брать в кавычки или я не правильно поняла?

Да,простите,пропустила,а минуса там нет,условие такое как я написала.

Неправильно (IMG:style_emoticons/default/smile.gif) Я имел в виду текст "функция не определена" в операторах PRINT.

Все равно пишет "Индекс вне диапозона".А что это означает???

Какие значения A, B и C Вы вводите?

Ввела А=2,В=4,С=3,оно мне посчитало X=0?Z=0
Когда ввожу другие значения,выдает мне "Индекс вне диапозона"

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

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

Спасибо большое получилось,посчитало.