Урок 55-56. Решение задач с оператором While

 Дата проведения занятия 27.04.22

Часть 1. Видеоконференция

1. Повторяем операции div, mod

1. Как проверить, делится ли число на 7? на 3? на 19?
2. Как проверить, является ли число нечетным?
3. Как выделить младшую цифру любого числа?
4. Как выделить старшую цифру любого числа? Что еще надо узнать об этом числе?
5. Как выделить среднюю цифру трехзначного числа?
6. Решить примеры

x1:=512 div 10

x2:=236 div 5

x3:=236 div 100

x4:=4095 mod 2

x5:=2346 mod 10

x6:=2346 div 1000

 

2. Вспоминаем, какие существуют алгоритмические конструкции

следование

ветвление

цикл

 

3. Продолжаем решать задачи с использованием цикла While
Давайте посмотрим, как по-разному решают одну и ту же задачу человек и компьютер.

   Задача: найти сумму пяти чисел:  5  15  7  12  3

Человек напишет так: Sum = 5+15+7+12+3 Sum =42

Компьютер одновременно может работать только с двумя объектами. Поэтому у него получится так: Sum:=0; Sum:=Sum+5;    // взять старое значение Sum:=0 и увеличить на 5 Sum:=Sum+15;  // взять старое значение Sum:=5 и увеличить на 15 Sum:=Sum+7;   //  взять старое значение Sum:=20 и увеличить на 7 Sum:=Sum+12;  // взять старое значение Sum:=27 и увеличить на 12 Sum:=Sum+13; //  взять старое значение Sum:=39 и увеличить на 3 Writeln (Sum);  //  вывести результат 42

Что же мы видим?
Компьютер несколько раз повторяет одни и те же действия:
"взять старое значение Sum и увеличить на Х"
Так это же цикл!

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

Задача While_kassa. Вычислить общую стоимость покупки, в которую входит 5 различных товаров. Стоимость очередного товара вводится командой read. Во время работы программы выводить промежуточные суммы. В конце работы вывести общую стоимость покупки

Блок-схема

Программа program while_kassa; var  sum: real;// общая стоимость покупки var  num: real;// стоимость одного товара var  j: integer; begin   writeln('Проходите на кассу');   sum := 0; //вы еще ничего не купили   j := 1;   while j <= 5 do   begin     write('Введите стоимость товара:');     readln(num);  // стоимость товара     sum := sum + num; // это промежуточная стоимость покупки     writeln(sum); // выводим промежуточную стоимость     j := j + 1;  //   end;   writeln('стоимость покупки = ', sum ); end.

Часть 2. Самостоятельная работа

Выполните самостоятельную работу. В электронной почте прочтите письмо с вашим  вариантом. Решение вы выполняете в своих тетрадях, завтра отнесете тетрадь своему учителю информатики.

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

• Принести 28.04.22 и сдать своему учителю информатики тетрадь с выполненной самостоятельной  работой 
• Если что-то не получилось, написать письмо учителю информатики.
  Тема письма: 8 кл ДЗ к уроку Паскаль  5 <ваша фамилия>