Оператор цикла

 

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

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

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

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

Задание 3.  Измените программу, чтобы у вас выводилось ваше имя в строку через пробел 25 раз. Команда для вывода в строку write.

Задание 4. Составьте программу, выводящую на экран  кубы чисел от 1 до 9. Сначала в прямом порядке, затем в обратном. Для перехода на новую строку служит оператор writeln.

Образец вывода:

1 8 ... 729

729 .. 8 1

Задание 5. Составить программу, которая выводит таблицу умножения на любое число. Число пользователь вводит с клавиатуры.

Ввод

5

Вывод

5*1=5

5*2=10

...

5*10=50

ИГРАЕМ

Составление алгоритмов обработки строковых величин

 

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

Задача 1. В строке вида логин:пароль@сервер. Заменить каждый символ пароля *.

Ввод:

masha:123456@qwe.biz

Вывод:

masha:******@qwe.biz

РЕШЕНИЕ ЗАДАЧ

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

Задача 3. Дана строка вида имя пользователя@логин#пароль/ник Замените каждый символ пароля %

Задача 4.

Разберите решение задачи.

Задача. Дана строка вида. Посчитайте сколько цифр в строке.

var s:string;

     k, m:integer {кол-во цифр в строке};

begin

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

  readln(s);

  k:=0;

  for m:=1 to length(s) do

                                   if (s[m]>=’0’) and (s[m]<=’9’) then k:=k+1 ; {если символ цифра, то увеличиваем кол-во на 1}

  writeln(k);

end.

Решите задачу. Дана  строка символов. Проверить, является ли строка записью целого числа. Число вводится без пробелов.

Примеры

Ввод:

100010

Вывод:

является

Ввод:

27 арбузов

Вывод:

не является

Подсказка.

1. Если ввели только цифры, то количество цифр совпадёт с длиной строки.

Задача 5. Дана  строка символов. Проверить, является ли строка записью числа. Число может быть записано с пробелом, например, 100 000, число может быть дробным, например, 5,2

Примеры

Ввод:

100010

Вывод:

является

Ввод:

11,5

Вывод:
является

Ввод:

27 арбузов

Вывод:

не является

ДЗ

Задача. Проверить, является ли строка записью числа римскими цифрами.

Ввод:

XХIV

Вывод:
является

Ввод:

Лето 2000 года

Вывод:

не является

ДОМАШНЕЕ ЗАДАНИЕ

Элементы оформления веб-страниц

 

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

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

Задание 1. 

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

2. Выберите Синтаксисы/H/Html

3. Сохраните документ с именем knigi. Тип файла Html

Задание 2. 

1.  Создайте код. Цвет страницы и цвет текста выбирайте любые, но они должны быть контрастными.

2. Сохраните изменения в документе Файл/Сохранить.

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

Примерный результат

Задание 3.  Добавьте строку в таблицу. 

Блогеры, на которых я подписан

Список

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

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

if  условие then

                     begin

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

                    end

                 else

                  begin

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

                 end;

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

if  условие then

                     begin

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

                    end;

               

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

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

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

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

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

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

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

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

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

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

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

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

Пример ввода- вывода:

Ввод

119

Вывод

трёхзначное

Ввод

10

Вывод

нетрёхзначное

Ввод

5000

Вывод

нетрёхзначное

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

var  k,m,n:...;

begin

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

  readln(n);

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

  ...

end.

ИГРАЕМ

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

 Массивы

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

 

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

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

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

Задание 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.