Архитектура Аудит Военная наука Иностранные языки Медицина Металлургия Метрология
Образование Политология Производство Психология Стандартизация Технологии


Лабораторная работа №7. Программирование с использованием файлов

⇐ ПредыдущаяСтр 5 из 5


Цель: Приобрести навыки программирования с использованием файлов.

Теоретические разделы для выполнения лабораторной работы

I. Работа с файлами в языке Visual Basic.

II. Чтение и запись данных в файлы.

Задание.Выполнить задание лабораторной работы №5, часть 1 (прил. 5, часть 1). Требования к выполнению задания:

1. Исходные данные хранятся в файле input.txt в личной папке

2. Результаты записываются в файл output.txt

Замечание.

В программе должна быть предоставлена возможность выбора для ввода исходных данных с клавиатуры или файла. Например, можно воспользоваться стандартным окном вывода MsgBox.

Если источником данных является клавиатура, то после ввода исходных данных выводить запрос о записи данных в файл. Например,

 

Пример

Дан массив а = { а1, а2, …, аn}. Найти модуль разности между максимальным и минимальным элементами массива.

Замечание. В файле исходных данных первым значением является размер массива.

 

Sub lr7()

Dim a(15), min, max, mod_raz, i, n As Integer

Dim s As String, k, m As Integer

K= MsgBox (" Источником является файл? Да - файл, Нет - клавиатура" , _

vbYesNo, " Укажите источник ввода исходных данных" )

S=””

if k=6 then

Open “D: \Ek_1\Petrov\input.txt” For Input As #1

Input #1, n

i=1

Do While not EOF(1)

Input #1, a(i)

S=S & A(i) & “ “

i=i+1

Loop

Close #1

Else

N= Val(InputBox(“Размер вектора”))

For i=1 to n

A(i)=Val(InputBox(“Элемент вектора”))

S=S & A(i) & “ “

Next i

M= MsgBox " Записать введенные данные в файл? ", _

vbYesNo, " Запись исходных данных"

If m=6 then

Open “D: \Ek_1\Petrov\input.dat” For Output As #1

Write #1, n

For i=1 to n

Write #1, a(i)

Next i

Close #1

End If

End if

MsgBox s, , “Введенный массив”

max=a(1)

min=a(1)

For i=2 to 15

If a(i)< min Then min=a(i)

If a(i)> max Then max=a(i)

Next i

mod_raz=abs(max-min)

Open “D: \Ek_1\Petrov\output.dat” For Output As #1

Write #1, “Min = “ & min & “ Max=” & max & “Модуль разности =” & mod_raz

Close #1

End Sub

 

Контрольные вопросы

 

1. Общие принципы работы с файлами.

2. Открытие файла.

3. Чтение данных из файла.

4. Запись данных в файл.

5. Закрытие файла.

 

Лабораторная работа №8. Программирование с использованием функций

Цель: Приобрести навыки программирования с использованием функций.

Теоретические разделы для выполнения лабораторной работы

I. Описание процедур и функций.

II. Параметры процедур и функций.

III. Особенности вызова подпрограмм в языке Visual Basic.

Задание.Вычислить значение выражения при различных исходных данных. Вычисление функции А оформить в виде подпрограммы-функции с параметрами x, y, z. Варианты заданий указаны в приложении 8.

 

Пример.Вычислить значение функции y=sin(x-2)+2× x

Function f(x1, z1 As Single) As Single

f=sin(x1-2)+2*x1*z1

End Function

 

Sub lr8()

Dim x, z, y As Single

x=Val(InputBox(“Значение x”))

z=Val(InputBox(“Значение z”))

y=f((x), (z))

MsgBox “Результат Y = ” & Y, , “Вывод результатов”

End Sub

 

Контрольные вопросы

1. Описание процедур и функций.

2. Отличие процедур от функций.

3. Вызов процедур и функций.

4. Аргументы подпрограмм.

 

Приложение 8. Варианты заданий лабораторной работы №8

