Информатика | 5 - 9 классы
Program Dr ; Var a, b, c, D, x1, x2 : Real ; Begin D : = b * b - 4 * a * c ; Read(a, b, c) ; if D< ; 0 Then Writeln ('корней нет') else if D = 0 then begin x : = - b / (2 * a) : Writeln(x) ; end ; else begin x1 : = ( - b - SQRT(D)) / (2 * a) ; x2 : = ( - b + SQRT(D)) / (2 * a) ; Writeln(x1) ; Writeln(x2) ; end ; end.
Program1.
Pas(9) : Встречено 'else', а ожидался оператор.
В чём проблема?
ЧТО НЕ ПРАВИЛЬНО?
ЧТО НЕ ПРАВИЛЬНО?
Program p_1 ;
var x, y : real ;
begin
read(x) ;
if 0< ; x< ; 2 then begin y : = sqr(cos(x)) ;
else begin y : = 1 - sin(sqr(x)) ;
end ;
writeln(y) ;
end.
Program lab1 ; varx, y : real ; begin writeln('введите x') ; readln(x) ; begin if (abs(x)< ; = 1) then y : = sqr(x) - 1 ; else if(abs(x)> ; 1) and (abs(x)< ; = 2) then y : = 2 * x - 1 ; else if ?
Program lab1 ; var
x, y : real ; begin writeln('введите x') ; readln(x) ; begin if (abs(x)< ; = 1) then y : = sqr(x) - 1 ; else if(abs(x)> ; 1) and (abs(x)< ; = 2) then y : = 2 * x - 1 ; else if (abs(x)> ; 2) then y : = exp(5 * ln(x)) - 1 ; end ; writeln ('y = ', y) ; End.
Где ошибка в программе?
Пишет : : Встречено 'else', а ожидался оператор.
Нужно найти у, при определенных значениях х.
Program yura ; var x : integer ; begin writeln ('Напишите x') ; readln (x) ; if x mod 2 = 0 then writeln(x * x + (sqrt2)) else writeln(x * x * x + x) end?
Program yura ; var x : integer ; begin writeln ('Напишите x') ; readln (x) ; if x mod 2 = 0 then writeln(x * x + (sqrt2)) else writeln(x * x * x + x) end.
В чём ошибка?
Где здесь ошибка ?
Где здесь ошибка ?
Program Ylia ; var A, B, C : real ; Begin Readln (a, b) if a> ; b ; C1 = ab else C2 = a / b ; writeln (c) ; end.
Program kv_ur ;uses crt ;vara, b, c, d : integer ;x1, x2, x : real ;beginWriteln ('Введите a, b, c') ;Read (a, b, c) ;d : = sqr(b) - 4 * a * c ;if d> ; 0 thenbeginx1 : = - b - sqrt(d) / 2 * a ;x2 : ?
Program kv_ur ;
uses crt ;
var
a, b, c, d : integer ;
x1, x2, x : real ;
begin
Writeln ('Введите a, b, c') ;
Read (a, b, c) ;
d : = sqr(b) - 4 * a * c ;
if d> ; 0 then
begin
x1 : = - b - sqrt(d) / 2 * a ;
x2 : = - b + sqrt(d) / 2 * a ;
Writeln ('Корни уравнения : x1 = ', x1, ' x2 = ', x2) ;
end
else
if d< ; 0 then
Write ('Нет корней')
else
begin
x : = - b / 2 * a ;
Writeln ('Корень уравнения : x = ', x) ;
end ;
end.
Написать проверку.
Program mimi ;var a, b : integer ;beginreadln (a) ;if 99 < ; a < ; thenwriteln('Неверно')elseif a> ; 999 thenwriteln('Неверно')elsewriten('Верно')end?
Program mimi ;
var a, b : integer ;
begin
readln (a) ;
if 99 < ; a < ; then
writeln('Неверно')
else
if a> ; 999 then
writeln('Неверно')
else
writen('Верно')
end.
Выдаёт : pas(5) : Ожидался идентификатор
Что не так?
Program TELESHOP ; var x : real ; begin writeln ('?
Program TELESHOP ; var x : real ; begin writeln ('.
') ; write ('.
') ; write ('.
') ; readln (x) ; if x< ; = 1 then begin if x = 1 then begin writeln ('.
') ; writeln ('.
') ; end else begin writeln ('.
') ; end ; * else begin writeln ('.
') ; end end.
* - место ошибки.
"встречено 'else', а ожидалось оператор" Вопрос : в чем ошибка?
Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 ?
Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 then begin writeln ('утро') ; readln (d) ; if a = 12 then begin writeln ('день') ; end ; if a = 16 then begin writeln ('вечер') ; / / / if a = 21 then begin writeln ('ночь') ; / / / end ; end ;
Var a, b, c : real ; begin read(a, b) ; writeln ('введите2 числа') var(a> ; b) do c : = a / b else c : = b / a writeln('частное = 'c) end?
Var a, b, c : real ; begin read(a, b) ; writeln ('введите2 числа') var(a> ; b) do c : = a / b else c : = b / a writeln('частное = 'c) end.
Пишет ожидался оператор.
Помогите пожалуйста, cрочно?
Помогите пожалуйста, cрочно!
Составить блок - схему.
Program primer6 ;
uses crt ;
x : integer ;
begin
clrscr ;
readln(x) ;
if x mod 2 = 0 then writeln ('да')
else writeln ('нет')
end.
Вы перешли к вопросу Program Dr ; Var a, b, c, D, x1, x2 : Real ; Begin D : = b * b - 4 * a * c ; Read(a, b, c) ; if D< ; 0 Then Writeln ('корней нет') else if D = 0 then begin x : = - b / (2 * a) : Writeln(x) ; end ; e?. Он относится к категории Информатика, для 5 - 9 классов. Здесь размещен ответ по заданным параметрам. Если этот вариант ответа не полностью вас удовлетворяет, то с помощью автоматического умного поиска можно найти другие вопросы по этой же теме, в категории Информатика. В случае если ответы на похожие вопросы не раскрывают в полном объеме необходимую информацию, то воспользуйтесь кнопкой в верхней части сайта и сформулируйте свой вопрос иначе. Также на этой странице вы сможете ознакомиться с вариантами ответов пользователей.
Program Dr ;
var a, b, c, D, x, x1, x2 : Real ;
begin Read(a, b, c) ; D : = b * b - 4 * a * c ; if D< ; 0 Then Writeln ('корней нет') else if D = 0 then begin x : = - b / (2 * a) ; Writeln(x) ; end else begin x1 : = ( - b - SQRT(D)) / (2 * a) ; x2 : = ( - b + SQRT(D)) / (2 * a) ; Writeln(x1) ; Writeln(x2) end
end.