понедельник, 28 ноября 2011 г.

Урок 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. ДЗ для подготовки к олимпиаде
Следующее занятие - подготовка к районной олимпиаде по программированию. Можно не посещать это занятие тем, кто не идет на олимпиаду.

Комментариев нет:

Отправить комментарий