Вариант Вид функции Начальные данные
x y z
0.981   -0.32 -2.625   -2.625   0.512   0.512
-1.251   8.367 0.827   0.827 5.001   5.001
0.263   3.251 0.328   0.328 0.466 0.466
Вариант Вид функции Начальные данные
x y z
6.002   -0.622   3.325   3.325 5.541   5.541
1.625   6.31 5.4   5.4 0.252   0.252
0.625   17.421 10.365   10.365 0.828   0.828
0.451   2.444 0.869   0.869 -0.166   -0.166
0.335   0.001 0.025   0.025 32.005   32.005
5.982   3.258 4.005   4.005 -0.666   -0.666
0.11   0.92 -8.251   -8.251 0.765   0.765
1.542   0.085 0.261   0.261 0.032   0.032
5.016   1.426 1.22   1.22 3.5   3.5
-4.5   1.62 0.76   0.76 0.845   0.845
0.025   3.741 -0.82   -0.82 0.16   0.16
0.412   -0.511 0.275   0.275 -0.486   -0.486
-15.246   3.52 4.642   4.642 2.401   2.401

 

Вариант Вид функции Начальные данные
x y z
6.55   0.08 2.75   2.75 0.15   0.15
0.465   5.15 6.33   6.33 3.25   3.25
15.331   -2.33 -0.823   -0.823 15.221   15.221
1.825   9.052 8.426   8.426 17.5   17.5
7.8   0.65 -5.5   -5.5 2.3   2.3
6.32   -0.85 1.25   1.25 0.22   0.22
7.15   0.11 2.55   2.55 0.12   0.12
1.34   4.31 2.981   2.981 3.075   3.075
3.75   0.22 -6.72   -6.72 1.05   1.05
2.65   0.032 0.255   0.255 0.88   0.88
1.86   3.05 2.42   2.42 0.75   0.75
3.64   4.83 4.625   4.625 -2.5   -2.5
0.83   0.09 0.318   0.318 6.52   6.52
0.76   3.24 0.92   0.92 0.68   0.68

Лабораторная работа №9. Разработка пользовательских диалоговых окон (форм)

Цель: Приобрести навыки разработки пользовательских диалоговых окон.

Теоретические разделы для выполнения лабораторной работы

I. Создание пользовательских форм.

II. Элементы управления формой

III. Процедуры обработки событий элементов формы.

Задание.Разработать диалоговое окно (форму). Варианты заданий указаны в приложении 9. Форма должна содержать:

1) надписи и текстовые поля задания;

2) кнопки «Расчет» и «Выход»;

3) опции для вывода результатов «Только на форме» и «На форме и на рабочем листе» (в качестве рабочего листа воспользоваться Листом2), вывод результатов происходит при нажатии кнопки «Расчет»;

4) тексты программ для кнопок «Расчет» и «Выход».

Пример

Расчет остаточной стоимости основных фондов

Наименование Первичная стоимость (ПС) Коэффициент износа (КИ) Сумма износа (СИ) Остаточная стоимость (ОС)
Здание цеха 0, 42    

Провести расчет по формулам: СИ=ПС*КИ; ОС=ПС-СИ

Форма для расчета остаточной стоимости основных фондов выглядит следующим образом

 

Контрольные вопросы

1. Элементы управления.

2. Свойства, методы объектов управления.

3. Процедуры обработки событий.

 

 

Приложение 9. Варианты заданий лабораторной работы №9.

 

1.Расчет среднедневной ставки

ФИО Отработано дней (ОД) Оклад за месяц (ОМ) Премия за месяц (ПМ)
Петров ПП 180, 25 67, 00
Начислено за месяц (НМ) Среднедневная ставка (СС)
   
           

Провести расчет по формулам:

НМ=ОМ+ПМ СС=НМ/ОД

 

2. Расчет потерь от брака.

№ дого- вора Количество изделий( КИ) Цена (Ц) Количество бракованных изделий (КБ)
2, 20
Потери отбрака (ПБ) Сумма (С)
   
           

