У вас вопросы?
У нас ответы:) SamZan.net

Лабораторная работа 2 Структура ldquo; Развилкаrdquo; Вариант 17

Работа добавлена на сайт samzan.net: 2015-07-05

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 7.4.2025

МИНИСТЕРСТВО ПУТЕЙ СООБЩЕНИЯ РФ

САНКТ-ПЕТЕРБУРГСКИ-Й ГОСУДАРСТВЕННЫЙ  УНИВЕРСИТЕТ

ПУТЕЙ СООБЩЕНИЯ

ПГУПС

КАФЕДРА «ИНФОРМАТИКА И ИФОРМАЦИОННАЯ БЕЗОПАСТНОСТЬ»

ОТЧЕТ ПО ЛАБОРАТОРНОЙ РАБОТЕ ПО ИНФОРМАТИКЕ

Visual Basic

Лабораторная работа №2

Структура “ Развилка”

Вариант17

Выполнил студент

Группы  ЭС-405                                                                                  Ланг А. А.

Проверил:

2004 г.

  1.  Словесное описание

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

2а)  Математическое описание

  1.  Выбор математической модели

                                                                             4,1x+0,6                          ,  если  x < 0

            F =  d + x5 ,                     где   d =           Lgx                               ,  если x > 0

                                                                             ввести  d                      ,  если  x = 0

  1.  Входные данные: d,x

  1.  Выходные данные: F

  1.  Алгоритмизация

  1.  Программирование

Private Sub Command1_Click()

Dim x As Double

Dim d As Double

Dim F As Double

x = InputBox("Введите значение x")

d = InputBox("Введите значение d")

R = False

If x <0 Then

F=4.1^(x+0.6)

Else

       If x>0

       F=Log(x)/Log(10)

       R = True

       Else

       Print "d=" & d

       End If

End If

If R = True Then

  Print "F=" & F

End If

End Sub

5.Отладочный пример

                                                                     

При X>0

При X=0

2б)  Математическое описание

2.1Выбор математической модели

                        , если  x < 0

  Y =       x          , если  x 0

 2.2  Входные данные: x

 2.3Выходные данные: Y 

3. Алгоритмизация

4. Программирование

Private Sub Command1_Click()

Dim x As Double

Dim Y As Double

x = InputBox("Введите значение x")

If x < 0 Then

Y=sqr(abs(x))

Else

Y=abs(x)

End If

Print "Y=" & Y

End Sub

5.Отладочный пример

X>0

x<0

      

                      


    F

   конец

F= Lgx

ввести  d                      

   F=4,1x+0,6                          

 x<0

  x>0

       d,x

   начало

  конец

    Y

  x                           

                     

 x<0

       x

 Начало




1. 1 Понятие и виды внешнеэкономической деятельности
2. Реферат на тему- Теоретичні підходи до вивчення досвіду економічних перетворень країн наздоганяючогоrd
3. Задание 1 Подрядная организация заключила с заказчиком договор строительного подряда на общую стоимость раб
4. Фінансові ресурси підприємств, їх склад і характеристика
5.  Цель работы Изучение дифракции от щели нити и одномерной дифракционной решетки
6. Тема- ОБЩЕСТВЕННОЕ ДВИЖЕНИЕ ПЕРВОЙ ЧЕТВЕРТИ XIX В
7. форма определяется функцией
8. Особенности проведения работ по ликвидации пожаров и аварийных ситуаций на объектах с наличием радиационных веществ
9. модуль 4 Налоги и налогообложение Вариант 9 Определить НДС подлежащий уплате в бюджет и заполнить нал
10. тематика контрольных работ и рефератов Написание студентами контрольных работ по дисциплине Культура Сан