profile
Размещено 6 лет назад по предмету Информатика от gorky150Kirich

Написал программу, в конце второго оператора IF выдает ошибку, помогите пожалуйста.

PROGRAM URAVNENII;
VAR A,B,C,D,X1,X2 : REAL;
BEGIN
WRITELN ('ВВЕДИТЕ ЗНАЧЕНИЯ СТАРШЕГО (A) ВТОРОГО (B) И СВОБОДНОГО (С) ЧЛЕНОВ');
READLN (A,B,C);
D:= SQR(B)-4*A*C;
IF (D>=0)
THEN WRITE ('РЕШЕНИЯ СУЩЕСТВУЮТ');
IF (D>0)
THEN WRITELN ('И ИХ ДВА')
ELSE WRITELN ('И ОНО ВСЕГО ОДНО')
ELSE WRITELN ('РЕШЕНИЙ НЕ СУЩЕСТВУЕТ')
BEGIN
D:= SQR(B)-4*A*C;
IF (D>=0)
THEN B:= -B
X1:=(B+SQRT(D))/4*A
X2:=(B-SQRT(D))/4*A
WRITELN (X1,X2)
ELSE exit
end;
end.

  1. Ответ на вопрос
    Ответ на вопрос дан shavrinatv

    Ответ:

    Немного подправила.

    Объяснение:

    PROGRAM URAVNENII;

    VAR A,B,C,D,X1,X2 : REAL;

    BEGIN  

    WRITELN ('ВВЕДИТЕ ЗНАЧЕНИЯ СТАРШЕГО (A) ВТОРОГО (B) И СВОБОДНОГО (С) ЧЛЕНОВ');

    READLN (A,B,C);

    D:= SQR(B)-4*A*C;

    IF (D>=0)then

    begin  

    WRITE ('РЕШЕНИЯ СУЩЕСТВУЮТ');

    IF (D>0)THEN WRITELN (' И ИХ ДВА')

    ELSE WRITELN (' И ОНО ВСЕГО ОДНО');

    B:= -B;

    X1:=(B+SQRT(D))/4*A;

    X2:=(B-SQRT(D))/4*A;

    if D=0 then WRITELN ('X=',X1)

    else WRITELN ('X1=',X1,' X2=',X2);

    end

    ELSE WRITELN ('РЕШЕНИЙ НЕ СУЩЕСТВУЕТ');

    end.

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.