Question

В программе переменные и с описаны как целочисленных (integer) составьте трессировочную таблицу для следующего фрагмента программы определите значение переменной s после выполнения фрагмента программы на паскале i:=15; s:=0 ; while i<32767 do begin s:=s+i; i:=i*16 end; writeln (s);

Answer 1

Ответ:

Program ghg;

Var

i:integer;

Begin

i:=15;

Writeln('s=', 0+i,'; ', 'i=', i*16,';');

End.

Answer 2

Для составления трассировочной таблицы для данного фрагмента программы на языке Паскаль, нужно отслеживать значения переменных i и s на каждой итерации цикла while. Переменная i начинает с 15 и умножается на 16 на каждой итерации, пока i не станет больше или равно 32767. Переменная s увеличивается на значение i на каждой итерации. Вот трассировочная таблица:

yamlCopy code
|  Итерация  |    i     |    s    |
|-------------|----------|---------|
|     начало  |   15     |    0    |
|      1      |   240    |   15    |
|      2      |   3840   |   255   |
|      3      |   61440  |   4095  |
|      4      |   983040 |   65535 |

После завершения всех итераций выводится значение переменной s, которое в данном случае будет равно 65535.