Оператор цикла с условием

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

while условие do команды;

>

<

=

<>

>=

<=

Формат команды «While»:

while условие do оператор; 

При выполнении команды «While» сначала проверяется условие. Если оно истинно, то выполняются команды, входящие в тело цикла, затем условие проверяется снова, и т. д. Таким образом, команды цикла выполняются до тех пор, пока условие истинно. Если условие ложно, то цикл заканчивается.

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

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

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

Задание 2. С клавиатуры вводится последовательность чисел. Ввод заканчивается, когда пользователь ввёл ноль. Найдите сумму введённых чисел.

VAR X,S:INTEGER;

BEGIN

 WRITELN('ВВОДИТЕ ЧИСЛА. ПОСЛЕ ЧИСЛА НАЖИМАЙТЕ КЛАВИШУ ENTER.ВВОД ЗАКОНЧИТСЯ ПОСЛЕ ТОГО, КАК ВЫ ВВЕДЁТЕ 0');

Задание 3. С клавиатуры вводится последовательность чисел. Ввод заканчивается, когда пользователь ввёл 21. Найдите сумму введённых чисел.

Задание 4. С клавиатуры вводится последовательность чисел. Ввод заканчивается, когда пользователь ввёл любое отрицательное число. 

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

Подсказка.  Как изменяется количество чисел при каждом введённом числе?

Использование условий. Цикл с предусловием

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

ЗАКРЕПЛЕНИЕ МАТЕРИАЛА

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

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

Задание 3. Упр. 4а стр. 74 до конца

Задание 4. Упр. 4в стр. 74 

Задание 5. Упр. 4б стр. 74 

Обобщающее занятие по теме «Алгоритмы обработки строковых величин»

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

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

var s:string;

    ns:integer;

begin

  readln(s);

  ns:=pos('... ',s);{ищем  слово, которое будем заменять}

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

             begin

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

             ...('...',s,...);{вставляем новое слово}

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

            end;

writeln(s);                          

end.

ТЕСТ

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

Задание 1. Запустите Паскаль.

 

Задание 2. Выполнить программу. Определить, что она делает.

var s, i: string;

     np:integer;

begin

    writeln('Введите имя и фамилию в строку через пробел');

    readln(s);

    np:=pos(' ',s);

    i:=copy(s,1,np-1);

    writeln(i);

end.

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

Пример: 

Ввод: 17 мая

Вывод: 17 

Понятие о каскадных таблицах стилей

 

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

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

Задание 1. 

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

2. Выберите Синтаксисы/C/CSS

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

Задание 2-3. 

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

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

3. Скопируйте в свою папку файл knigi.html  Можно открыть сво     файл  knigi.

4. Добавьте в этот файл knigi.html строку

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

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

Оформление так себе: текст плохо читается.

7. Измените цвет так, чтобы текст читался хорошо.

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

 

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

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

Задание 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.  Добавьте строку в таблицу. 

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

Список