Урок 49-50. Цикл While. Решение задач

Дистанционное обучение. Дата занятия 16.04.20
Срок выполнения задания до 22:00 час 16.04.20

   Продолжаем решать задачи с использованием цикла 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.

Задание на оценку 3: переписать и запустить задачу While_kassa, перерисовать блок-схему.
Прислать письмо с прикрепленными файлами: текста программы, скриншота экрана, фотографии блок-схемы
Задание на оценку 4-5: выполнить самостоятельную работу-ДОТ2