Нарисовать блок-схему к алгоритму. Цикл с постусловием Задача. Составить программу для планирования покупки в магазине товаров на сумму, не превышающую заданную величину. Решение Обозначим через x и k цену и количество товара, через p — заданную предельную сумму, через s — стоимость покупки. Начальное значение общей стоимости покупки s равна нулю. Значение предельной суммы вводится с клавиатуры. Необходимо повторять запрос цены и количества выбранного товара, определять его стоимость, добавлять ее в общую стоимость и выводить результат на экран до тех пор, пока стоимость не превысит предельную сумму p. Рrogram Exemple; Var x, k, p, s: integer; Begin Write ( ‘Предельная сума—‘); Readln (P); S: = 0; Repeat Write ( ‘Введите цену товара и его коли- кость: ‘); Readln (x, k) S = s + k * x; Writeln ( ‘стоимость покупки равна’, s) Until s> p; Writeln ( ‘стоимость покупки превысила предельную сумму! ‘); End.

Вопрос школьника по предмету Информатика

Нарисовать блок-схему к алгоритму. Цикл с постусловием
Задача. Составить программу для планирования покупки в магазине товаров на сумму, не превышающую заданную величину.

Решение
Обозначим через x и k цену и количество товара, через p — заданную предельную сумму, через s — стоимость покупки.
Начальное значение общей стоимости покупки s равна нулю. Значение предельной суммы вводится с клавиатуры.
Необходимо повторять запрос цены и количества выбранного товара, определять его стоимость, добавлять ее в общую стоимость и выводить результат на экран до тех пор, пока стоимость не превысит предельную сумму p.

Рrogram Exemple;
Var x, k, p, s: integer;
Begin
Write ( ‘Предельная сума—‘);
Readln (P);
S: = 0;
Repeat
Write ( ‘Введите цену товара и его коли-
кость: ‘);
Readln (x, k)
S = s + k * x;
Writeln ( ‘стоимость покупки равна’, s)
Until s> p;
Writeln ( ‘стоимость покупки превысила предельную
сумму! ‘);
End.

Ответ учителя по предмету Информатика

Ответ:

привет, ответ на фотографии