Question

СРСП Алгоритмы и ПРОГРАМИРОВАНИЕ 1) Условие задачи 2) введеные обозначения 3)Алгоритм решения задачи в виде блок схемы 4) Программа на языке Pascal в Worde ЗАДАЧА 4,29 В объединении 15 магазинов, для каждого из которых известны суммы остатков товаров на конец периода (в тыс.руб) Требуется найти а) общую сумму остатков по 15 магазинам б)удельный вес (в процентах) остатков каждого магазина в общей сумме остатков в)количество магазинов, удельный вес остатков которых превышает 12%

Answer 1

Const
  n=15;
var
  s:array[1..n] of real;
  st,p:real;
  i,k:integer;
begin
  Writeln('Введите ',n,' сумм остатков');
  st:=0;
  for i:=1 to n do
  begin Read(s[i]); st:=st+s[i] end;
  Writeln('Удельные веса остатков по магазинам');
  k:=0;
  for i:=1 to 15 do
  begin
    p:=s[i]/st*100;
    Writeln(i,' - ',p:0:1);
    if p>12 then Inc(k)
  end;
  Write('Количество магазинов с уд. весом остатков >12%, равно ');
  Writeln(k)
end.

Тестовое решение:
Введите 15 сумм остатков
0.37 1.5 2.11 3.4 9.3 2.89 4 0.85 0 0.73 4.2 5.05 3.5 2.18 0.94
Удельные веса остатков по магазинам
1 - 0.9
2 - 3.7
3 - 5.1
4 - 8.3
5 - 22.7
6 - 7.0
7 - 9.8
8 - 2.1
9 - 0.0
10 - 1.8
11 - 10.2
12 - 12.3
13 - 8.5
14 - 5.3
15 - 2.3
Количество магазинов с уд. весом остатков >12%, равно 2

Полное решение по заданию находится в файле формата MS Word-2003

Answer 2

Для решения этой задачи, вы можете использовать следующий алгоритм в виде блок-схемы и написать программу на языке Pascal.

1. Ввод данных:

   • Создайте массив, в котором будут храниться суммы остатков товаров для каждого магазина.
   • Заполните массив суммами остатков для каждого магазина.

2. Вычисление общей суммы остатков:

   • Объявите переменную "общаяСумма" и установите ее значение в 0.
   • Используйте цикл для прохода по всем элементам массива и добавления суммы остатков каждого магазина к "общаяСумма".

3. Вычисление удельного веса остатков каждого магазина в общей сумме:

   • Объявите массив "удельныйВес" для хранения удельных весов остатков каждого магазина.
   • Используйте цикл для прохода по всем элементам массива с суммами остатков и вычисления удельного веса каждого магазина, разделяя сумму остатков магазина на "общаяСумма" и умножая на 100%.

4. Нахождение количества магазинов с удельным весом остатков более 12%:

   • Объявите переменную "количествоМагазиновСПревышением" и установите ее значение в 0.
   • Используйте цикл для прохода по массиву "удельныйВес" и увеличивайте "количествоМагазиновСПревышением" на 1, если удельный вес магазина больше 12%.

5. Вывод результатов:

   • Выведите общую сумму остатков ("общаяСумма").
   • Выведите удельные веса остатков каждого магазина.
   • Выведите количество магазинов с удельным весом остатков более 12% ("количествоМагазиновСПревышением").

Вот программа на Pascal:

pascalCopy code
program ShopBalances;

var
  balances: array[1..15] of real;
  totalBalance, individualPercentage: real;
  countShopsWithExcess: integer;
  i: integer;

begin
  totalBalance := 0;
  countShopsWithExcess := 0;

  for i := 1 to 15 do
  begin
    write('Введите остаток для магазина ', i, ' (в тыс.руб): ');
    readln(balances[i]);
    totalBalance := totalBalance + balances[i];
  end;

  writeln('Общая сумма остатков по 15 магазинам: ', totalBalance:0:2);

  writeln('Удельные веса остатков каждого магазина в общей сумме:');
  for i := 1 to 15 do
  begin
    individualPercentage := (balances[i] / totalBalance) * 100;
    writeln('Магазин ', i, ': ', individualPercentage:0:2, '%');
    if individualPercentage > 12 then
      countShopsWithExcess := countShopsWithExcess + 1;
  end;

  writeln('Количество магазинов, удельный вес остатков которых превышает 12%: ', countShopsWithExcess);
end.

Эта программа выполняет задачу, описанную в вопросе, и выводит результаты на экран.