Провести расчет по формулам:

ПБ=Ц*КБ С=(КИ-КБ)*Ц

 

3. Расчет налога в дорожные фонды.

Налог(Н) Предприятие Валовый оборот (ВО)
АО “Луна”
Транспортный налог
Общая сумма (ТН) В т.ч. в местный бюджет (МБ) В республиканский бюджет (РБ)
     
           

Провести расчет по формулам:

ТН=ВО*Н/100 МБ=ТН*0.75 РБ=ТН*0.25

 

4. Расчет рентабельности выпуска изделий

Изделие Сумма выручки (В) Затраты на производство (ЗП) Затраты на реализацию (ЗР)
Шампунь
Себестоимость (С) Рентабельность (Р)
   
           

Провести расчет по формулам:

С=ЗП+ЗР Р=В*100/С

 

5. Расчет прибыли цехов предприятия

№ цеха Выручка от реализации (В) Затраты на пр-во (ЗП) Процент внереализационных доходов (П)
Внереализационные доходы (ВД) Прибыль (П)
   
           

Провести расчет по формулам:

ВД=В*П/100 П=В+ВД-ЗП

 

6. Расчет выполнения нормы выработки

ФИО Время по норме (ВН) Фактическое время (ФВ)
Петров П.П.
Процент выполнения (ПВ) Отметка о выполнении (ОВ)
   
       

Провести расчет по формулам:

ПВ=ФВ*100/ВН

Если ПВ< 100. то ОТ=”Не выполнено»

Иначе ОТ=”Выполнено»

 

7. Расчет среднедневной ставки

ФИО Отработано дней (ОД) Оклад за месяц (ОМ) Премия за месяц (ПМ)
Иванов ПП 215, 50 40, 00
Начислено за месяц (НМ) Среднедневная ставка (СС)
   
         

Провести расчет по формулам:

НМ=ОМ+ПМ СС=НМ/ОД

 

8. Определение уровня достатка

ФИО Общий доход (ОД) Количество человек (КЧ)
Петров П.П.
Доход на 1 человека (ДЧ) Уровень достатка (УД)
   
         

Провести расчет по формулам:

ДЧ=ОД/КЧ

Если ДЧ< 100, то УД – низкий

Если 100< =ДЧ< 300, то УД – средний

Если ДЧ> =300, то УД – высокий

 

9. Определение выполнения нормы

ФИО Отработано дней (ОД) Фактически произведено (ФП) Норма выполнения (НВ)
Петров П.П.
Производительность за 1 день (ПД) Отметка о выполнении (ОВ)
   
           

Провести расчет по формулам:

ПД=ФП/ОД

Если ПД< НВ. то ОВ=”Не выполнено»

Иначе ОВ=”Выполнено»

 

10. Расчет остаточной стоимости основных фондов

Наименование Первичная стоимость (ПС) Коэффициент износа (КИ)
Здание цеха 0, 42
Сумма износа (СИ) Остаточная стоимость (ОС)
   
       

Провести расчет по формулам:

СИ=ПС*КИ ОС=ПС-СИ

 

11. Расчет амортизации основных фондов

Наименование Первичная стоимость (ПС) Группа (Г)
Здание цеха
Процент амортизации (ПА) Сумма амортизации (СА)
   
       

Провести расчет по формулам:

Если Г=1, то ПА=5

Если Г=2, то ПА=15

Если Г=3, то ПА=10

СА=ПС*ПА/100

 

12. Расчет суммы заказа с учетом скидки

Наименование Количество (К) Цена (Ц)
Телевизор 315, 40
Процент скидки (ПС) Сумма (С)
   
       

Провести расчет по формулам:

Если К< 10, то ПС=0

Если 10< =К< =50, то ПС=5

Если К> 50, то ПС=10

С=Ц*К*(100 - ПС)/100

 

13. Расчет суммы заказа с налоговыми отчислениями

Наименование Количество (К) Цена (Ц) Налог (Н)
Монитор 180, 50
Сумма без налога (С) Размер налога (РН) Сумма с учетом налога (СН)
     
             

