Контрольная работа 1: вариант 5. Заполнить форму данными, оставляя свободными только те ячейки, которые указаны в соответствующем варианте задания

Фрагмент работы:

Задание к контрольной работе:

1. В соответствии с вариантом задания создать и сохранить на диске в виде файла данные в форме таблицы следующего вида:

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

2. Заполнить форму данными, оставляя свободными только те ячейки, которые указаны в соответствующем варианте задания.

3. Разработать алгоритм считывания и обработки данных, приводящий к вычислению результатов в пустых ячейках исходной таблицы, указанных в варианте задания. При вычислениях итоговых значений по строкам использовать формулу Остаток2=Остаток1+Приход-Расход.

4. Выбрать по своему усмотрению язык программирования задачи

(QBASIC, VISUAL BASIC, PASCAL, C++, FOXPRO, DELPHI и др.).

5.Используя операторы выбранного языка программирования составить программу обработки данных.

6. Выполнить отладку программы и обработку данных. Вывести таблицу с вычисленными и заполненными ячейками на печать или в файл.

Исходная таблица

Блок-схема

[image]

Программа на языке VBA

Sub Расчет()

Dim nm$(6), o1(6), p(6), r(6), o2(6)

Open "tabl.txt" For Input As #1

Open "itog.txt" For Output As #2

For i = 1 To 3

Input #1, S$

Print #2, S$

Next i

For n = 1 To 6

Input #1, S$

k = 1

nm$(n) = ""

While Mid$(S$, k, 1) " "

nm$(n) = nm$(n) + Mid$(S$, k, 1)

k = k + 1

Wend

Cells(n + 1, 1) = nm$(n)

While Mid$(S$, k, 1) = " "

k = k + 1

Wend

A$ = ""

While Mid$(S$, k, 1) " "

A$ = A$ + Mid$(S$, k, 1)

k = k + 1

Wend

o1(n) = Val(A$)

Cells(n + 1, 2) = o1(n)

While Mid$(S$, k, 1) = " "

k = k + 1

Wend

A$ = ""

While Mid$(S$, k, 1) " "

A$ = A$ + Mid$(S$, k, 1)

k = k + 1

Wend

p(n) = Val(A$)

Cells(n + 1, 3) = p(n)

While Mid$(S$, k, 1) = " "

k = k + 1

Wend

A$ = ""

While Mid$(S$, k, 1) " "

A$ = A$ + Mid$(S$, k, 1)

k = k + 1

Wend

r(n) = Val(A$)

Cells(n + 1, 4) = r(n)

A$ = Mid$(S$, k, Len(S$) - k + 1)

o2(n) = Val(A$)

Cells(n + 1, 5) = o2(n)

Next n

Close #1

o1f = 0

pf = 0

rf = 0

o2f = 0

For n = 1 To 5

o1f = o1f + o1(n)

pf = pf + p(n)

rf = rf + r(n)