Алгоритмизация и программирование

1. Имеется информация о наличии N наименований продуктов на складе. Определить общее количество оборудования

1. Математическая постановка.

а) Обозначение переменных.

N – количество торгового оборудования.

i – номер оборудования

К(N) – наличие оборудования каждого вида

S – общее количество оборудования

б) Классификация по группам

N; K (N) – исходные данные

S – конечный результат

i – промежуточный результат

в) Типы переменных

N

i целые переменные.

К(N) integer

S

г) Расчетные формулы

S=0

i=1

S=S+K(i)

i=i+1

i ≤N, то выход из цикла.

2. Блок схема

3. Текст программы

Sub пример()

Dim i, N As Integer

Dim K() As Integer

N = InputBox (» количество торгового оборудования»)

ReDim K(N) As Integer

For i = 1 To N

K(i) = InputBox («наличие оборудования»)

Next

S = 0

For i = 1 To N

S = S + K(i)

Next

Debug. Print «общее количество оборудования =»; S

End Sub

4. Результат

Результат выполнения программы

2. По результатам продажи жилья за полгода администрацией области получена следующая информация

Город	Кол-во проданных квартир	Кол-во кв. м.	Сумма от продажи тыс. руб.
Мыски	34	2800	41870
….	….	….	….

Напечатать таблицу, заменив последний столбец на «Средняя стоимость 1 квартиры».

1. Математическая постановка.

а) Обозначение переменных.

N – количество обследуемых городов.

i – номер текущего города

G(N) – массив названия города

P(N) – массив количества проданных квартир

K(N) – массив количества кв. м.

S(N) – массив суммы от продажи

Sr(N) – массив средней стоимости

б) Классификация по группам

Исходные данные:

N; G (N); P (N); K (N); S (N).

Конечный результат:

Sr(N).

Промежуточный результат:

i.

в) Типы переменных:

i целые переменные

N integer

G(N) – массив текстовой информации (string)

P(N) – массив переменной целого числа (integer)

K(N) – массив вещественных чисел (single)

S(N) – массив вещественных чисел (single)

Sr(N) – массив вещественных чисел (single)

г) Расчетные формулы.

i =1

Sr(i)= S(i) / Р(i)

i = i+1

Если I ≤, то повторять действие.

2. Блок схема.

3. Текст программы

Sub Пример()

Dim N, i As Integer

Dim G() As String

Dim P() As Integer

Dim K() As Single

Dim S() As Single

Dim Sr() As Single

N = InputBox («количество обследуемых городов»)

ReDim G(N) As String

ReDim P(N) As Integer

ReDim K(N) As Single

ReDim S(N) As Single

ReDim Sr(N) As Single

For i = 1 To N

G(i) = InputBox («название города»)

P(i) = InputBox («количество проданных квартир»)

K(i) = InputBox («количество кв. м.»)

S(i) = InputBox («сумма от проданыных квартир»)

Next

For i = 1 To N

Sr(i) = S(i) / P(i)

Next

Debug. Print «город»; Tab(30); «количество проданных квартир»; Tab(50); «количество кв. м.»; Tab(70); «средняя стоимость одной квартиры»

For i = 1 To N

Debug. Print G(i); Tab(30); P(i); Tab(50); K(i); Tab(70); Sr(i)

Next

End Sub