Урок 9. Зачет по теме Ветвление и оператор выбора

1. Рассмотреть решение ДЗ
Показать решение задачи 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:='девятьсот ';
else write('Вы ввели неверное число');
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+'девяносто';
            else write('Вы ввели неверное число');
            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+' девять';
             else write('Вы ввели неверное число');
            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+' девятнадцать';
             else write('Вы ввели неверное число');
           end;
                 end;
writeln ('Вы ввели число ',s);
end.


2. Зачет
Список задач из блока "Ветвление": 1-11, 13, 14, 16-22, 24, 26, 28.
Список задач из блока "Выбор": 3-15, 17, 19, 20.

3. ДЗ для подготовки к олимпиаде

Следующее занятие - подготовка к районной олимпиаде по программированию. Можно не посещать это занятие тем, кто не идет на олимпиаду.

Урок 8. Условный оператор. Оператор выбора

1. Рассмотреть решение ДЗ
Задача if27
var x: real;
var y: integer;
begin
writeln('Программа находит значение функции');
write('Введите аргумент): ');
read(x);
if  (x<0) then  y:=0;
if  (trunc(x)mod 2 =0) then  y:=1;
if  (trunc(x)mod 2 =1) then  y:=-1;
writeln('y=',y);
end.


Задача if29
var x: integer;
begin
writeln('Программа выводит строку-описание вида «отрицательное четное число»,«нулевоечисло»,«положительное нечетное число» и т.д.');
write('Введите целое число: ');
read(x);
if  (x=0) then  write('Нулевое число');
if  (x<0)and(x mod 2=0) then  write('Отрицательное четное число');
if  (x<0)and(x mod 2<>0) then  write('Отрицательное нечетное число');
if  (x>0)and(x mod 2=0) then  write('Положительное четное число');
if  (x>0)and(x mod 2<>0) then  write('Положительное нечетное число');
end.

2. Самостоятельно решите задачу if30

3. Оператор выбора CASE

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

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

case выражение of
значение1 : оператор (группа операторов);
значение2 : оператор (группа операторов);
. . . 
значениеN : оператор (группа операторов)
else оператор (группа операторов);
end;

Рассмотрим его использование на примере следующих задач (стр. 22 электронного учебника): case1.pas, case16.pas.

4. Домашнее задание
Напишите программы для решения следующих задач: case2.pas, case18.pas.

Урок 7. Условный оператор

1. Рассмотреть решение "Задачи ни каникулы"
Для проверки правильности работы программы можно протестировать ее по следующей таблице:

С этой задачей успешно справились двое наших учащихся: Мысливцев Андрей и Иванов Антон.
2. Решение задач на ветвление
Пишем вместе программы для решения задач: if25, if12, if23. Для решения задач необходимо нарисовать блок-схему.

3. Самостоятельное программирование.
Напишите программы для решения задач: if15.

4. Домашнее задание
Напишите программы для решения задач: if27, if29.