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

 

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

ИГРАЕМ

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

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

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

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

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

var k:integer;

begin

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

 readln(k);

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

....

end.

Задание 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.