Вычислите необходимый объем видеопамяти для графического режима, если разрешение экрана монитора 1024 х 768, глубина цвета 32 бита. дано: к = 1024 х 768 i = 32 бита найти: i - ? решение: i = k x i

2

Перепишем программу в виде, удобном для анализа алгоритма. var   a,b,t,n: integer; function f(x: integer): integer; begin   f: =16*(6-x)*(6-x)-450; end; begin   a: =-20; b: =20;   n: =0;   for t: =-20 to 20 do       if (f(t)> =0) then n: =n+1;   write(n) end. переменные a и b получают начальные значения, но дальше не используются, поэтому их рассматривать не нужно. все переменные в программе объявлены целочисленными, поэтому анализируем алгоритм также в целых числах. переменная t последовательно принимает значения от -20 до 20, следовательно, можно записать, что t ∈ [-20; 20] для каждого t вычисляется значение некоторой функции f(t) и подсчитывается n - количество случаев, когда значение f(t) неотрицательно. найденное n затем выводится. ставится определить значение n. проанализируем функцию f(t). после простого преобразования получаем f(t)=16(6-t)²-450 теперь надо найти решение неравенства f(t)≥0. поскольку решение выполнятся в целых числах, то значение в правой части неравенства достаточно записать с точностью один знак после запятой. на интервале [-20; 20] первому условию удовлетворит 21 точка, второму условию удовлетворят 9 точек. всего получится 21+9=30 точек. ответ: будет выведено число 30

Program p1; var   a: array[1..7,1..7] of byte;   i,j: byte; begin   for i: =1 to 7 do   begin       for j: =1 to 7 do       begin       if i< =4 then           if (j> =i) and (j< =8-i) then a[i,j]: =1 else a[i,j]: =0       else           if (j< =i) and (j> =8-i) then a[i,j]: =1 else a[i,j]: =0;       write(a[i,j]: 2)       end;   writeln   end end. результат выполнения программы:   1 1 1 1 1 1 1   0 1 1 1 1 1 0   0 0 1 1 1 0 0   0 0 0 1 0 0 0   0 0 1 1 1 0 0   0 1 1 1 1 1 0   1 1 1 1 1 1 1 program p2; var   a: array[1..6,1..6] of byte;   i,j: byte; begin   for i: =1 to 6 do   begin       for j: =1 to 6 do       begin       a[i,j]: =i+j-1;       if a[i,j]> 6 then a[i,j]: =a[i,j]-6;       write(a[i,j]: 2)       end;   writeln   end end. результат выполнения программы:   1 2 3 4 5 6   2 3 4 5 6 1   3 4 5 6 1 2   4 5 6 1 2 3   5 6 1 2 3 4   6 1 2 3 4 5