В какой строке допущена ошибка в программке, написанной на языке PascalABC?
В какой строке допущена ошибка в программке, написанной на языке PascalABC? Программка обязана высчитывать корни квадратного уравнения при заданных значениях коэффициентов a, b, c. 1) program KvadrUravn; 2) var; 3) a, b, c, d, x1, x2: real; 4) begin; 5) readln (a, b, c); 6) d := b * b - 4 * a* c; 7) if d amp;gt;= 0 then begin 8) if d amp;lt;amp;gt; 0 then begin 9) x1 := (b + sqrt(d)) / (2 * a); 10) x2 := (-b + sqrt(d)) / (2 * a); 11) writeln(39;x1 = 39;, x1:4:2, 39;, х2 = 39;, х2:4:2); 12) end 13) else begin 14) x1 := -(b / 2 * a); 15) writeln (39;x = 39;, x1:4:2); 16) end; 17) end 18) else begin 19) writeln (39;Решений нет!39;); 20) end; 21) end. А) 5 б) 7 В)8 Г) 9
Задать свой вопрос1) program KvadrUravn; ошибки нет
2) var; ошибка, после var точка с запятой не ставится
3) a, b, c, d, x1, x2: real; оплошности нет
4) begin; ошибка, после begin точка с запятой не ставится
5) readln (a, b, c); ошибки нет
6) d := b * b - 4 * a* c;ошибки нет
7) if d gt;= 0 then begin ошибки нет
8) if d lt;gt; 0 then begin ошибки нет
9) x1 := (b + sqrt(d)) / (2 * a); ошибка, формула для вычисления корня не такая
10) x2 := (-b + sqrt(d)) / (2 * a); ошибки нет
11) writeln(x1 = , x1:4:2, , х2 = , х2:4:2); ошибки нет
12) end оплошности нет
13) else begin оплошности нет
14) x1 := -(b / 2 * a); оплошности нет
15) writeln (x = , x1:4:2); оплошности нет
16) end; оплошности нет
17) end оплошности нет
18) else begin ошибки нет
19) writeln (Решений нет!); ошибки нет
20) end; ошибки нет
21) end. ошибки нет
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.