Результаты и проверка в листе MS EXCEL — КиберПедия 

Архитектура электронного правительства: Единая архитектура – это методологический подход при создании системы управления государства, который строится...

История создания датчика движения: Первый прибор для обнаружения движения был изобретен немецким физиком Генрихом Герцем...

Результаты и проверка в листе MS EXCEL

2017-11-18 161
Результаты и проверка в листе MS EXCEL 0.00 из 5.00 0 оценок
Заказать работу

Рисунок 1 - задача 1.1

Задача 1.2

Постановка задачи

· Составить программу для определения количества килобайт (Кб), занимаемых вашими фамилией, именем и отчеством, если 1 символ – 1байт, 1 Кб=1024 байт.

Решение

· Блок схема:

· Текст программы:

Sub задача_1_2()

Dim A As Single

A = Val(InputBox("количество символов"))

B = A / 1024

MsgBox "количесво Кбайт =" + Str(B)

End Sub

Результаты и проверка в листе MS EXCEL

Рисунок 2 - задача 1.2

Задание № 2. Составление программ с оператором выбора. Вариант 11

Задача 2.1

Постановка задачи

· Составить проект программы, в котором определяется, выгодно ли покупать сезонку на проезд в трамвае (учесть вариант, когда стоимость сезонки равна сумме стоимостей всех билетов).

Решение:

· Блок схема:

· Текст программы:

Sub задача_2_1()

Dim A As Integer, B As Integer, C As Integer

A = Val(InputBox("количество билетов"))

B = Val(InputBox("цена билетов"))

C = Val(InputBox("цена сезонки"))

x = A * B

If x <= C Then

MsgBox " не выгодно"

Else

If C = x Then

MsgBox " нет разницы"

Else

MsgBox " выгодно "

End If

End If

End Sub

Результаты и проверка в листе MS EXCEL

Рисунок 3 - задача 2.1

Задача 2.2

Постановка задачи

·
 
 

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

Решение

· Блок схема:

· Текст программы:

Sub задача_2_2()

Dim x As Single

x = Val(InputBox("x"))

If x > 20 Then

y = Sin(x)

Else

If x <= 5 Then

y = 10

Else: y = Sqr(x)

End If

End If

MsgBox "y=" + Str(y)

End Sub

Результаты и проверка в листе MS EXCEL

Рисунок 4 - задача 2.2

 

Задание № 3. Составление программ с оператором цикла. Вариант 11

Задача 3.1

Постановка задачи

·
 
 

Запрограммировать функцию и вычислить сумму ее значений в точках интервала с заданным шагом, а также произведение значений функции, попавших в отрезок [1;2].

Решение

· Блок схема:

· Текст программы:

Sub задача_3_1()

Dim y As Single

y = Val(InputBox("y"))

s = 0

p = 1

For x = 1 To 3 Step 0.5

z = (Log(x ^ 3 + 1)) / y ^ 2

s = s + z

If (z >= 1) And (z <= 2) Then

p = p * z

End If

Next x

MsgBox "s=" + Str(s) + "p=" + Str(p)

End Sub

Результаты и проверка в листе MS EXCEL

Рисунок 5 - задача 3.1

Задача 3.2

Постановка задачи

·
 
 

Запрограммировать функцию и вычислить сумму ее значений в заданных точках, а также произведение значений функции, не равных 0 и количество отрицательных значений функции.

 

Решение

· Блок схема:

· Текст программы:

Sub задача_3_2()

Dim x As Single, p As Single, s As Single

Dim i As Integer, k As Integer

p = 1

k = 0

s = 0

For i = 1 To 6

x = Cells(i + 1, 1)

If x > 0 Then

y = x ^ 3

Else

If x < -3 Then

y = Cos(x) * Sin(x)

Else

y = 3

End If

End If

If y <> 0 Then

p = p * y

End If

If y < 0 Then

k = k + 1

End If

s = s + y

Cells(8, 3) = s

Cells(9, 3) = p

Cells(10, 3) = k

Next i

End Sub

Результаты и проверка в листе MS EXCEL

Рисунок 6 - задача 3.2

 

Задание № 6. Вариант 15

Задача

Постановка задачи

· Имеется список группы и оценка каждого студента на экзамене по математике. Составить программу, которая вначале выводит фамилии всех отличников, потом хорошистов, троечников, а затем двоечников.

Решение

· Блок схема:

· Текст программы:

Sub задача_6()

Dim x(10) As Integer, i As Integer, ot As Integer, ch As Integer

Dim y(10) As String, dv As Integer, tr As Integer

ot = 6

ch = 6

tr = 6

dv = 6

For i = 1 To 10

x(i) = Cells(i, 2)

y(i) = Cells(i, 1)

If x(i) = 5 Then

ot = ot + 1

Cells(ot, 4) = y(i)

Else

If x(i) = 4 Then

ch = ch + 1

Cells(ch, 5) = y(i)

Else

If x(i) = 3 Then

tr = tr + 1

Cells(tr, 6) = y(i)

Else

If x(i) = 2 Then

dv = dv + 1

Cells(dv, 7) = y(i)

End If

End If

End If

End If

Next i

End Sub


Поделиться с друзьями:

Индивидуальные и групповые автопоилки: для животных. Схемы и конструкции...

Наброски и зарисовки растений, плодов, цветов: Освоить конструктивное построение структуры дерева через зарисовки отдельных деревьев, группы деревьев...

Организация стока поверхностных вод: Наибольшее количество влаги на земном шаре испаряется с поверхности морей и океанов (88‰)...

История создания датчика движения: Первый прибор для обнаружения движения был изобретен немецким физиком Генрихом Герцем...



© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!

0.019 с.