Найдите ошибку пожалуйста 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 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.

Ответить на вопрос
Ответы (1)
Belka222 13 нояб. 2020 г., 12:47:04

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.

Программа будет выводить несколько значений, если задать при вводе несколько нулей.

Если так не должно быть, уточните алгоритм.

MikaEpt 27 апр. 2020 г., 10:34:15 | 5 - 9 классы

ЧТО НЕ ПРАВИЛЬНО?

ЧТО НЕ ПРАВИЛЬНО?

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.

Toluanchick2014 29 мар. 2020 г., 07:56:03 | 10 - 11 классы

Набрать в программе 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.

Brozhkodima 23 авг. 2020 г., 21:04:09 | 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 ; 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', а ожидался оператор.

В чём проблема?

Irinakirikovam 24 мая 2020 г., 05:37:28 | 5 - 9 классы

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.

В чём ошибка?

Ulenka2000ula 3 окт. 2020 г., 17:26:05 | 5 - 9 классы

Х : = 1White x< ; = 0BeginWriteln(x) ;x : = x + 3endWriteln(x)Сколько раз повторяется циклКакие значения примут переменныеПосле выполнения программы?

Х : = 1

White x< ; = 0

Begin

Writeln(x) ;

x : = x + 3

end

Writeln(x)

Сколько раз повторяется цикл

Какие значения примут переменные

После выполнения программы.

Egorarg 3 мая 2020 г., 10:52:03 | 10 - 11 классы

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 тонн, а остальные груженые вагоны вывести в остаток, и среди вагонов состава б найти вагон с максимальной массой.

Dinifest 8 апр. 2020 г., 04:06:32 | 10 - 11 классы

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)?

Как решить подробно?

AvEnTaDoR005 25 сент. 2020 г., 12:43:18 | 5 - 9 классы

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', а ожидалось оператор" Вопрос : в чем ошибка?

Ksusha1037 25 июн. 2020 г., 21:03:03 | 5 - 9 классы

Здравствуйте, помогите пожалуйста найти ошибку 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 ;

Ряжка 25 дек. 2020 г., 18:21:48 | 5 - 9 классы

Помогите пожалуйста, 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 классов. Если ответ не удовлетворяет в полной мере, найдите с помощью автоматического поиска похожие вопросы, из этой же категории, или сформулируйте вопрос по-своему. Для этого ключевые фразы введите в строку поиска, нажав на кнопку, расположенную вверху страницы. Воспользуйтесь также подсказками посетителей, оставившими комментарии под вопросом.