Blogspot для 12 роты

Зарегистрироваться в сервисе Blogspot.com
Придумать тематику блога (она может быть произвольной)
Придумать название и зарегистрировать блог
Выбрать один из предлагаемых шаблонов оформления
Написать несколько постов, в том числе:

• Пост с текстом с разным форматированем
• Пост с картинкой
• Пост с встроенным видео из YouTube
• Пост со ссылкой "Читать далее"
• Пост с гиперссылкой на другой сайт

Добавить в блог виджет Поиска
Изменить ширину блога до 1000 пикселей

Чемпионат по интернет-поиску

Сегодня с 11-50 в блоге начнётся чемпионат по интернет-поиску.

Для начала в комментариях к этому посту напишите свои фамилии, группу и номер компьютера, за которым сидите (считайте с компьютера, ближайшему к двери по часовой стрелке). Специально регистрироваться не надо, можно выбрать "Анонимный" при отправке комментария, главное - чтобы в тексте его всё, что нужно было написано.

Затем следите за главной страницей блога. Там раз в 5 минут будут появляться вопросы, ответы на которые нужно найти в интернете.
Ответ на вопрос должен состоять из:

• собственно ответа,
• ссылки на сайт, на котором вы его нашли, и
• номера компьютера за которым сидите.

Отправляйте ответы в комментарии к постам с вопросами.

Ваши комментарии до конца пары будут скрыты. Если комментарий отправится успешно, в блоге покажется сообщение: "Ваш комментарий будет опубликован после одобрения."
Подсчёт очков ведётся по схеме:
1й правильный ответ - 12 баллов,
2й правильный ответ - 10 баллов,
3й и т.д.: 9, 8, 7, 6, и т.д. баллов.

Pascal для 61 роты

Начнём использовать массивы

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 //создадим массив из 10 элем элементов
var a:array[1..10] of integer;
i:integer;

begin
  Writeln('Pishem v massiv chisla on 1 do 10');
  //пробегаем по элементам массива
  for i := 1 to 10 do
   begin
     a[i] := i;//заполняем его числами от 1 до 10
   end;

  Writeln('Vot, chto v massive:');
  //теперь выведем их на экран
  for i := 1 to 10 do
   begin
     Writeln(a[i]);//выводим элементы на экран
   end;

 Readln;//Обязательная команда, чтобы программа не закрывалась внезапно
end.

Работает? Теперь будем расширять. Новая программа будет заполнять массив случайными числами, находить их сумму, максимальное из них и минимальное



program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 //создадим массив из 10 элем элементов
var a:array[1..10] of integer;
  i:integer;
  s:integer;
  mx:integer;
  mn:integer;
begin
  Writeln('Pishem v massiv sluchajnye chisla');
  //пробегаем по элементам массива
  for i := 1 to 10 do
   begin
     a[i] := random(100);//заполняем его случайными числами от 0 до 99
   end;

  Writeln('Vot, chto v massive:');
  //теперь выведем их на экран
  for i := 1 to 10 do
   begin
     Writeln(a[i]);
   end;

//ищем сумму. вначале она равна 0
  s:=0;

  for i := 1 to 10 do
   begin
     s:=s+a[i];
   end;

  Writeln('summa ravna ', s);

//Теперь ищем максимум и минимум. Вначале они оба равны первому элементу

 mx:=a[1];

 mn:=a[1];

for i := 2 to 10 do
   begin
//Если находится элемент, который больше текущего максимума текущий масимум поднимаем
      if a[i] > mx then
        mx := a[i];
//Если находится элемент, который меньше текущего минимума текущий минимум поднимаем

      if a[i] < mn then
        mn := a[i];

   end;

  Writeln('minimum raven ', mn);

  Writeln('maximum raven ', mx);

 Readln;
end.

Подумайте самостоятельно, как сделать так, чтобы эти 10 чисел не генерировал компьютер, а вводил человек.

Blogspot для 42 роты

Задание:
Зарегистрироваться на сервисе Blogspot.com
Придумать название своего туристического агентства (для менеджеров по туризму) или авиакомпании (для менеджеров международных перевозок). Создать блог о своём предприятии.

Создать несколько страниц, заполнить их придуманной информацией о компании. Опубликовать несколько новостей (только, чтобы не вводить в заблуждение посетителей, укажите где-нибудь, что это курсантский проект)

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

MathCad для 60 роты