Действия робота зависят от показаний
датчика.
для работы этого датчика использованы три блока:
1. начало
4. опиши действия робота, который выполняет эту программу.
no
критерий
оценивания
различает функции
датчиков цвета и
ультразвука
дескриптор
обучающийся
пишет названия датчиков;
верно определяет 1 - 2 соответствия между
датчиком и его функцией:
верно определяет 3 - 4 соат
Если с днем рождения все понятно: в году максимум 366 дней и требуется определить нужный, то непонятно, как быть с загаданным учеником - их условно пронумеровать и спрашивать о номере?
Поэтому принимаем такое решение. Мы делим список учеников на два части (например, написав сведения о каждом на отдельной карточке и разложив эти карточки на две равные кучки по 560/2 = 280 человек в каждой. Затем задаем вопрос: загаданный ученик находится в первой кучке? По результатам ответа кучку, содержащую загаданного ученика, снова делим пополам. Процесс повторяем пока не останется одна карточка. Аналогично поступаем с датами рождения.
Тогда количество вопросов определится, как степень числа 2, дающая число, не меньшее количества учеников (дней рождения).
2⁹ < 560 < 2¹⁰, поэтому ученик будет угадан максимум за 10 вопросов.
2⁸ < 366 < 2⁹, поэтому день рождения будет угадан максимум за 9 вопросов.
В сумме потребуется задать не более 9+10 = 19 вопросов.
Конечно, можно придумать более продвинутую систему, когда на карточках учеников будут указаны одновременно и даты их рождения, тогда количество вопросов можно снизить.
Var
se:set of char;
s:string;
i,j,k:integer;
begin
k:=0;
se:=['Б','В','Г','Д','Ж','З','Й','К','Л','М','Н','П','Р','С','Т','Ф','Х','Ч','Ц','Ш','Щ','б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
readln(s);
var ars:=s.split;
for i:=0 to ars.Length-1 do
for j:=1 to length(ars[i])-1 do
if (ars[i][j] in se) and (lowcase(ars[i][j])=lowcase(ars[i][j+1])) then
begin
inc(k);
break;
end;
writeln('Res=',k);
end.
Пример ввода:
Ввод йотированных звуков
Пример вывода:
Res=2