Содержание

Глава 1. Отпуск материальных ресурсов 3

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

1.2 Словесно-формульный алгоритм 4

1.3 Блок-схема решения задачи 5

1.4 Листинг программы 6

1.5 Реализация программы 7

Глава 2. Ряд треугольников 8

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

2.2 Блок-схема решения задачи 9

2.3 Листинг программы 10

2.4 Реализация программы 11

Список использованной литературы 12

Глава 1. Отпуск материальных ресурсов

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

Разработать словесно-формульный алгоритм, составить блок-схему и составить программу на VBA для отпуска материальных ресурсов (i) как для каждого цеха на (j) предприятии, так и для каждо­го предприятия (k) производственного объединения по формуле:

Mijk = Pijk + Vijk - Qijk, где:

Mijк - лимит на i-й вид материала по j-му цеху на k-м предприятии;

Pijk - цеховая потребность в i-м виде материала по j-му цеху на k-м предприятии;

Vijk - планируемый цеху запас i-го вида материаль­ных ресурсов по j-му цеху на k-м предприя­тии;

Qijk - остаток материальных ресурсов i-го вида по j-му цеху на k-м предприятии на начало пла­нируемого периода;

i - номенклатура материальных ресурсов; j - перечень цехов; k - перечень заводов производственного объединения.

Требуется получить информацию об отпуске материальных ресурсов по каждому цеху на всех предприятиях, по каждому, предприятию и по объединению при условии, что в каждом струк­турном подразделении разное количество видов материальных ресурсов (L), а предприятия в объединений (N) состоят из раз­личного числа цехов (М).

Интервалы изменения переменных i, j, k находятся в пределах 1iL, 1JM, 1kN, где: N= 1 : 4; М = 1 : 5; L = 1 : 10.

Другие задействованные в задачах переменные меняются в интервале – 100:1000.

1.2 Словесно-формульный алгоритм

1) Найти количество предприятий в объединении: N=random(4)+1. Перейти к пункту 2.

2) Присвоить переменной M_ob значение 0(M_ob:=0), где M_ob –лимит материалов в целом по объединению. Перейти к пункту 3.

3) Открыть цикл по предприятию от k=1 до N. Перейти к пункту 4.

4) Присвоить переменной M:=random(5)+1, а переменной Mk:=0, где M –количество цехов на отдельных предприятиях, а Мk –лимит всех видов материалов в целом по отдельному предприятию. Перейти к пункту 5.

5) Внутри первого цикла открыть второй (по цехам) от j=1 до M. Перейти к пункту 6.

6) В теле второго цикла найти количество L видов материалов на j-ом цеху: L:=random(10)+1, а переменной Mjk присвоить Mjk:=0, где Mjk –лимит материалов в целом по каждому цеху. Перейти к пункту 7.

7) В теле второго цикла открыть третий цикл (по видам материалов) от i=1 до L. Перейти к восьмому пункту.

8) В теле третьего цикла найти следующие значения: Pijk:=random(901)+100; Vijk:=random(901)+100, Qijk:=random(901)+100, затем найти лимит материалов по каждому виду материалов Mijk по формуле Mijk=Pijk+Vijk-Qijk. Перейти к пункту 9.

9) Присвоить переменной Mjk=Mjk+Mijk (определяется лимит метариалов в целом по j- ому цеху путем суммирования лимитов по всем материалам этого цеха). Вернуться к пункту 8 (до завершения цикла).

10) После завершения третьего цикла вывести значение Mjk и присвоить Mk:=Mk+Mjk. Вернуться к пункту 6 (до завершения цикла).

11) После завершения второго цикла вывести значение Mk и присвоить M_ob:=M_ob+Mk. Вернуться к пункту 4 (до завершения цикла).

12) После завершения первого цикла вывести M_ob –лимит материалов в целом по объединению.

1.3 Блок-схема решения задачи

N:=random(4)+1

M_ob=0

M:=random(5)+1

Mk=0

L:=random(10)+1

Mjk=0

Pijk:=random(901)+100

Vijk:=random(901)+100 Qijk:=random(901)+100 Mjk=Mjk+Mijk

Mk=Mk+Mjk

M_ob=M_ob+Mk

1.4 Листинг программы

Dim L As Integer, M As Integer, N As Integer, i As Integer, j As Integer, k As Integer, Mijk As Integer, Pijk As Integer, Qijk As Integer, Mjk As Integer, Mk As Integer, M_ob As Integer

Private Sub Command1_Click()

Randomize

N = Rnd(4) + 1

M_ob = 0

For k = 1 To N

M = Rnd(5) + 1

Mk = 0

For j = 1 To M

L = Rnd(10) + 1

Mjk = 0

For i = 1 To L

Pijk = Rnd(901) + 100

Vijk = Rnd(901) + 100

Qijk = Rnd(901) + 100

Mijk = Pijk + Vijk - Qijk

Mjk = Mjk + Mijk

Print ("Лимит материалов по цеху: " + CStr(Mjk + Mijk))

Next

Mk = Mk + Mjk

Print ("Лимит материалов в целом по предприятию: " + CStr(Mk + Mjk))

Next

M_ob = M_ob + Mk

Print ("Лимит материалов по объединению: " + CStr(M_ob + Mk))

Next

End Sub

1.5 Реализация программы

Рисунок 1. Результат программы «Отпуск материальных ресурсов»

Глава 2. Ряд треугольников

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

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

2.2 Блок-схема решения задачи

Построение отрезка 1

Построение отрезка 2

Построение отрезка 3

2.3 Листинг программы

Private Sub Form_Load()

Dim n As Single, s As Single

AutoRedraw = True: s = ScaleWidth / 10

For n = 0 To ScaleWidth Step ScaleWidth / 9

Line (n, s)-Step(s, 0): Line -Step(-s / 2, -s): Line -Step(-s / 2, s)

Next

End Sub

2.4 Реализация программы

Рисунок 2. Реализация программы «Ряд треугольников»

Список использованной литературы

1. Батищев П.С. Основы программирования на Visual Basic 6.0. [Электронный ресурс] / Компьютерный центр. – URL: http://psbatishev.narod.ru/vb/v000.htm.

2. Волченков Н.Г. Программирование на Visual Basic 6. – М.: ИНФРА-М, 2002.

3. Жданова Т.А. Программирование на Visual Basic: методические указания к выполнению лабораторных работ № 1-7 для студентов всех специальностей, изучающих объектно-ориентированное программирование [Электронный ресурс] / Программирование на Visual Basic. – URL: chrome-extension://oemmndcbldboiebfnladdacbdfmadadm/http://pnu.edu.ru/media/filer_public/2013/02/25/visualbasic_lr1-7.pdf .

4. Дукин А.Н., Пожидаев А.А. Самоучитель Visual Basic 2010; АСТ Москва, 2010.-560с.

5. Слепцова Л.Д. Программирование на VBA в Microsoft Office 2010; М.: Диалектика, 2010. -432с.

6. Солодухин С.В., Комазов П.В., Иванов Н.Н. Методические указания для самостоятельной работы студентов по курсу «Основы программирования». – Запорожье: ЗГИА, 2000. – с. 52.

7. Трусов М. А. Visual Basic.NET Создание графических объектов и основы программирования, М.: НТ Пресс Год, 2006. -160.

8. Якушева, Н.М. Visual Basic для студентов; М.: Радио и связь, 2011. - 232 c.

13