Провести расчет по формулам:

С=Ц*К РН=С*Н/100 СН=С+РН

 

14. Расчет суммы оплаты за услуги связи

ФИО Телефон Страна (С) Кол-во минут (КМ)
Степанов С.С. 35-78-94 Россия
Тариф за минуту (ТМ) Сумма к оплате (СО)
   
           

Провести расчет по формулам:

Если С=”Россия”, то ТМ=3, 48

Если С=”США”, то ТМ=16, 84

Если С=”Франция”, то ТМ=10, 62

СО=КМ*ТМ/100

 

15. Расчет цены товара с учетом курса валюты

Наименование Цена в у.е (Цуе) Курс у.е (К) НДС
Видеомагнитофон 5, 60
Цена в гр. (Цгр) Размер НДС (РН) Цена реализации (ЦР)
     
           

Провести расчет по формулам:

Цгр=Цуе*К РН=Цгр*НДС/100 ЦР=Цгр+РН

 

16. Учет материалов на складе

Наименование Количество на складе, шт. (К) Цена за ед., гр. (Ц) Расход за месяц, шт. (РМ)
Краска 16, 80
Остаток на складе, шт. (ОС) Сумма расхода за месяц, гр. (СР) Сумма остатка, гр. (СО)
     
           

Провести расчет по формулам:

ОС=К–РМ СР=РМ*Ц СО=ОС*Ц

 

17. Расчет стоимости перевозок

Название фирмы № договора Расстояние, км (Р) Вид транспорта (ВТ)
ОАО «Альфа» 17/05-1 Авиа
Тариф за 1 км (Т) Сумма к оплате (СО)
   
           

Провести расчет по формулам:

Если ВТ=”Авиа”, то Т=306, 75

Если ВТ=”Авто”, то Т=180, 26

Если ВТ=”Ж/д ”, то Т=140, 51

СО=Р*ТМ

 

18. Расчет амортизации основных фондов

Наименование Первичная стоимость (ПС) Группа (Г)
Здание цеха
Процент амортизации (ПА) Сумма амортизации (СА)
   
       

Провести расчет по формулам:

Если Г=1, то ПА=5

Если Г=2, то ПА=15

Если Г=3, то ПА=10

СА=ПС*ПА/100

 

19. Расчет прибыли

Выручка от реализации (ВР) Внереализа-ционный доход (ВД) Себестои-мость (С) Налог на прибыль (НП)
0, 30
Балансовая прибыль (БП) Сумма налога (СН) Размер прибыли (РП)
     
         

Провести расчет по формулам:

БП=ВР+ВД–С СН=БП*НП РП=БП–СН

 

20. Расчет цены товара с учетом курса валюты

Наименование Цена в у.е (Цуе) Курс у.е (К) НДС
Видеомагнитофон 5, 60
Цена в гр. (Цгр) Размер НДС (РН) Цена реализации (ЦР)
     
           

Провести расчет по формулам:

Цгр=Цуе*К РН=Цгр*НДС/100 ЦР=Цгр+РН

 

21. Расчет суммы заказа с учетом скидки

Наименование Количество (К) Цена (Ц)
Телевизор 315, 40
Процент скидки (ПС) Сумма (С)
   
       

Провести расчет по формулам:

Если К< 10, то ПС=0

Если 10< =К< =50, то ПС=5

Если К> 50, то ПС=10

С=Ц*К*(100 - ПС)/100

 

22. Расчет остаточной стоимости основных фондов

Наименование Первичная стоимость (ПС) Коэффициент износа (КИ)
Здание цеха 0, 42
Сумма износа (СИ) Остаточная стоимость (ОС)
   
         

Провести расчет по формулам:

СИ=ПС*КИ ОС=ПС-СИ

 

23. Расчет оборотных фондов

Размер запасов (РЗ) Незавершенное производство (НЗП) МБП Фонды обращения (ФО)
Оборотные фонды (ОФ) Оборотные средства (ОС)
   
           

