Контрольная работа №4 «Программное управление работой компьютера» Часть А Во Что из указанного НЕ входит в алфавит языка Паскаль? 1) латинские буквы 2) служебные слова 3) русские буквы 4) знаки арифметических действий Во Какая строка из перечисленных описывает вещественную переменную на языке Паскаль? Var x: integer; Var x: Boolean; Var x: real; Var x: stringl Во Как записывается оператор вывода? Writeln ( ) Readln( ) While ( ) Begin ( ) Во Укажите условие выбора чисел, кратных 5 и не кратных 10: (X mod 5=0) and (X mod 10<>0); (X mod 5<>0) or (X mod 10=0); (X mod 5=0) and (X mod 10=0) Во Чем характеризуется переменная? Именем, типом, значением Типом, значением Именем, значением Во Сколько раз повторится тело цикла в процессе выполнения фрагмента программы: k:= 8; while k<20 do k:=k+10; 8 6 2 10 Во Операторы в Паскале разделяются: запятой переходом на новую строку точкой с запятой точкой Во Какой оператор в Паскале служит для выбора одного из двух вариантов действий? оператор ввода оператор вывода условный оператор оператор цикла Во Какое значение примет переменная Х после выполнения оператора Х=17div2? 8.5 1 8 19 Во Оператор цикла с заданным числом повторений в Паскале имеет следующий формат: While <выражение> do <оператор>; For <параметр>:=<начальное значение> to <конечное значение> do Repeat <оператор> until <выражение> Часть Б 1. В программе «:=» обозначает оператор присваивания; знаки «+», «−», «*» и «/» − соответственно операции сложения, вычитания, умножения и деления. Правила выполнения операций и порядок действий соответствует правилам арифметики. Определите значение переменной а после выполнения алгоритма: a := −12 b := 14 − a / 2 b := (b − a) / 8 a := b * 2 + 6 В ответе укажите одно целое число − значение переменной а. 2. Запишите значение переменной s, полученное в результате работы следующей программы. Var s, k: integer; Begin s := 8; for k := 3 to 8 do s := s + 8; writeln(s); End. 3. В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д. Определите, какое число будет напечатано в результате работы сле- дующей программы. Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 12; Dat[2] := 15; Dat[3] := 17; Dat[4] := 15; Dat[5] := 14; Dat[6] := 12; Dat[7] := 10; Dat[8] := 13; Dat[9] := 14; Dat[10] := 15; m := 0; for k := 1 to 10 do if Dat[k] > 12 then begin m := m + 1; end; writeln(m); End.