Задать вопрос
27 июня, 10:12

Напишите в ответе число, которое будет напечатано в результате

выполнения следующего алгоритма.

vara, b, t, M, R : integer;

function (x: integer) : integer;

begin

F:=3 * (x*x-16) + 5;

end;

begin

a : = - 20;

b : = 20;

M : = a;

R : = F (a) ;

for t : = a to b do

if F (t) < R then

begin

M : = t;

R : = F (t) ;

end;

write (R) ;

end.

+5
Ответы (2)
  1. 27 июня, 10:24
    0
    Вот так это работает, но я сомневаюсь, что такое задание придумали для решения без компьютера.

    До входа в цикл: M=-20 R=F (-20) = 1157

    В цикле t=-20

    В цикле t=-19

    F (-19) = 1040 < R=1157

    M=-19 R=F (-19) = 1040

    В цикле t=-18

    F (-18) = 929 < R=1040

    M=-18 R=F (-18) = 929

    В цикле t=-17

    F (-17) = 824 < R=929

    M=-17 R=F (-17) = 824

    В цикле t=-16

    F (-16) = 725 < R=824

    M=-16 R=F (-16) = 725

    В цикле t=-15

    F (-15) = 632 < R=725

    M=-15 R=F (-15) = 632

    В цикле t=-14

    F (-14) = 545 < R=632

    M=-14 R=F (-14) = 545

    В цикле t=-13

    F (-13) = 464 < R=545

    M=-13 R=F (-13) = 464

    В цикле t=-12

    F (-12) = 389 < R=464

    M=-12 R=F (-12) = 389

    В цикле t=-11

    F (-11) = 320 < R=389

    M=-11 R=F (-11) = 320

    В цикле t=-10

    F (-10) = 257 < R=320

    M=-10 R=F (-10) = 257

    В цикле t=-9

    F (-9) = 200 < R=257

    M=-9 R=F (-9) = 200

    В цикле t=-8

    F (-8) = 149 < R=200

    M=-8 R=F (-8) = 149

    В цикле t=-7

    F (-7) = 104 < R=149

    M=-7 R=F (-7) = 104

    В цикле t=-6

    F (-6) = 65 < R=104

    M=-6 R=F (-6) = 65

    В цикле t=-5

    F (-5) = 32 < R=65

    M=-5 R=F (-5) = 32

    В цикле t=-4

    F (-4) = 5 < R=32

    M=-4 R=F (-4) = 5

    В цикле t=-3

    F (-3) = - 16 < R=5

    M=-3 R=F (-3) = - 16

    В цикле t=-2

    F (-2) = - 31 < R=-16

    M=-2 R=F (-2) = - 31

    В цикле t=-1

    F (-1) = - 40 < R=-31

    M=-1 R=F (-1) = - 40

    В цикле t=0

    F (0) = - 43 < R=-40

    M=0 R=F (0) = - 43

    В цикле t=1

    В цикле t=2

    В цикле t=3

    В цикле t=4

    В цикле t=5

    В цикле t=6

    В цикле t=7

    В цикле t=8

    В цикле t=9

    В цикле t=10

    В цикле t=11

    В цикле t=12

    В цикле t=13

    В цикле t=14

    В цикле t=15

    В цикле t=16

    В цикле t=17

    В цикле t=18

    В цикле t=19

    В цикле t=20

    -43
  2. 27 июня, 12:09
    0
    -43

    Прогонял алгоритм через онлайн компилятор, но в ответе не уверен, так как нашлось немного ошибок и код пришлось чутка поправить
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма. vara, b, t, M, R : integer; function (x: ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
6) Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin s : = 0; for n:=4 to 13 do begin s : = s + 15; end; write (s) end.
Ответы (1)
Какое число будет напечатано в результате выполнения программы: var i, k: integer; function f (x: integer) : integer; var m: integer; begin if x < 10 then f : = x else begin m : = f (x div 10) ; if m < x mod 10 then f : = x mod 10 else f : = m; end;
Ответы (1)
1) Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin n : = 3; s : = 0; while n < = 26 do begin s : = s + 6; n : = n + 1 end; write (s) end.
Ответы (2)
Переведите программу в Free Pascal var A: Array [1 ... 100] of integer; size: integer; Even: integer; notEven: integer; begin Write ('Set size A : ') ; Read (size) ; for i:integer : = 1 to size do begin Write ('Set A[', i, ']: ') ; Read (A[i]) ; end;
Ответы (2)
Определите, какое чиcло будет напечатано в результате выполнения следующего алгоритма. Паскаль var a, b, a, K, L: integer; begin F: = (1-x) * (x-9) + 4 end; Begin a:=-16; b:=16 K:=a to b do if F (s) > L then begin K:=s; L:=F (a) end; writen (K) End.
Ответы (1)