Информатика

1. Вычислите значение целочисленной переменной c при a = 26 и b = 6: а) c:= mod(a, b) + b c:= a mod b + b; б) c:= div(a, b) + a c:= a div b + a; в) b:= div(a, b) c:= div(a, b) 4 b:= a div b; c:= a div b; г) b:= div(a, b) + b c:= mod(a, b) + a b:= a div b + b; c:= a mod b + a; д) b:= mod(a, b) + 4 c:= mod(a, b) + 1 6 b:= a mod b + 4; c:= a mod b + 1; е) b:= div(a, b) c:= mod(a, b+1) b:= a div b; c:= a mod (b+1); ж) b:= mod(a, b) c:= div(a, b+1) b:= a mod b; c:= a div (b+1); 2 8 2. Измените программу по обработке данных в потоке так, чтобы она вычисляла сумму только положительных чисел: sum:=0 ввод x нц пока x 0 кц вывод 'Сумма ', sum sum:= 0; read(x); while x 0 do begin end; writeln('Сумма ', sum); 3. Определите, сколько раз выполнится цикл, и чему будут равны значения переменных a и b после его завершения: а) a:= 4; b:= 6 нц пока a < b a:= a + 1 кц a:= 4; b:= 6; while a < b do a:= a + 1; Число повторений: a = b = б) a:= 4; b:= 6 нц пока a < b a:= a + b кц a:= 4; b:= 6; while a < b do a:= a + b; Число повторений: a = b = в) a:= 4; b:= 6 нц пока a > b a:= a + 1 кц a:= 4; b:= 6; while a > b do a:= a + 1; Число повторений: a = b = г) a:= 4; b:= 6 нц пока a < b b:= a - b кц a:= 4; b:= 6; while a < b do b:= a - b; Число повторений: a = b = д) a:= 4; b:= 6 нц пока a < b a:= a - 1 кц a:= 4; b:= 6; while a < b do a:= a - 1; Число повторений: a = b = 4. Найдите ошибку в программе: k:= 0 нц пока k < 10 вывод 'привет', нс кц k:= 0; while k < 10 do writeln('привет'); Запишите исправленный вариант программы: Место для ввода текста. 5. Что будет выведено на экран в результате работы следующего цикла (k – целая переменная)? а) k:= 1 нц пока k < 5 вывод k, ' ' k:= k + 1; кц k:= 1; while k < 5 do begin write(k, ' '); k:= k + 1 end; Ответ: б) k:= 4 нц пока k < 10 вывод k*k, ' ' k:= k + 2; кц k:= 4; while k < 10 do begin write(k*k, ' '); k:= k + 1 end; Ответ: в) k:= 12 нц пока k > 3 вывод 2*k+1, ' ' k:= k - 2; кц k:= 12; while k > 3 do begin write(2*k-1, ' '); k:= k - 1 end; Ответ: г) k:= 5 нц пока k < 10 вывод k*k, ' ' k:= k + 2; кц k:= 5; while k < 10 do begin write(k*k, ' '); k:= k + 1 end; Ответ: д) k:= 15 нц пока k > 6 вывод k, ' ' k:= k - 2; кц k:= 15; while k > 6 do begin write(k-1, ' '); k:= k - 1 end; Ответ: 6. Найдите ошибки в этом фрагменте программы. Выделите красным цветом ошибочные обращения к элементам массива: целтаб A[1:5] цел x ... x:=2 вывод A[x-3] A[x+4]:=A[x-1]+A[2*x] var A: array[1..5] of integer; x: integer; ... x:=2; write(A[x-3]); A[x+4]:=A[x-1]+A[2*x]; В чём заключаются ошибки? Могут ли они привести к сбоям программы? Почему?

Топ Комментарии Архив
«    Март 2021    »
ПнВтСрЧтПтСбВс
1234567
891011121314
15161718192021
22232425262728
293031 
Теги