Контрольная работа 1: вариант 5. Заполнить форму данными, оставляя свободными только те ячейки, которые указаны в соответствующем варианте задания
- ID: 29433
- 8 страниц
Фрагмент работы:
Задание к контрольной работе:
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)