Оператор ветвления

ПРЕЗЕНТАЦИЯ К УРОКУ

if  условие then

                     begin

              набор команд, которые выполняются если условие верно

                    end

                 else

                  begin

           набор команд, которые выполняются если условие верно

                 end;

НЕПОЛНАЯ ФОРМА

if  условие then

                     begin

              набор команд, которые выполняются если условие верно

                    end;

               

Если после then или else стоит только одна команда, то операторные скобки begin и end не обязательны.

Порядок выполнения оператора If

1. Вычисляется значение условия.

2. Если условие истинно, выполняются команды, следующим за словом then.

Если условие ложно, выполняются команды, следующим за словом else.

3. Управление передается командам, следующим за условным оператором.

ВНИМАНИЕ! Перед else точка с запятой не ставится.

Задание. Компьютер спрашивает, сколько  книг ты читаешь в месяц?  Если больше 2, то на экране появляется надпись «Хорошо!», иначе «Может, стоит читать больше?». 

СОСТАВЛЕНИЕ ПРОГРАММ

Задание 1. Запустите PascalAbcNet

Задание 2. Набрать и выполнить программу из классной работы.

Задание 3.  Компьютер спрашивает, сколько  времени вы сидите в телефоне?  Если меньше  30 минут, то на экране появляется надпись «Хорошо!», иначе «Может, стоит поискать другие  интересные дела?». 

Задание 4. Вводится число. Надо определить, является ли оно трёхзначным.

Задание 5. В магазине Вам надо заплатить N рублей. Вы подаете продавцу m купюр по k рублей. Определите сколько денег Вам надо добавить или сколько Вам должны дать сдачи, или возможно вы дали нужную сумму денег.

var  k,m,n:...;

begin

  writeln('Введите сумму покупки');

  readln(n);

  writeln('Сколько купюр дал человек'); 

  ...

end.

*3 детей играли в игру. Каждый в ходе игры набирал определённое количество баллов. Найдите максимум игроков.

ИГРАЕМ

Преобразование элементов массива

 Массивы

Алгоритмическая конструкция «повторение»

 

ПРЕЗЕНТАЦИЯ К УРОКУ

ИГРАЕМ И ПОВТОРЯЕМ

СОСТАВЛЯЕМ ПРОГРАММЫ ДЛЯ ИСПОЛНИТЕЛЯ РОБОТ

Задание 1. Запустите программу PascalABC.NET. Ярлык вы найдёте на Рабочем столе или в меню Пуск Обратите внимание на чёрные буквы net в правом нижнем углу значка

Задание 2. Наберите и выполните программу из классной работы. Покажите учителю

Задание 3. Составьте программу для решения задачи с3 (обстановку можно посмотреть в упр. 3 стр. 67). Покажите учителю.

Задание 4. Составьте программу для решения задачи с8 (обстановку можно посмотреть в упр. 5 стр. 67).  Покажите учителю.

Задание 5. Составьте программу для решения задачи с14.  Покажите учителю.

Вставка в строку

ИГРАЕМ И ПОВТОРЯЕМ

ПРЕЗЕНТАЦИЯ К УРОКУ

Задача. Дана строка: логин@адрес_сервера. Для сохранения данных пользователя решили в эту строку добавить пароль. Пароль добавляют перед собакой и перед самим паролем ставится :

Строка должна принять вид: логин:пароль@адрес_сервера.

Пример

Входные строки:

CoolUser@ftp.erunda.ru

parol

Вывод: CoolUser:parol@ftp.erunda.ru

СОСТАВЛЕНИЕ ПРОГРАММ

Задание 2. Набрать и выполнить программу из классной работы.

Входные строки:

CoolUser@ftp.erunda.ru

parol

Вывод: CoolUser:parol@ftp.erunda.ru

var s,p:string;

    ns:integer;

begin

 writeln('Введите строку вида логин@адрес_сервера');

 readln(s);

 writeln('Введите пароль');

 readln(p);

 ...

end.

Задание 3. В строку   ФИО&Суммарный балл добавить  после ФИО часть ^Средний балл 

Должна получиться строка вида ФИО^Средний балл&Суммарный балл

Пример

