В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat - количество голосов, поданных за первого исполнителя; Dat - за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования. Алгоритмический язык Бейсик Паскаль алг нач целтаб Dat цел k, m Dat := 16 Dat := 20 Dat := 20 Dat := 41 Dat := 14 Dat := 21 Dat := 28 Dat := 12 Dat := 15 Dat := 35 m:= 0 нц для k от 1 до 10 если Dat[k]gt;m то m:= Dat[k] все кц вывод m кон DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 16: Dat(2) = 20 Dat(3) = 20: Dat(4) = 41 Dat(5) = 14: Dat(6) = 21 Dat(7) = 28: Dat(8) = 12 Dat(9) = 15:Dat(10) = 35 m = 0 FOR k = 1 TO 10 IF Dat(k)gt;m THEN m = Dat(k) ENDIF NEXT k PRINT m Var k, m: integer; Dat: array of integer; Begin Dat := 16; Dat := 20; Dat := 20; Dat := 41; Dat := 14; Dat := 21; Dat := 28; Dat := 12; Dat := 15; Dat := 35; m:= 0; for k:= 1 to 10 do if Dat[k]gt;m then begin m:= Dat[k] end; writeln(m); End.
Похожие вопросы
Представляю решение 10 задания ОГЭ-2016 по информатике из проекта демоверсии. По сравнению с демоверсией 2015 года, 10 задание не изменилось. Это задание на умение исполнить циклический алгоритм обработки массива чисел, записанный на алгоритмическом языке (Алгоритм, свойства алгоритмов, способы записи алгоритмов. Блок-схемы. Представление о программировании. Алгоритмические конструкции). Это задание повышенного уровня сложности, ответом к нему является целое число, которое нужно записать в поле ответа.
Скриншот 10 задания.
В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat -количество голосов, поданных за первого исполнителя; Dat — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Пример на языке Паскаль
Var k, m: integer;
Dat: array of integer;
Begin
Dat := 16; Dat := 20;
Dat := 20; Dat := 41;
Dat := 14; Dat := 21;
Dat := 28; Dat := 12;
Dat := 15; Dat := 35;
m:= 0;
for k:= 1 to 10 do
if Dat[k]>m then
begin
m:= Dat[k]
end;
writeln(m);
End.
В данной программе создан массив из 10 чисел. В цикле от 1 до 10 включительно значение элемента массива сравнивается со значением переменной m. Если оказывается, что значение элемента массива строго больше значения переменной m, то переменной m присваивается значение элемента массива (изначально, до цикла значение переменной m было равно 0).
Перефразируя, получаем следующее. Для каждого исполнителя народных песен с 1 по 10 включительно количество голосов сравнивается со значением m. Если количество голосов больше m, то переменной m присваиваем значение равное количеству голосов. В результате выполнения цикла получаем число m, которое показывает наибольшее количество голосов отданное одному из участников, т.е. m=41.
Задание 1:
Реферат, набранный на компьютере, содержит 48 страниц текста и помимо этого ещё 32 рисунка. На каждой текстовой странице 36 строк, в каждой строке 48 символов. Для кодирования символов используется кодировка КОИ-8, при которой каждый символ кодируется 8 битами. Определите информационный объём всего реферата, если информационный объем каждого рисунка составляет 2080 байт.
Решение:
В кодировке КОИ-8, 1 символ несет 1 байт (что равно = 8 бит) информации.
У нас известно, что всего 48 страниц текста + 32 рисунка. На каждой странице 36 строк, в каждой строке 48 символов.
Узнаем, сколько весит одна страница:
48 символов * 36 строк = на одной странице 1728 символов.
1728 символов на одной странице * 1 байт = одна страница весит 1728 байт.
48 всего страниц * на вес одной страницы 1728 байт = общий вес всех страниц текста 82944 байт.
Узнаем, сколько весят все рисунки в реферате:
По условию, 1 рисунок у нас весит 2080 байт. А всего их 32 рисунка.
2080 байт * 32 рисунка = 66560 байт.
Итого:
Общий вес всех страниц текста 82944 байт + вес рисунков 66560 байт = 149504 байт.
По умолчанию, 1 Килобайт (Кбайт) = 1024 байт.
149504 байт / 1024 байт = 146 Кбайт.
Ответ: 146 Кбайт
Задание 2:
Для какого из приведённых названий птиц истинно высказывание:
НЕ ((первая буква согласная) ИЛИ (последняя буква гласная))
Конъюнкция (И) результат операции будет истинным тогда, когда оба исходных высказывания истинны.
Дизъюнкция (ИЛИ) результат операции будет ложным тогда, когда оба исходных высказывания ложны.
Инверсия (НЕ) каждому высказыванию ставит в соответствие новое высказывание, значение которого противоположно исходному.
Логические операции имеют следующий приоритет: инверсия -> конъюнкция -> дизъюнкция.
Решение:
Раскроем скобки:
Первая буква гласная И первая последняя буква согласная.
Ответ: Удод
Задание 4:
Пользователь работал с каталогом Тициан. Сначала он поднялся на один уровень вверх, затем спустился на один уровень вниз, потом ещё раз поднялся на один уровень вверх. В результате он оказался в каталоге:
С:\Искусство\Италия\Возрождение\Джорджоне
Запишите полный путь каталога, с которым пользователь начинал работу.
В условии указаны действия пользователя:
Сначала он поднялся на один уровень вверх, затем спустился на один уровень вниз, потом ещё раз поднялся на один уровень вверх.
Сделаем условия в обратном порядке:
Поднялся на один уровень вверх -> Спустился на один уровень вниз -> Поднялся на один уровень вверх.
За точку отправления берем каталог «Джорджоне»
С:\Искусство\Италия\Возрождение\Джорджоне
Если мы проделаем наше условие, то должны оказаться где-то выше каталога «Джорджоне».
С:\Искусство\Италия\Возрождение\Джорджоне\???
По предложенным ответам, нам только подходит 4ый вариант.
Ответ: С:\Искусство\Италия\Возрождение\Джорджоне\Тициан
Задание 5:
Какая формула может быть записана в ячейке D2, чтобы построенная после выполнения вычислений диаграмма по значениям диапазона ячеек A2:D2 соответствовала рисунку?
| A | B | C | D | |
| 1 | 4 | 3 | 2 | 1 |
| 2 | =A1+C1 | =C1 | =A1-2 | ? |
Варианты ответа:
Решение:
Из таблицы мы знаем: A1=4, B1=3, C1=2, D1=1.
Давайте заполним таблицу и найдем значение полей: A2, B2 и C2.
| A | B | C | D | |
| 1 | 4 | 3 | 2 | 1 |
| 2 | 6 | 2 | 2 | ? |
Мы узнали: A2=6, B2=2, C2=2.
Теперь вернемся к нашей диаграмме и внимательно посмотрим на нее:
У нас одна большая часть и три маленьких.
Логически рассуждая, давайте представим одну большую часть как A2, которая ровна 6-и. А три маленькие равные части, это 6 деленное на 3, получается одна маленькая часть ровна 2-ум.
Из предложенных вариантов ответов, нам нужно что бы D2 было равно 2-ум.
Получается, что это четвертый ответ.
Ответ: 4
Задание 7:
Незнайка шифрует русские слова, записывая вместо каждой буквы её номер в алфавите (без пробелов).
Номера букв даны в таблице:
Некоторые шифровки можно расшифровать не одним способом.
Например, 12112 может означать «АБАК», может - «КАК», а может - «АБААБ».
Даны четыре шифровки:
Только одна из них расшифровывается единственным способом.
Найдите её и расшифруйте. То, что получилось, запишите в качестве ответа.
Решение:
Третий и четвертый вариант мы сразу исключаем. В начале шифровки стоит «18», это может быть как просто «1» так и «18».
Остаются первый и второй вариант шифровки.
Шифровка по условию начинается с 1 и заканчивается на 33. В первом варианте шифровки "29", может быть как "2" и "9", что нельзя сказать про второй вариант шифровки, которая заканчивается на "30". В шифровке "0" по условию нет и шифр "30" мы разделить ни как не можем.
Ответ: ЖАТЬ
Задание 10:
В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat - проданных товаров первого типа, Dat - второго типа и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования.
Алгоритмический язык:
алг
нач
целтаб Dat
цел k, m
Dat := 45; Dat : = 55
Dat := 40; Dat : = 15
Dat := 20; Dat := 80
Dat := 35; Dat : = 70
Dat := 10; Dat := 45
m:= Dat
нц для к от 4 до 10
если Dat[к] >= Dat то
m:= m + Dat [к]
все
кц
вывод m
кон
Бейсик:
DIM Dat(10) AS INTEGER
Dat(1)= 45: Dat(2)= 55
Dat(3)= 40: Dat(4)= 15
Dat(5)= 20: Dat(6)= 80
Dat(7)= 35: Dat(8)= 70
Dat(9)= 10: Dat(10)= 45
m = Dat (1)
FOR k = 4 TO 10
IF Dat(k) >= Dat (1)
THEN
m = m + Dat (k)
END IF
10
10
ID_650 4/8 neznaika.pro
NEXT k
PRINT m
END
Паскаль:
var k, m: integer;
Dat: array
of integer;
begin
Dat := 45; Dat := 55;
Dat := 40; Dat := 15;
Dat := 20; Dat := 80;
Dat := 35; Dat := 70;
Dat := 10; Dat := 45;
m:= Dat;
for k:= 4 to 10 do begin
if Dat[k] >= Dat then
begin
m:= m + Dat[k]
end
end;
write(m);
end.
Давайте решим задачу на примере языка Паскаль.
| var k, m: integer; Dat: array of integer; begin Dat := 45; Dat := 55; Dat := 40; Dat := 15; Dat := 20;. Dat := 80; Dat := 35; Dat := 70; Dat := 10; Dat := 45; m:= Dat; for k:= 4 to 10 do begin if Dat[k] >= Dat then begin m:= m + Dat[k] end end; write(m); end. |
Сначала у нас вводятся целые числовые переменные k и m. Дана таблица с 1 до 10 значений - десять проданных типов товаров. Переменная m равна первому типу товаров (Dat := 45;). Если одно из значений с 4-го по 10-ый тип будет больше или равно 1-ого типа, который равен 45, то большее значение добавляется к переменной m. Которая в свою очередь у нас по условию, переменная m равна 45. Получается, что у нас типы товаров: Dat и Dat больше значения Dat := 45, а тип Dat равен Dat := 45. В итоге получаем: 45 + Dat + Dat + Dat = 45 + 80 + 70 + 45 = 240 |
Ответ: Будет напечатано 240
В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat - количество голосов, поданных за первого исполнителя; Dat - за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования. Алгоритмический язык Бейсик Паскаль алг нач целтаб Dat цел k, m Dat := 16 Dat := 20 Dat := 20 Dat := 41 Dat := 14 Dat := 21 Dat := 28 Dat := 12 Dat := 15 Dat := 35 m:= 0 нц для k от 1 до 10 если Dat[k] больше m то m:= Dat[k] все кц вывод m кон DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 16: Dat(2) = 20 Dat(3) = 20: Dat(4) = 41 Dat(5) = 14: Dat(6) = 21 Dat(7) = 28: Dat(8) = 12 Dat(9) = 15:Dat(10) = 35 m = 0 FOR k = 1 TO 10 IF Dat(k) больше m THEN m = Dat(k) ENDIF NEXT k PRINT m Var k, m: integer; Dat: array of integer; Begin Dat := 16; Dat := 20; Dat := 20; Dat := 41; Dat := 14; Dat := 21; Dat := 28; Dat := 12; Dat := 15; Dat := 35; m:= 0; for k:= 1 to 10 do if Dat[k] больше m then begin m:= Dat[k] end; writeln(m); End.
Похожие вопросы
