QR-буриме “Пушкинская Тямша” (мобильная игра-геокешинг)

Вниманию 8-11 классов. 

В пятницу, 12 февраля, в школе запланировано проведение мобильной игры. Внимательно читайте правила, размещённые здесь. В комментариях можно задать вопросы.

Описание игры: команды передвигаются по местности, отыскивая тайники по пушкинским строкам и плану местности; из найденных в тайниках рифм следует написать стихотворение, проиллюстрировав его фотографией; отчёт о работе, содержащий фото и стихи, размещается в блоге и представляется на закрытии пушкинских дней.

Участники: команды 8-11 классов Тямшанской гимназии (по 3-4 человека от класса).

Правила игры:

- передвижение происходит от точки к точке с использованием планов местности и

стихотворных подсказок;

- точка сбора после прохождения маршрута - кабинет информатики;

- виртуальные отчёты с фото и стихами создаются в данном блоге http://tyamshariki.blogspot.ru/ (предварительно следует зарегистрироваться одному человеку от команды и взять приглашение на редактирование у Новопавловской Е.К.);

- фотоотчёт в стихах представляется на закрытии пушкинских дней в виде презентации или слайд-шоу; приветствуется творческий подход.

Необходимое оборудование:  мобильный телефон для фотографирования, с приложением для чтения qr-кодов.

Время игры:

- прохождение маршрута и написание стихов - 1 час 30 минут;

- создание отчёта в блоге - 30 минут;

- выступление на закрытии пушкинских дней - 5 минут.

Место проведения: деревня Тямша и ближайшие окрестности.

Баллы:

- снятие одной точки - 20 баллов;

- качественное фото в альбоме - до 10 баллов;

- представление отчёта - до 30 баллов.

Бонусы и штрафы: за каждые сэкономленные 5 минут на маршруте команде

начисляется 3 балла, за каждые лишние 5 минут на маршруте назначается штраф в

размере 3 баллов.

Практическое задание по работе с графикой

Создайте копию экрана, сохраните её как растровое изображение типа BMP в виде файла и определите его объём. Вычислите объём файла, зная разрешение экрана и глубину цвета, и сравните с объёмом файла, полученным экспериментально.

Сохраните изображение в форматах GIF и JPEG, ответьте на вопросы:
- какой из форматов обеспечивает наилучшую степень сжатия?
- какой из форматов обеспечивает наименьшие потери качества изображения?

Тест на знание Pascal

Функции для строковых переменных

Сегодня мы продолжили работу со строками. Программа, иллюстрирующая работу некоторых функций со строковыми переменными.

program Line_2;
  var
  S: String;
  Rez, P: integer;
  S2: string;
begin
  writeln ('Введите строку ');
  readln (S);
  Rez:=length(S);
  writeln ('Длина строки: ',Rez);
  Delete (S,5,5);
  writeln (S);
  S2:='А';
  P:=Pos(S2, S);
  writeln (P);
  Insert (S2,S,3);
  writeln (S);
end.

Домашнее задание (принимается как всегда в любом удобном для вас виде).

№3. Дана строка. Подсчитать в ней количество вхождений букв r, t, k.

№6. Дана строка символов, среди которых есть двоеточие (:). Определить, сколько символов ему предшествует.

Строковые переменные

Дорогие друзья! Привожу пример нашей первой программы на работу со строками.

program Line;
 var
  Name1: string[20];
  Name2: string[20];
  Title: string[40];
  Rez: string [70];
begin
 Name1:='Глебова';
 Name2:=' Катя';
 Title:=Name1+Name2;
 writeln (Title);
 Name1:='Кондратьев';
 Name2:='Иванов';
 
???

end.

Домашнее задание. Дописать программу,чтобы на экране было сообщение о том, какая фамилия идёт раньше по алфавиту.

Электрический ток в различных средах

Задачи по двумерным массивам

Продолжаем работу с двумерными массивами. На уроке мы решили ряд полезных задач. Например.

Задача 6. Заполнить случайным образом двумерный массив размерности n x n. Подсчитать количество чётных элементов в каждой строке. Результат вывести на экран.

Решение:

program DvMas;
 var A: array[1..100,1..100] of integer;
   i, j, n, k: integer;
begin
 write ('n = '); readln (n);
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     A[i,j]:=random(100);
     write (A[i,j]:4);
    end;
    writeln;
  end;
  for i:=1 to n do
  begin
   k:=0;
   for j:=1 to n do
    if (A[i,j] mod 2=0) and (A[i,j]<>0) then k:=k+1;
   writeln ('Строка ', i ,', чётных эл-ов - ', k)
   end;
end.

Домашняя работа.
Задача 7. Заполнить случайным образом двумерный массив размерности n x n. Обнулить чётные элементы (делятся на два). Вывести на экран исходный и итоговый массив.

Посмотрите на предыдущую задачу - это поможет вам в решении задачи 7.