Дополнительное задание 1 Параграф 20 ГДЗ Семакин 9 класс (Информатика)
Решение #1
![Изображение ЕК ЦОР: Часть 2, глава 6, §42, ЦОР №3Домашнее задание №28Тема: Массивы в Паскале1. Вы посетили магазин и купили 10 видов товара. В таблицу T[1:10] вы записали...](/reshebniki/informatika/9/semakin/images1/20/dop1.png "Изображение ответа ЕК ЦОР: Часть 2, глава 6, §42, ЦОР №3Домашнее задание №28Тема: Массивы в Паскале1. Вы посетили магазин и купили 10 видов товара. В таблицу T[1:10] вы записали...")
Рассмотрим вариант решения задания из учебника Семакин, Залогова 9 класс, Просвещение:
ЕК ЦОР: Часть 2, глава 6, §42, ЦОР №3
Домашнее задание №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.
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением
