Урок 11. Подготовка к районной олимпиаде

1. Рассмотреть решение ДЗ

program case18;
var a, a0,a1,a2: integer;
s:string;
begin
writeln('Дано целое число в диапазоне 100–999. Вывести строку-описание данного числа, например: 256 — «двести пятьдесят шесть», 814 — «восемьсот четырнадцать».');
write('Введите целое число от 100 до 999: ');
read(a);
a2:=a div 100;
case a2 of
1 : s:='сто ';
2 : s:='двести ';
3 : s:='триста ';
4 : s:='четыресто ';
5 : s:='пятьсот ';
6 : s:='шестьсот ';
7 : s:='семьсот ';
8 : s:='восемьсот ';
9 : s:='девятьсот ';
end;
a1:=a div 10 mod 10;
a0:=a mod 10;
if (a1<>1) then    begin
            case a1 of
             0 : s:=s;
             2 : s:=s+'двадцать';
             3 : s:=s+'тридцать';
             4 : s:=s+'сорок';
             5 : s:=s+'пятьдесят';
             6 : s:=s+'шестьдесят';
             7 : s:=s+'семьдесят';
             8 : s:=s+'восемьдесят';
             9 : s:=s+'девяносто';
            end;
            case a0 of
             0 : s:=s;
             1 : s:=s+' один';
             2 : s:=s+' два';
             3 : s:=s+' три';
             4 : s:=s+' четыре';
             5 : s:=s+' пять';
             6 : s:=s+' шесть';
             7 : s:=s+' семь';
             8 : s:=s+' восемь';
             9 : s:=s+' девять';
            end;
                  end
          else  begin
            case a0 of
             0 : s:=s+' десять';
             1 : s:=s+' одиннадцать';
             2 : s:=s+' двенадцать';
             3 : s:=s+' тринадцать';
             4 : s:=s+' четырнадцать';
             5 : s:=s+' пятнадцать';
             6 : s:=s+' шестнадцать';
             7 : s:=s+' семнадцать';
             8 : s:=s+' восемнадцать';
             9 : s:=s+' девятнадцать';
            end;
                 end;
if (a<100) or (a>999) then writeln ('Вы ввели неверное число: ')
                      else writeln ('Вы ввели число ',s);
end.

2. Решение олимпиадных задач прошлых лет

Задача "Гостиница" 2011 г.

Для проверки (решения) используем следующую таблицу:

Задача "Треугольная таблица" 2012 г.

3. Домашнее задание (олимпиадная задача)

Или задача из электронного учебника: case19.

Урок 10. Оператор выбора CASE

1. Проверка ДЗ

Рассмотреть решение задач  if23, if30.

2. Сложные условия

Выполнить задания (вместе, стр.18):

Boolean24;

...

Boolean33.

3. Оператор CASE

Оператор выбора работает следующим образом. Сначала вычисляется значение переключателя, выражения, стоящего после зарезервированного слова case, а затем выполняется оператор (или составной оператор), соответствующий результату вычисления переключателя. 

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

case переключатель of
значение1 : оператор (группа операторов);
значение2 : оператор (группа операторов);
. . . 
значениеN : оператор (группа операторов)
else оператор (группа операторов);
end;
Рассмотрим решение задач case1, case3  (стр. 22).
Самостоятельно выполните задания: case2, case4.

Решаем вместе задачу case16.

4. Домашнее задание

Найдите решение задачи case18.

Урок 9. Сложные условия

1. Рассмотреть решение ДЗ

Были заданы упражнения if5 и if6.

2. Продолжаем составлять сложные условия

Выполнить задания (вместе, стр.18):
Boolean16;
...
Boolean23.

3. Решение задач по теме

Решаем вместе:
if12;
if21.
Решаете самостоятельно:
if13;
if22;
if29.

4. Домашнее задание

Выполните следующие задания: if23, if30.

Урок 8. Логические выражения. Условный оператор

1. Простые условия

Выполнить задания (вместе, стр. 17):

• Boolean1;
• Boolean2;
• Boolean3.

2. Сложные условия (союз not, and, or)

Выполнить задания (вместе):

• Boolean4;
• ...
• Boolean15.

3. Условные оператор

Полное ветвление, неполное ветвление, блок-схема.
Выполните задания (вместе, стр. 20):

• If1;
• If3.

Выполните задания (самостоятельно):

• If2;
• If4.

4. Домашнее задание

Выполните задания if5 и if6.