МБП- малоценные и быстроизнашивающиеся предметы

Провести расчет по формулам:

ОФ=РЗ+НЗП+МБП ОС=ОФ+ФО

 

24. Учет материалов на складе

Наименование Количество на складе, шт. (К) Цена за ед., гр. (Ц) Расход за месяц, шт. (РМ)
Краска 16, 80
Остаток на складе, шт. (ОС) Сумма расхода за месяц, гр. (СР) Сумма остатка, гр. (СО)
     
           

Провести расчет по формулам:

ОС=К–РМ СР=РМ*Ц СО=ОС*Ц

 

25. Расчет рентабельности

Постоянные расходы (ПСР) Переменные расходы (ПРР) Прибыль (П)
Себестоимость (С) Рентабельность, % (Р)
   
         

Провести расчет по формулам:

С=ПСР+ПРР Р=П/С*100

 

26.Расчет среднедневной ставки

ФИО Отработано дней (ОД) Оклад за месяц (ОМ) Премия за месяц (ПМ)
Петров ПП 180, 25 67, 00
Начислено за месяц (НМ) Среднедневная ставка (СС)
   
           

Провести расчет по формулам:

НМ=ОМ+ПМ СС=НМ/ОД

 

27. Расчет потерь от брака.

№ дого- вора Количество изделий( КИ) Цена (Ц) Количество бракованных изделий (КБ)
2, 20
Потери от брака (ПБ) Сумма (С)
   
           

Провести расчет по формулам:

ПБ=Ц*КБ С=(КИ-КБ)*Ц

 

28. Расчет налога в дорожные фонды.

Налог(Н) Предприятие Валовый оборот (ВО)
АО “Луна”
Транспортный налог
Общая сумма (ТН) В т.ч. в местный бюджет (МБ) В республиканский бюджет (РБ)
     
           

Провести расчет по формулам:

ТН=ВО*Н/100 МБ=ТН*0.75 РБ=ТН*0.25

 

29. Расчет рентабельности выпуска изделий

Изделие Сумма выручки (В) Затраты на производство (ЗП) Затраты на реализацию (ЗР)
Шампунь
Себестоимость (С) Рентабельность (Р)
   
           

Провести расчет по формулам:

С=ЗП+ЗР Р=В*100/С

 

30. Расчет прибыли цехов предприятия

№ цеха Выручка от реализации (В) Затраты на пр-во (ЗП) Процент внереализационных доходов (П)
Внереализационные доходы (ВД) Прибыль (П)
   
           

Провести расчет по формулам:

ВД=В*П/100 П=В+ВД-ЗП

 


⇐ Предыдущая12345
Поделиться:



Популярное:

  1. Linux - это операционная система, в основе которой лежит лежит ядро, разработанное Линусом Торвальдсом (Linus Torvalds).
  2. Адамс Б. Эффективное управление персоналом: Сделайте так, чтобы ваши служащие работали с максимальной отдачей, - М: АСТ Астрель, 2008. – 367 с.
  3. Административная итоговая контрольная работа по окружающему миру за 1 класс
  4. Анализ прибыли и рентабельности с использованием международных стандартов
  5. АППРОКСИМАЦИЯ ДАННЫХ С ИСПОЛЬЗОВАНИЕМ МЕТОДА НАИМЕНЬШИХ КВАДРАТОВ
  6. Артикулирование звуков, работа над дикцией
  7. Архитектура файловой системы NFS
  8. Архитектурно-строительные чертежи, разработанные с применением автоматизированных программ.
  9. Аэробика с использованием оборудования
  10. Бессознательное в работах Лакана
  11. Бида А.И. Итоговая контрольная работа.
  12. Бульдозеры (лабораторная работа №7)

Последнее изменение этой страницы: 2016-05-03; Просмотров: 1000; Нарушение авторского права страницы


lektsia.com 2007 - 2024 год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! (0.135 с.)
Главная | Случайная страница | Обратная связь