Информатика | 5 - 9 классы
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 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 percentage ; uses crt ; var a, b, c, d : real ; begin writeln('Здравствуйте, вас приветствует программа для нахождения процентов в заданиях ОГЭ?
Найдите ошибку пожалуйста Program percentage ; uses crt ; var a, b, c, d : real ; begin writeln('Здравствуйте, вас приветствует программа для нахождения процентов в заданиях ОГЭ.
Искомую переменную обозначтье (0).
') ; write('Введите переменную a - ') ; read(a) ; write('Введите переменную b - ') ; read(b) ; write('Введите переменную c - ') ; read(c) ; write('Введите переменную d - ') ; read(d) ; writeln ; if a = 0 then begin a : = c * b / d ; writeln(' Ответ : ', a) ; end ; if b = 0 then begin b : = a * d / c ; writeln(' Ответ : ', b) ; end ; if c = 0 then ; begin c : = a * d / b ; writeln(' Ответ : ', c) ; end ; if d = 0 then begin d : = c * b / a ; writeln(' Ответ : ', d) ; end ; writeln('Спасибо за использование программы!
') ; 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', а ожидался оператор.
В чём проблема?
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 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) : Ожидался идентификатор
Что не так?
По тексту программы определите условие задачи var i, x, s, k, n : integer ; begin s : = 0 ; k : = 0 ; readln(n) ; for i : = 1 to n do begin read(x) ; if x> ; 0 then begin S : = s + x ; k : = k + 1 ?
По тексту программы определите условие задачи var i, x, s, k, n : integer ; begin s : = 0 ; k : = 0 ; readln(n) ; for i : = 1 to n do begin read(x) ; if x> ; 0 then begin S : = s + x ; k : = k + 1 ; end ; end ; if k : = 0 then writeln(s) else writeln(s / k : 4 : 2) ; end.
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 ;
Помогите пожалуйста, cрочно?
Помогите пожалуйста, cрочно!
Составить блок - схему.
Program primer6 ;
uses crt ;
x : integer ;
begin
clrscr ;
readln(x) ;
if x mod 2 = 0 then writeln ('да')
else writeln ('нет')
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 : ?, относящийся к уровню подготовки учащихся 5 - 9 классов, вы открыли нужную страницу. В категории Информатика вы также найдете ответы на похожие вопросы по интересующей теме, с помощью автоматического «умного» поиска. Если после ознакомления со всеми вариантами ответа у вас остались сомнения, или полученная информация не полностью освещает тематику, создайте свой вопрос с помощью кнопки, которая находится вверху страницы, или обсудите вопрос с посетителями этой страницы.
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) ; { Потом убрать отсюда .
} Writeln(' * * * Делаем проверку * * * ') ; Writeln(a, 'x(', x1 : 0 : 5, ') ^ 2 + ', b, 'x(', x1 : 0 : 5, ') + ', c, ' = ', a * sqr(x1) + b * x1 + c : 0 : 5) ; Writeln(a, 'x(', x2 : 0 : 5, ') ^ 2 + ', b, 'x(', x2 : 0 : 5, ') + ', c, ' = ', a * sqr(x2) + b * x2 + c : 0 : 5) { .
И досюда } end else if d < ; 0 then Write('Нет корней') else begin x : = - b / (2 * a) ; Writeln('Корень уравнения : x = ', x) ; end ;
end.
Тестовое решение :
Введите a, b, c
2 - 2 - 40
Корни уравнения : x1 = - 4 x2 = 5 * * * Делаем проверку * * *
2x( - 4.
00000) ^ 2 + - 2x( - 4.
00000) + - 40 = 0.
00000
2x(5.
00000) ^ 2 + - 2x(5.
00000) + - 40 = 0.
00000.