Реализация алгоритмов работы с целочисленными данными

 

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

ИГРАЕМ

Задача. Робинзон Крузо провёл на острове k дней. Сколько полных недель и дней он пробыл на острове?

Например, Робинзон Крузо провёл 37 дней. Это составило 5 недель и 2 дня.

СОСТАВЛЯЕМ ПРОГРАММЫ

Задание 1. Запустить программу PascalABC.NET

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

var k:integer;

begin

 writeln('Сколько дней жил Робинзон на острове?');

 readln(k);

 writeln('Недель ',k div 7);

Задание 3. Робинзон Крузо провёл на острове k дней. Сколько полных недель и дней он пробыл на острове? Цвилизация оказалось неземной и в  неделе там было  11 дней.

Задание 4. Дано двузначное число. Найдите его первую цифру.

Шаг 1. Посчитайте и запишите примеры и ответы в тетрадь

а) 27 div 10 =

б) 85 div 10 =

в) 12 div 10 = 

г) 51 div 10 =

Шаг 2. Посмотрите на примеры и результаты. Сделайте вывод. Как можно выделить первую цифру двузначного числа? 

число div ...

Шаг 3. Обозначим число через a. Тогда операцию по выделению первой цифры числа можно записать так ... div 10

Шаг 4. Дополните и выполните программу

var a, z1 :integer; {z1 - первая цифра двузначного числа}

begin

 writeln('Введите двузначное число ');

 readln(...);

  z1:=a div ...

  writeln(z1);

end.

Задание 5. Упр. 3 п. 1 стр. 107. Для нахождения последней цифры двузначного числа можно использовать операцию mod 10.

var a, z1,z2 :integer; {z1 - первая цифра двузначного числа, z2 - вторая}

begin

 writeln('Введите двузначное число ');

 readln(...);

  z1:=...

  z2:=...

  writeln(...);

end.