Информатика | 5 - 9 классы
Найдите ошибку пожалуйста 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 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.
Набрать в программе Pascal программу исправив ошибки : PROGRAM 123 ; USES CRT ; VAR A, S : INTEDGER ; BEGIN WRITELN ( 'ВВЕДИТЕ ДВА ЧИСЛА ') ; READ(Q, W) ; F : = Q / W ; WRITELN ( 'РЕЗУЛЬТАТ ' , F) ; R?
Набрать в программе Pascal программу исправив ошибки : PROGRAM 123 ; USES CRT ; VAR A, S : INTEDGER ; BEGIN WRITELN ( 'ВВЕДИТЕ ДВА ЧИСЛА ') ; READ(Q, W) ; F : = Q / W ; WRITELN ( 'РЕЗУЛЬТАТ ' , F) ; READLN ; 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?
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.
В чём ошибка?
Х : = 1White x< ; = 0BeginWriteln(x) ;x : = x + 3endWriteln(x)Сколько раз повторяется циклКакие значения примут переменныеПосле выполнения программы?
Х : = 1
White x< ; = 0
Begin
Writeln(x) ;
x : = x + 3
end
Writeln(x)
Сколько раз повторяется цикл
Какие значения примут переменные
После выполнения программы.
Program vagoni ;varA : array[1?
Program vagoni ;
var
A : array[1.
15] of real ;
B : array[1.
15] of real ;
C : array[1.
15] of real ;
i, m, q, j, d, N : integer ;
s, max_num, max_index : real ;
begin
N : = 15 ;
m : = 10 ;
q : = 50 ;
writeln('Vvedite massy vagonov sostava M sostoyashego iz 15 vagonov') ;
s : = 0 ;
Begin
for i : = 1 to N do
Begin
write('vagon_', i, ' - > ; ') ;
readln(a[i]) ;
end ;
end ;
writeln(' ') ;
writeln('VSE vagoni : ') ;
for i : = 1 to N do
writeln('vagon_', i, ' = ', a[i], 'tonn') ;
writeln(' ') ;
writeln(' ') ;
writeln('Porojnie vagoni : ') ;
for i : = 1 to N do
begin
if (A[i] < ; = m) then
writeln('porojniy vagon = ', i) ;
end ;
writeln('') ;
writeln('grujenie vagoni : ') ;
for i : = 1 to N do
begin
if (A[i] > ; m) then s : = s + a[i] ;
if (A[i] > ; m) then
writeln('grujeniy vagon = ', i) ;
end ;
Writeln('Summa mass grujenih vagonov : ', s) ;
if s> ; q then
writeln('previshenie massy!
Sostav ne mojet bit sformirovan') else
begin
writeln ;
writeln('Noviy sostav : ') ;
j : = 1 ;
d : = 1 ;
for i : = 1 to N{ - 1} do
if A[i] > ; m then
begin
B[j] : = A[i] ;
writeln('vagon_', j, ' = ', B[j], 'tonn') ;
j : = j + 1 ;
end else
begin
C[d] : = A[i] ;
d : = d + 1 ;
end ;
end ;
Begin
writeln(' ') ;
writeln('Ostatok : ') ;
d : = d - 1 ;
WHILE d> ; 0 do
begin
writeln('vagon_', d, ' = ', C[d], 'tonn') ;
d : = d - 1 ;
end ;
end ;
writeln(' ') ;
begin
max_index : = 1 ;
max_num : = B[1] ;
for i : = 2 to j do
if B[i] > ; max_num then begin
max_index : = i ;
max_num : = B[i] ;
end ;
writeln('Maksimalnaya massa vagona sostava B = ', max_num, ' tonn', ' Ego nomer : ', max_index) ;
end ;
end.
Вот программа нужно чтоб формировался состав б в любом случае но не превышал 50 тонн, а остальные груженые вагоны вывести в остаток, и среди вагонов состава б найти вагон с максимальной массой.
Procedure F(n : integer) ; begin if n> ; 0 then begin f(n - 1) ; F(n - 3) ; writeln(n) ; end ; writeln (n + 3) ; end ; Что напечатает программа при F(2)?
Procedure F(n : integer) ; begin if n> ; 0 then begin f(n - 1) ; F(n - 3) ; writeln(n) ; end ; writeln (n + 3) ; end ; Что напечатает программа при F(2)?
Как решить подробно?
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 percentage ; uses crt ; var a, b, c, d : real ; begin writeln('Здравствуйте, вас приветствует программа для нахождения процентов в заданиях ОГЭ?, расположенный на этой странице сайта, относится к категории Информатика и соответствует программе для 5 - 9 классов. Если ответ не удовлетворяет в полной мере, найдите с помощью автоматического поиска похожие вопросы, из этой же категории, или сформулируйте вопрос по-своему. Для этого ключевые фразы введите в строку поиска, нажав на кнопку, расположенную вверху страницы. Воспользуйтесь также подсказками посетителей, оставившими комментарии под вопросом.
Program percentage ;
uses Crt ;
var a, b, c, d : real ;
begin ClrScr ; Writeln('Здравствуйте!
') ; Writeln('Вас приветствует программа для нахождения процентов в заданиях ОГЭ') ; Writeln('Искомую переменную обозначьте нулем') ; Write('Введите через пробел значения a, b, c, d : ') ; Read(a, b, c, d) ; 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('Спасибо за использование программы!
') ; ReadKey
end.
Программа будет выводить несколько значений, если задать при вводе несколько нулей.
Если так не должно быть, уточните алгоритм.