Навигация
АЛГОРИТМ РЕШЕНИЯ ПОСТАВЛЕННОЙ ЗАДАЧИ В MS WORD
23714
знаков
8
таблиц
3
изображения
3 АЛГОРИТМ РЕШЕНИЯ ПОСТАВЛЕННОЙ ЗАДАЧИ В MS WORD
S1
Для i=1 до len(s1)-1
Если mid(s1, i,1)=” ”
Если mid(s2,1,1)=mid(s2,len(s2),1)
S3=s3+s2+” ”
s2 = ""
Иначе
s2 = s2 + Mid(s1, i, 1)
 | |||
 | |||
s3
4 АЛГОРИТМ РЕШЕНИЯ ПОСТАВЛЕННОЙ ЗАДАЧИ В MS EXCEL
Для i=1 до 5
Для j= 1 до 5
a(i,j)
sum = 0
Для i=1 до 5
b[i]=a[i,i]
sum=sum+b[i]
Для i=1 до 5
|
|
Для i=1 до 5
Для j=1 до 5
a(i,j)
5 ТЕСТОВЫЕ ПРИМЕРЫ
MS WORD
№1
Дед Мороз - красный нос, ты подарки нам принёс?
Дед
№2
Трактат о несчастной любви.
Трактат
MS EXCEL
№1
| 1 | 2 | 3 | 4 | 5 |
| 6 | 7 | 8 | 9 | 10 |
| 7 | 9 | 11 | 13 | 15 |
| 2 | 4 | 4 | 6 | 7 |
| 3 | 6 | 4 | 0 | 8 |
Результат
| 1 | 2 | 3 | 4 | 5 |
| 0,18 | 0,21 | 0,24 | 0,27 | 0,3 |
| 7 | 9 | 11 | 13 | 15 |
| 0,06 | 0,121 | 0,121 | 0,18 | 0,21 |
| 3 | 6 | 4 | 0 | 8 |
Приложение А
ЭКРАННЫЕ ФОРМЫ
Рисунок А.1 – Работа программы в MS Word
Рисунок А.2 – Пример работы программы в MS Word
Приложение Б
ЛИСТИНГ ПРОГРАММЫ В MS EXCEL
Sub Laba1()
Dim m, i, j, k As Integer
Dim sum As Double
Dim a(5, 5), b(10) As Long
For i = 1 To 5
For j = 1 To 5
a(i, j) = Cells(i, j)
Next j
Next i
sum = 0
For i = 1 To 5
k = i
j = i
b(k) = a(i, j)
sum = sum + b(k)
Next i
For i = 2 To 5 Step 2
For j = 1 To 5
a(i, j) = a(i, j) / sum
Next j
Next i
Cells(7, 1) = "Конечная"
Cells(7, 2) = "матрица:"
For i = 1 To 5
For j = 1 To 5
Cells(i + 8, j) = a(i, j)
Next j
Next i
End Sub
Приложение В
ЛИСТИНГ ПРОГРАММЫ В MS WORD
Sub Laba2()
Dim s1, s2, s3 As String
Dim i, j As Integer
Selection.WholeStory
s1 = Selection.Text
For i = 1 To Len(s1) - 1
If Mid(s1, i, 1) = " " Then
If Mid(s2, 1, 1) = Mid(s2, Len(s2), 1) Then
s3 = s3 + s2 + " "
End If
s2 = ""
Else
s2 = s2 + Mid(s1, i, 1)
End If
Next i
Selection.Text = s1 + s3
End Sub
Похожие работы
... проекта. В этом случае редактор кода вызывается кнопкой View Code (Просмотр кода) панели инструментов окна Проводника. 2.3 Характеристика программы Данная программа написана на языке Visual Basic 6.0 и представляет собой 1 приложением, предназначенных выполнять все функции, которые требуются заданию. В конечный продукт входит 1 откомпилированное приложения, размер которого составляет ...
... и программ не предъявляются. 2 ОПИСАНИЕ ПРОГРАММЫ 2.1 Общие сведения Тестирующая программа предназначена для проверки знаний учащихся. Язык программирования Visual Basic for Applications (VBA), MySQL Системные требования: · Операционная система Windows 98-XP. · Среда программирования Visual Basic for Applications · MySQL, ODBC ...
... тенденция к снижению снаряда, то таймер 1 останавливается: If Label17.Caption < 150 Then Timer1.Interval = 0 Цель поражена (Рис.13). Рис.13 Заключение Таким образом, язык программирования Visual Basic, наглядно позволяет смоделировать физический процесс, получить конкретные результаты и навыки. Отличительной особенностью VB, является возможность работы его непосредственно в среде Windows, что ...
... входит в электронное образовательное пространство учителя»?(Рис.1) Для того чтобы ответить на этот вопрос, необходимо определить: «что же такое цифровой образовательный ресурс?» Место ЦОР в электронном образовательном пространстве учителя Определения ЦОРов В настоящее время существует множество определений понятия цифровых образовательных ресурсов, попробуем рассмотреть некоторые из них. ...
0 комментариев