1. solvetop.com
  2. Информатика
  3. Напишите программы на языке...

Напишите программы на языке Паскаль по алгоритмам из 3 и 4 предыдущего параграфа. Затем выполните эти программы

  • 13
Напишите программы на языке Паскаль по алгоритмам из 3 и 4 предыдущего параграфа. Затем выполните эти программы на компьютере, который был описан в параграфе 4. Допустим, вы посетили магазин и купили 10 различных товаров. В таблицу t[1:10] вы запишите количество купленных товаров каждого вида, а в таблицу c[1:10] запишите цены единиц каждого товара соответственно. Составьте алгоритм для вычисления общей стоимости всех покупок.

Для тех же исходных данных, которые рассматриваются в параграфе, составьте алгоритм, в котором будут вычислены четыре значения: средние температуры зимних и весенних месяцев.

Рекомендуется сохранять верные ответы и всегда делиться с друзьями, ведь они могут тебе ещё пригодиться!

Telegram Whatsapp ВКонтакте
Tainstvennyy_Mag
19
Алгоритм для вычисления общей стоимости всех покупок можно записать на языке Паскаль следующим образом:



program TotalCost;



const

  N = 10; { количество товаров }



var

  t: array[1..N] of integer; { количество купленных товаров }

  c: array[1..N] of real; { цены единиц товаров }

  totalCost: real; { общая стоимость всех покупок }

  i: integer;



begin

  totalCost := 0; { инициализация общей стоимости }



  { чтение данных }

  for i := 1 to N do

  begin

    write("Введите количество купленных товаров ", i, ": ");

    readln(t[i]);

    write("Введите цену единицы товара ", i, ": ");

    readln(c[i]);

  end;



  { расчет общей стоимости }

  for i := 1 to N do

  begin

    totalCost := totalCost + t[i] * c[i];

  end;



  { вывод общей стоимости }

  writeln("Общая стоимость всех покупок: ", totalCost:0:2);

end.


Теперь давайте перейдем к алгоритму для вычисления средних температур зимних и весенних. Предположим, что у нас есть массив температур `temps` длиной 12 элементов, где первые 6 элементов соответствуют зимним месяцам, а оставшиеся 6 элементов - весенним месяцам.



program AverageTemperatures;



const

  N = 12; { общее количество месяцев }



var

  temps: array[1..N] of real; { массив температур }

  winterSum, springSum: real; { суммы температур в зимних и весенних месяцах }

  winterAvg, springAvg: real; { средние температуры в зимних и весенних месяцах }

  i: integer;



begin

  winterSum := 0; { инициализация суммы зимних температур }

  springSum := 0; { инициализация суммы весенних температур }



  { чтение данных }

  for i := 1 to N do

  begin

    write("Введите температуру за месяц ", i, ": ");

    readln(temps[i]);

  end;



  { расчет суммы температур для зимних и весенних месяцев }

  for i := 1 to 6 do

  begin

    winterSum := winterSum + temps[i];

  end;

  for i := 7 to 12 do

  begin

    springSum := springSum + temps[i];

  end;



  { расчет средних температур }

  winterAvg := winterSum / 6;

  springAvg := springSum / 6;



  { вывод средних температур }

  writeln("Средняя зимняя температура: ", winterAvg:0:2);

  writeln("Средняя весенняя температура: ", springAvg:0:2);

end.


Теперь вы можете выполнить эти программы на компьютере, описанном в параграфе 4, чтобы получить результаты. Удачи в изучении языка Паскаль!