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

Домашнее задание №28
Тема: Массивы в Паскале
1. Вы посетили магазин и купили 10 видов товара. В таблицу T[1:10] вы записали количество купленного товара каждого вида. В таблицу C[1:10] записали цены единиц каждого вида товара соответственно. Составьте на Паскале программу вычисления общей стоимости всех покупок.
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.
2. Вы приобрели котёнка. Каждый вечер вы определяете его вес с помощью весов. Как можно описать на Паскале массив, в котором будут храниться значения веса котёнка в течение одного месяца (например, мая)?
var
B: array[1..31] of real; i:integer;
begin
for i := 1 to 31 do
read(B[i]);
end.
3. Напишите на Паскале программу, которая запрашивает с клавиатуры массив из N чисел, а затем выводит среднее арифметическое всех элементов массива.
program Z_3;
var
a: array[1..20] of integer;
n, s, i: integer;
sr: real;
begin
write(‘Введи количество чисел > ‘);
readln(n);
writeln(‘Введи ‘, n, ‘ целых чисел’);
s := 0;
for i := 1 to n do
begin
read(a[i]);
s := s + a[i];
end;
sr := s / n;
writeln(‘Среднее арифметическое ‘, n, ‘ чисел равно ‘, sr:6:2)
end.
4. Перепишите программу на Паскале, исправив ошибки:
Program massiv;
Var a:array(-10..10) of integer;
Begin
For i:=1 to 20 Do
Read(a[i]);
For i:=1 to 20 Do
a[i]:=a[i]/10;
For i:=1 to 20 Do
Write(a[i])
End.
program massiv;
var
a: array[1..20] of real;
i: integer;
begin
for i := 1 to 20 do
read(a[i]);
for i := 1 to 20 do
a[i] := a[i] / 10;
for i := 1 to 20 do
write(a[i]:6:2, ‘ ‘)
end.

1. Общая стоимость покупок находится как сумма произведений количества каждого товара на его цену:

$$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.

2. Для хранения веса котёнка в течение одного месяца можно описать массив из 31 элемента:

var
  B: array[1..31] of real;
  i: integer;
begin
  for i := 1 to 31 do
    read(B[i]);
end.

3. Среднее арифметическое находится по формуле:

$$\overline{x} = \frac{x_1 + x_2 + \dots + x_n}{n}$$

program Z_3;
var
  a: array[1..20] of integer;
  n, s, i: integer;
  sr: real;
begin
  write(‘Введи количество чисел > ‘);
  readln(n);
  writeln(‘Введи ‘, n, ‘ целых чисел’);
  s := 0;
  for i := 1 to n do
  begin
    read(a[i]);
    s := s + a[i];
  end;
  sr := s / n;
  writeln(‘Среднее арифметическое ‘, n, ‘ чисел равно ‘, sr:6:2);
end.

4. В исходной программе были ошибки в описании массива, отсутствии описания переменной i и в типе элементов массива. Исправленный вариант:

program massiv;
var
  a: array[1..20] of real;
  i: integer;
begin
  for i := 1 to 20 do
    read(a[i]);
  for i := 1 to 20 do
    a[i] := a[i] / 10;
  for i := 1 to 20 do
    write(a[i]:6:2, ‘ ‘);
end.

Ответ

1) Программа для вычисления общей стоимости покупок приведена выше.
2) B: array[1..31] of real;
3) Программа для вычисления среднего арифметического приведена выше.
4) Исправленная программа приведена выше.