ТЕМА 1(вариант 8)
Вычислить значение выражения :
, если g = 9,81 ; Т = 5 ; V0=12,5 ; Х = 2,43
Програмный код
Option Explicit
Private Sub cmdStart_Click()
Dim V0 As Single, T As Single, g As Single, x As Single, J As Single
V0=Val(txtV0.Text)
Const pi = 3.14926
T=Val(txtT.Text)
g=Val(txtg.Text)
S=V0*T+(g*T^2)/2
V=V0+0.5*g*T
J=формула
txtS.Text=Str(S)
txtV.Text=Str(V)
txtF.Text=Str(F)
Private Sub cmdEnd_Click()
End
End Sub
ТЕМА 2(вариант 8)
Вычислить значения выражений:
, если , при
Программный код
Option Explicit
Private Sub cmdStart_Click()
Const x = 0.5
Dim c As Single, y As Single, z As Single
y = Val(InputBox("Введите У"))
z = Val(InputBox("Введите Z"))
If (y > 0) And (z > 0) Then
c = формула 1
ElseIf (y < 0) And (z > 0) Then
c = формула 2
Else
c = формула 3
End If
Print "При у= "; y, "При z= "; z
Print "c="; c
End Sub
Private Sub cmdEnd_Click()
End
End Sub
ТЕМА 3(вариант 8)
Вычислить значение выражения
где, а(і) - елементы одномерного массива А(8)
b(i) - елементы одномерного массива В(8)
Программный код
Option Explicit
Private Sub cmdStart_Click()
Dim a(8) As Single, b(8) As Single, i As Byte, к As Single, s As Single
Randomize Timer
For i = 1 To 8
a(i) = Int(8 * Rnd())
Next i
Randomize Timer
For i = 1 To 8
b(i) = Int(8 * Rnd())
Next i
Print "Элементы массива А"
For i = 1 To 8
Print a(i);
Next i
Print
Print
Print "Элементы массива B"
For i = 1 To 8
Print b(i);
Next i
For i = 1 To 8
к = формула для расчета
Next i
s = 0
For i = 1 To 8
s = s + d
Next i
Print: Print
Print "s="; s
End Sub
Private Sub cmdEnd_Click()
End
End Sub
ТЕМА 4 (вариант 8)
Создать двухмерный массив А(N, M). Элементы массива рассчитатть по формуле: . Найти минимальный элемент массива по модулю в каждой строке.
N=6, M=4
Программный код
Option Explicit
Private Sub cmdStart_Click()
Const n = 6, о = 4
Dim a(1 To n, 1 To о) As Single, s As Single, p As Single
Dim i As Single, j As Single, Min As Single, jmin As Single, imin As Single
For i = 1 To n
For j = 1 To о
a(i, j) = формула
Print Format(a(i, j), "0.000 ");
Next j
Print: Print
Next i
For i = 1 To n
Min = Abs(a(i, 1))
For j = 1 To о
If Abs(a(i, j)) < Min Then
Min = Abs(a(i, j))
End If
Next j
Print "Минимальный элемент массива (по модулю)="; Min
Print "imin="; i
Next i
Print
End Sub
Private Sub cmdEnd_Click()
End
End Sub
ТЕМА 5 (Вариант 8)
Написать программу для вычесления выражения. Для расчета повторяющихся мат.операций использовать функцию пользователя.
, где yi - элементы масссива У(20); в=2.1
Общий вид
ps=k1*Sqr(s)
Програмный код
Option Explicit
Option Base 1
Private Sub cmdStart_Click()
Dim Y(1 To 20) As Single, r1 As Single, r2 As Single
Dim i As Single, М As Single
Print "Массив Y:"
For i = 1 To 20
Y(i) = i ^ (1 / 3) - 1
Print Format(Y(i), "0.00 ");
Next i
r1 = ps(5, 20, 5.3, Y())
r2 = ps(2, 8, 1, Y())
М = r1 + r2
Print
Print
Print "Значение выражения="; X
End Sub
Private Function ps(n1 As Single, n2 As Single, k1 As Single, Y() As Single) As Single
Dim s As Single, i As Integer
Const b = 2.1
s = 0
For i = n1 To n2
s = s + (Y(i) * b) ^ 3
Next i
ps = k1 * Sqr(s)
End Function
Private Sub cmdEnd_Click()
End
End Sub
ТЕМА 6 (Вариант 8)
Написать программу для вычисления значения выыражения. Повторяющиеся вычисления оформить в виде общей процедуры типа Sub.
Z=, где рi- элементы одномерного массива Р(15)
Общий вид
Программный код
Option Explicit
Private Sub cmdStart_Click()
Const n = 15
Dim P(1 To n) As Integer, i As Single, Z As Single, s1 As Single, s2 As Single
Randomize Timer
For i = 1 To n
P(i) = Int(Rnd() * 50)
Next i
Print "Массив Р="
For i = 1 To n
Print P(i);
Next i
Call Sum(10, 14, 1, 2, 2, P(), s1)
Call Sum(1, 4, 2, 0.5, 1, P(), s2)
Z = s1 - s2
Print: Print
Print "Z="; Z
End Sub
Private Sub Sum(n1 As Single, n2 As Single, n3 As Single, k1 As Single, k2 As Single, P() As Integer, s As Single)
Dim i As Integer
s = 0
For i = n1 To n2
s = s + Cos(n3 * P(i) + k1) ^ k2
Next i
End Sub
Private Sub cmdEnd_Click()
End
End Sub
Другие работы по теме:
Содействие эффективной занятости населения
5.1. . В соответствии с Федеральным законом от 31 декабря 2005г. № 199-ФЗ «О внесении изменений в отдельные законодательные акты Российской Федерации в связи с совершенствованием разграничения полномочий» органам государственной власти субъектов Российской Федерации переданы полномочия по осуществлению контроля за обеспечением государственных гарантий в области занятости населения, по регистрации граждан в целях содействия им в поиске подходящей работы и безработных граждан, оказанию в соответствии с законодательством о занятости населения ряда государственных услуг, по реализации территориальных программ, предусматривающих мероприятия по содействию занятости населения, включая программы содействия занятости граждан, находящихся под риском увольнения, а также граждан, особо нуждающихся в социальной защите и испытывающих трудности в поиске работы.
Составление и расчет схемы электрического освещения
Расчет осветительной сети. Выбор щитка ЩО41-5101 для питания групповой осветительной установки. Определение числа светильников, подсоединенных на один автоматический выключатель, тока установки автомата групповой линии. Необходимое сечение провода линии.
Методы изучения размещения производительных сил
Программно-целевой метод в условиях формирования рыночных отношений имеет важное значение для разработки комплексных программ по отраслям и территориям, охватывающим все этапы работы от сбора фактических данных, оценки свойств территориальных систем, установления закономерностей их функционирования, от прогноза развития до экспертизы проектов, связанных с изменением территориальных систем.
Организация и планирование самостоятельной работы
Временный план работы над рефератом Формулировка заглавия. Составление учебного плана на семестр. Составление графика самостоятельной работы. Выполнение учебного эксперимента для составления хронокарты рабочего дня.
Сочинения на свободную тему - Как составить букет2
Я очень люблю цветы. Приятно, когда они украшают твою комнату, от этого на душе становится светлее и радостнее. Составление букетов - это очень интересное занятие, требующее определенного мастерства.
Изучение и анализ программ курсов по выбору и элективных курсов по технологии
Лабораторная работа №1 Изучение и анализ программ курсов по выбору и элективных курсов по технологии Цели: формирование начальных умений и навыков анализа школьных программ; изучение структуры и содержания программ по вариативным курсам; выявление возможных межпредметных связей при профильном обучении школьников.
Ликвидация юридического лица 5
Ликвидация юридического лица - это его прекращение без перехода прав и обязанностей в порядке правопреемства к другим лицам (ст. 61 ГК РФ) Ликвидация бывает добровольной и принудительной.
Медикэр
» (англ. Medicare) — это одна из федеральных программ медицинского страхования для населения старшего возраста (старше 65 лет) учреждённая в 1965 году в США. С 1972 года программа также обслуживает инвалидов. Она состоит из двух основных частей:
1758 год
1758 год — невисокосный год, начинающийся в воскресенье по григорианскому календарю. События Астроном Шарль Мессье начал составление своего каталога.
Автозагрузка в Windows XP
Существует немало способов автозагрузки программ. Ниже приведены несколько вариантов для ознакомления, возможно это поможет вам, если возникнет необходимость найти и удалить какую-либо программу из автозагрузки.
Лабораторная работа №6
Цель работы: Освоение правил составления программ циклической структуры с параметром. Задание № 17 . Вычислить значение функции , по указанному графику для значений аргумента
Решение задачи с помощью программ Mathcad и Matlab
Определение зависимости горизонтальной длины полета тела и максимальной высоты траектории от одного из коэффициентов сопротивления среды, фиксировав все остальные параметры. Представление этой зависимости графически и подбор подходящей формулы.
Решение задачи с помощью программ Mathcad и Matlab
Исследование связи между временем достижения торпеды, снабжённой разгонным двигателем (глубинной бомбы) заданной глубины и формой корпуса противолодочного корабля: сферической, полусферической, каплевидной. Представление этой зависимости графически.
Алгоритмические языки: обработка одномерных массивов
Работа с массивами, их ввод и вывод, организация программ циклической структуры. Способы описания и использования массивов, алгоритмы их сортировки, сортировка выбором и вставками. Алгоритмы поиска элемента в неупорядоченном и упорядоченном массивах.
Kaspersky Internet Security 2011
Kaspersky Internet Security 2011 ( 2011 это программа, призванная обеспечить безопасную рабочую среду как в условиях дома так и в условиях офиса. Она обладает рядом полезных функций которые обеспечивают безопасный серфинг интернета, проверку компьютера и внешних запоминающих устройств, таких как флешкарты и диски, на наличие вредоносных программ, а также осуществляет контроль безопасности сети.
Классификация программного обеспечения компьютера
Классификация программного обеспечения компьютера. Взаимосвязь аппаратного и программного обеспечения компьютера. Современные компьютеры можно считать универсальными, поскольку они применяются для автоматизации обработки и обмена самой разной информацией практически во всех отраслях современной жизни.
Дневник по преддипломной практике юриста
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗАВАНИЮ СИБИРСКОЙ АКАДЕМИИ ПРАВА ЭКОНОМИКИ И УПРАВЛЕНИЯ ОТЧЕТ ПО ПРЕДДИПЛОМНОЙ ПРАКТИКЕ Выполнил: Студент 6 курса Юридического факультета
Государственное налоговое планирование
Содержание целей и виды гос.нал.планирования Этапы нал. планир-я на макроуровне Методы планирования и прогнозирования объемов нал.поступлений. Налоговое планирование представляет собой деятельность органов гос.власти и налогоплательщиков по определению экономически обоснованного размера:
Сущность бухгалтерского дела, его содержание 2
1. Сущность бухгалтерского дела, его содержание. Бухгалтерское дело – это профессиональная деятельность бухгалтера во всех во всех ее проявлениях: ведение учета, составление отчетности, формирование учетной политики организации, контроль, анализ отчетных данных и т.д.
Дневник по преддипломной практике
РОССИЙСКИЙ ГОСУДАРСТВЕННЫЙ СОЦИАЛЬНЫЙ УНИВЕРСИТЕТ Филиал РГСУ в г. Тольятти Специальность «Финансы и кредит» Форма обучения очная Курс 5 ДНЕВНИК по преддипломной практике
Составление договора страхования
Фрязинский государственный техникум электроники, управления и права. Практическая работа по страховому праву. Проверила: Семенова О.В. Выполнила: