Информатика | 5 - 9 классы
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.
Пишет ожидался оператор.
ЧТО НЕ ПРАВИЛЬНО?
ЧТО НЕ ПРАВИЛЬНО?
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 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?
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', а ожидался оператор.
В чём проблема?
Решаю программу в Паскаль, все время пишет либо Встречено ' ; ', а ожидалось ')', либо Встречено 'else', а ожидался оператор?
Решаю программу в Паскаль, все время пишет либо Встречено ' ; ', а ожидалось ')', либо Встречено 'else', а ожидался оператор.
Помогите, пожалуйста!
Найдите ошибку!
Program Ves ; Var a1, a2, a3, t1, t2, t3, p, d, vp : Integer ; begin writeln ('программа вычисляет норму для данного ученика') ; writeln ('введи массу учебника 1') ; readln (a1) ; writeln ('введи массу учебника 2') ; readln (a2) ; writeln ('введи массу учебника 3') ; readln (a3) ; writeln ('введи массу тетради 1') ; readln (t1) ; writeln ('введи массу тетради 2') ; readln (t2) ; writeln ('введи массу тетради 3') ; readln (t3) ; writeln ('введи массу пенала') ; readln (p) ; writeln ('введи массу дневника') ; readln (d) ; writeln ('введи массу портфеля') ; readln (vp) ; b : = a1 + a2 + a3 + a4 + t1 + t2 + t3 + p + d + vp ; writeln ('общая масса портфеля, b') if (b< ; = 5) then writeln ('норма') ; else writeln ('ненорма') ; readln ; 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 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', а ожидалось оператор" Вопрос : в чем ошибка?
Почему в частном пишет NaN?
Почему в частном пишет NaN?
Помогите пожалуйста program up1 ; var a, b, c : integer ; x : real ; begin x : = a / b / c ; writeln('Введите первое число') ; read(a) ; writeln('Введите второе число') ; read(b) ; writeln('Введите третье число') ; read(c) ; writeln('произведение чисел ', a, ' * ', b, ' * ', c, ' = ', a * b * c) ; writeln('частное чисел ', a, ' / ', b, ' / ', c, ' = ', x) ; end.
Здравствуйте, помогите пожалуйста найти ошибку 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 ;
Помогите по программированию?
Помогите по программированию.
Составьте программу по этой блок схеме.
Очень срочно.
Например : program z1 ; var x, y : real ; begin writeln('введите два числа') ; read(x) ; if x> ; 0 then y : = SQRT(x) writeln('y = ', y) ; 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? из категории Информатика с правильным ответом на него. Уровень сложности вопроса соответствует знаниям учеников 5 - 9 классов. Здесь же находятся ответы по заданному поиску, которые вы найдете с помощью автоматической системы. Одновременно с ответом на ваш вопрос показаны другие, похожие варианты по заданной теме. На этой странице можно обсудить все варианты ответов с другими пользователями сайта и получить от них наиболее полную подсказку.
1. Сначала следует запрос на числа, т.
Е. нужно вывести строку.
Затем вводятся сами числа.
2. Условный оператор записывается как "if условие then оператор1 else оператор2".
Все, что после оператор1 можно отбросить.
Var a, b, c : real ;
begin
writeln('введите2 числа') ;
read(a, b) ;
if(a> ; b) then
c : = a / b
else
c : = b / a ;
writeln('частное = ', c)
end.