Входые данные: 

ИвановИ.И&27

8,9

Вывод:  ИвановИ.И.^8,9&27

Задание 4. Дан текст. Один из его фрагментов выделен группами символов ##. Заменить выделение группами символов ‘<‘ и ‘>’. 

Пример: 

Входная строка: Это ##тестовый пример## для задачи на строки.

Вывод: Это <тестовый> пример для задачи на строки.

Задание 5. Заменить в тексте слово «ноябрь» на «декабрь».  Слова в тексте отделяются друг от друга пробелами. В конце текста тоже стоит пробел.

var s:string;

    ns:integer;

begin

  readln(s);

  ns:=..{ищем,  с какого символа начинается  слово «ноябрь»}

  while ns... do {повторяем действия пока в тексте есть это слово}

             begin

             ... {удаляем слово}

             ...{вставляем новое слово}

             ...{ищем снова слово}   

            end;

writeln(s);                          

end.

Теги и атрибуты. Гиперссылки

ПРЕЗЕНТАЦИЯ К УРОКУ

ПРАКТИЧЕСКАЯ РАБОТА

Задание 1. 

1. Загрузите Notepad+++.

2. Сохраните документ с именем kobrin. Тип файла html

Задание 2. 

1. Выберите Синтаксисы/H/HTML

2.  Создайте код

3.  Сохраните изменения в файле Файл/Сохранить.

4. Откройте страницу через бразуер. Для этого зайдите в свою папку и откройте файл двойным щелчком. Проверьте работу ссылки.

Мы создали ссылку на страницу музея.

Задание 3. 

1. Добавьте ссылки ещё на 2 ваших любимых места в Кобрине. Текст можно продолжить так: «Затем отправляйтесь...».

2. Сохраните изменения в файле.

3. Откройте страницу через бразуер. Для этого зайдите в свою папку и откройте файл двойным щелчком. Проверьте работу ссылок.

Простые и составные условия. Логический тип данных

ПРЕЗЕНТАЦИЯ К УРОКУ

Простое условие – это два выражения, связанные одним из знаков отношений:  <, >, <=, >=, =, <>.

Составное условие — это условие, состоящее из двух или более простых условий, соединённых с помощью логических операций: and (и), or (или), not (не).

Примеры:

2 числа положительны - (x>0) and (y>0)

хотя бы одно из чисел положительно - (x>0) or (y>0)

число не кратно 5 - not (x mod 5 =0)

Условие, состоящее из простых условий, соединенных and, верно только тогда, когда верны все простые условия.

Условие, состоящее из простых условий, соединенных  or, верно тогда, когда верно хотя бы одно из простых условий.

ПРАКТИЧЕСКАЯ ЧАСТЬ

Задание 1-3. Играем. У вас будет 3 игры. Результат 3 игры показываем учителю.

Использование подпрограмм при составлении и реализации алгоритмов для компьютерного исполнителя

 ПРЕЗЕНТАЦИЯ К УРОКУ

ПРАКТИЧЕСКАЯ РАБОТА

Задание 1. Запускаем программу PascalABC.NET. Ярлык вы найдёте на Рабочем столе или в меню Пуск Обратите внимание на чёрные буквы net в правом нижнем углу значка

Задание 2. Набрать и выполнить программу, над которой сегодня работали вместе. Для выполнения программы можно нажать клавишу F9.

uses robot;

 ... z;

 begin

  paint; down; paint; right;

  paint; up; paint;

 end;

 procedure p;

 begin

  right; right;

 end;

begin

 field(8,2);

 left;left;left;...;

 up;

 z;p;

...

end.

Задание 3. Измените программу так, чтобы Робот закрашивал 5 таких квадратов. 

1.  Вам надо изменить ширину поля: добавиться 2 квадрата шириной по 2 клеточки и 2 прохода ашириной в одну клетку, т. е. 8+2*2+2=14 клеток.

2. Изменится начальное положение Робота, ему надо пойти 7 раз влево, а не 4. 

....

begin

 field(14,2);

 left;

 left;

 left;

 left;

 left;

 left;

...

3. Добавить процедуры закраски и перехода. Перед end. надо добавить их имена.