Задание 5 Параграф 20 ГДЗ Семакин 9 класс (Информатика)

program SredTemperature;
var
Tsred: array[1..12] of real;
TsrWi, TsrSp, TsrSu, TsrFu: real;
i: integer;
begin
for i := 1 to 12 do
begin
write(‘Tsred[‘, i, ‘] =’);
readln(Tsred[i]);
end;
TsrWi := (Tsred[12] + Tsred[1] + Tsred[2]) / 3;
TsrSp := (Tsred[3] + Tsred[4] + Tsred[5]) / 3;
TsrSu := (Tsred[6] + Tsred[7] + Tsred[8]) / 3;
TsrAu := (Tsred[9] + Tsred[10] + Tsred[11]) / 3;
writeln(‘Средняя температура зимой > > ‘, TsrWi:2:2);
writeln(‘Средняя температура весной > > ‘, TsrSp:2:2);
writeln(‘Средняя температура летом > > ‘, TsrSu:2:2);
writeln(‘Средняя температура осенью > > ‘, TsrAu:2:2);
end.
program stoimost;
var
T: array[1..10] of integer;
C: array[1..10] of real;
s: real;
i: integer;
begin
writeln(‘Введи количество 10 товаров’);
for i := 1 to 10 do
read(T[i]);
writeln(‘Введи через пробел стоимости товаров’);
for i := 1 to 10 do
read(C[i]);
s := 0;
for i := 1 to 10 do
s := s + T[i] * C[i];
writeln(‘Стоимость покупки =’, s:6:2, ‘рублей’)
end.

Составим две программы на Паскале по данным алгоритмам.

В первой программе вводятся средние температуры по месяцам, затем вычисляются средние температуры по временам года:

$$T_{\text{зима}}=\frac{T_{12}+T_1+T_2}{3}$$

$$T_{\text{весна}}=\frac{T_3+T_4+T_5}{3}$$

$$T_{\text{лето}}=\frac{T_6+T_7+T_8}{3}$$

$$T_{\text{осень}}=\frac{T_9+T_{10}+T_{11}}{3}$$

program SredTemperature;
var
  Tsred: array[1..12] of real;
  TsrWi, TsrSp, TsrSu, TsrAu: real;
  i: integer;
begin
  for i := 1 to 12 do
  begin
    write(‘Tsred[‘, i, ‘] =’);
    readln(Tsred[i]);
  end;
  TsrWi := (Tsred[12] + Tsred[1] + Tsred[2]) / 3;
  TsrSp := (Tsred[3] + Tsred[4] + Tsred[5]) / 3;
  TsrSu := (Tsred[6] + Tsred[7] + Tsred[8]) / 3;
  TsrAu := (Tsred[9] + Tsred[10] + Tsred[11]) / 3;
  writeln(‘Средняя температура зимой >> ‘, TsrWi:2:2);
  writeln(‘Средняя температура весной >> ‘, TsrSp:2:2);
  writeln(‘Средняя температура летом >> ‘, TsrSu:2:2);
  writeln(‘Средняя температура осенью >> ‘, TsrAu:2:2);
end.

Во второй программе вводятся количества и стоимости 10 товаров, после чего находится общая стоимость покупки:

$$S=\sum_{i=1}^{10} T_i \cdot C_i$$

program stoimost;
var
  T: array[1..10] of integer;
  C: array[1..10] of real;
  s: real;
  i: integer;
begin
  writeln(‘Введи количество 10 товаров’);
  for i := 1 to 10 do
    read(T[i]);
  writeln(‘Введи через пробел стоимости товаров’);
  for i := 1 to 10 do
    read(C[i]);
  s := 0;
  for i := 1 to 10 do
    s := s + T[i] * C[i];
  writeln(‘Стоимость покупки =’, s:6:2, ‘рублей’);
end.

Ответ

Составлены две программы на Паскале: для вычисления средних температур по временам года и для нахождения стоимости покупки по массивам количеств и цен товаров.