Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364139
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62791)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21319)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21692)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8692)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3462)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20644)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Реферат: Составление программ ленейной структуры

Название: Составление программ ленейной структуры
Раздел: Рефераты по информатике
Тип: реферат Добавлен 05:56:12 13 июня 2011 Похожие работы
Просмотров: 11 Комментариев: 11 Оценило: 0 человек Средний балл: 0 Оценка: неизвестно     Скачать

ТЕМА 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

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Хватит париться. На сайте FAST-REFERAT.RU вам сделают любой реферат, курсовую или дипломную. Сам пользуюсь, и вам советую!
Никита18:49:10 05 ноября 2021
.
.18:49:08 05 ноября 2021
.
.18:49:06 05 ноября 2021
.
.18:49:04 05 ноября 2021
.
.18:49:02 05 ноября 2021

Смотреть все комментарии (11)
Работы, похожие на Реферат: Составление программ ленейной структуры

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(288308)
Комментарии (4159)
Copyright © 2005-2021 BestReferat.ru support@bestreferat.ru реклама на сайте

Рейтинг@Mail.ru