Створіть інформаційну модель для вивчення вимірювальних приладів на уроках фізики. 1. Зобразіть у текстовому процесорі структурну модель (у вигляді схеми або

таблиці) для вивчення вимірювальних приладів. Відобразіть у моделі назви та

призначення приладів (для вимірювання часу: метроном, секундомір,

годинник; для вимірювання лінійних розмірів: лінійка; для вимірювання

об’єму: мензурка); одиниці вимірювання відповідних фізичних величин.

Збережіть отриманий документ у вашій папці.

2. Зобразіть у графічному редакторі графічну модель одного з вимірювальних

приладів. Збережіть отримане зображення у вашій папці.

3. Створіть презентацію Вимірювальні прилади:

1. На першому слайді помістіть назву презентації та хто її виконав.

2. На другому слайді опишіть умову вашої задачі, вставте зображення

будь-якого вимірювального приладу з інтернету.

3. На третьому слайді опишіть мету та предметну область дослідження.

Опишіть суттєві властивості та взаємозв’язки.

4. Скопіюйте з текстового документа структурну модель вимірювальних

приладів і вставте її на четвертий слайд презентації.

5. Уставте на п’ятий слайд презентації створену графічну модель

вимірювального приладу.

6. На шостому слайді презентації запишіть математичну модель: одиниці

вимірювання часу (години, хвилини, секунди) і співвідношення між

ними.

                                     PascalABC.NET                                       function ToBinary (x:integer):string; beginif (x>0) then ToBinary := ToBinary(x div 2) + (x mod 2).ToString;end; function FromBinary (x:string):integer; beginif (x.Length>0) then FromBinary := FromBinary(x.Substring(1)) + x[1].ToDigit*Round(Power(2,x.Length-1));end; function func (x:integer):integer; beginvar s := ToBinary(x); loop 2 do s += s.AsEnumerable.Sum(c->c.ToDigit) mod 2; func:=FromBinary(s);end; begin Println('f(N):',func(ReadInteger('N:'))); Println('Количество:',(1..160).Count(x->func(x) in 90..160)); end.

Примечание:

Если к числу в двоичной системе счисления приписывать в конец цифры, то число увеличивается и никак не может уменьшится. Поэтому, n<f(n). Следовательно, перебор различных чисел, принадлежащих отрезку [90;160], можно смело ставить до 160 (можно и меньше, но лень расписывать вычисления).

ToBinary - функция перевода числа из десятичной СС в двоичную. Можно писать любой алгоритм, необязательно в точности использовать мой.

FromBinary - функция перевода числа из двоичной СС в десятичную. Можно писать любой алгоритм, необязательно в точности использовать мой.

func - функция, которая выполняет преобразования числа согласно условию (пункты 1, 2, 3, 4).

Код кажется большим только из-за процедур и begin/endов. Без них - всего то 7 строчек :). В скринах можно проверить, действительно ли 19 (40-22+1).

Пример работы:

                                     PascalABC.NET                                       function ToBinary (x:integer):string; beginif (x>0) then ToBinary := ToBinary(x div 2) + (x mod 2).ToString;end; function FromBinary (x:string):integer; beginif (x.Length>0) then FromBinary := FromBinary(x.Substring(1)) + x[1].ToDigit*Round(Power(2,x.Length-1));end; function func (x:integer):integer; beginvar s := ToBinary(x); loop 2 do s += s.AsEnumerable.Sum(c->c.ToDigit) mod 2; func:=FromBinary(s);end; begin Println('f(N):',func(ReadInteger('N:'))); Println('Количество:',(1..160).Count(x->func(x) in 90..160)); end.

Примечание:

Если к числу в двоичной системе счисления приписывать в конец цифры, то число увеличивается и никак не может уменьшится. Поэтому, n<f(n). Следовательно, перебор различных чисел, принадлежащих отрезку [90;160], можно смело ставить до 160 (можно и меньше, но лень расписывать вычисления).

ToBinary - функция перевода числа из десятичной СС в двоичную. Можно писать любой алгоритм, необязательно в точности использовать мой.

FromBinary - функция перевода числа из двоичной СС в десятичную. Можно писать любой алгоритм, необязательно в точности использовать мой.

func - функция, которая выполняет преобразования числа согласно условию (пункты 1, 2, 3, 4).

Код кажется большим только из-за процедур и begin/endов. Без них - всего то 7 строчек :). В скринах можно проверить, действительно ли 19 (40-22+1).

Пример работы: