Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Методика и порядок выполнения работы

Читайте также:
  1. FAST (Методика быстрого анализа решения)
  2. I. Общая характеристика работы
  3. II. Организация выполнения курсовой работы
  4. II. Умови та порядок присвоєння і підтвердження
  5. III. Порядок работы менеджера по бронированию
  6. IV. Порядок и сроки проведения конкурса
  7. V. ОРГАНИЗАЦИЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ

1. Изучите теоретическое обоснование.

2. Выполните пример:

Для любых а и t, введенных с клавиатуры, вычислить значение функции .

Для этого:

· войдите в среду Visual Basic;

· с помощью стандартного набора инструментов Toolbox создайте экранную форму с командной кнопкой Command1 и надписью «Пуск», нажатием которой запускается программа;

· создайте программный код:

Private Sub Command1_Click ()

Dim а As Integer, t, Y As Single

а = Val (InputBox(“Введите значение а”)) ‘Преобразование введенных

t = Val (InputBox(“Введите значение t”)) ‘ значений в числа

If t<1 Then Y=a*a*log(t) Else If t<=3 Then Y=1 Else Y=exp(t)*cos(a*t)

MsgBox Y,,” Значение Y=”

End Sub

· запустите программный код и выполните программу с разными исходными данными.

· измените в программном коде однострочный условный оператор на многострочный следующим образом:

If t<1 Then

Y=a* a *log(t)

Else

If t<=3 Then

Y=1

Else: Y=exp(t)*cos(a*t)

End If

Повторите запуск программного кода и сравните результат с предыдущим при одинаковых исходных данных.

3. Выполните пример 2: определить агрегатное состояние воды по введенному значению температуры в Цельсиях.

Для этого:

· войдите в среду Visual Basic;

· с помощью стандартного набора инструментов Toolbox создайте экранную форму с командной кнопкой Command2 и надписью «Пуск2», нажатием которой запускается программа;

· создайте программный код:

Private Sub Command2_Click ()

Dim strZ,strB As String, t As Single

t = Val (InputBox(“Введите значение t”))

strZ = “Вода при температуре”

strB = “ градусов Цельсия – ”

SELECT CASE t

CASE IS < 0

MsgBox Str(t)+ strB + “ лед”,, strZ

CASE 0 TO 100

MsgBox Str(t)+ strB + “жидкость”,, strZ

CASE ELSE

MsgBox Str(t) + strB +“ пар ”,, strZ

End SELECT

 

В этом примере функция Str(t) преобразует значение числовой переменной t в строку символов для вывода в окне MsgBox. Оператор MsgBox значения, указанные через «+», объединяет в общую строку.

4. На основании примеров из теоретической части в соответствии со своим вариантом задания (таблица 1) составьте блок-схему решения задачи. Создайте форму и программный код задачи. Отладьте и выполните программу. Результат запишите в отчет.

Таблица 1 – Варианты задания

№ варианта Условие задания
  Даны два числа. Большее из этих двух чисел заменить их полусуммой, а меньшее удвоенным произведением.
  Даны величины а 1 и а 2.. Определить, принадлежит ли точка А(а 1, а 2) кругу x2+y2=16.
  Даны три стороны треугольника a, b, c. Определить, является ли такой треугольник равнобедренным, равносторонним или разносторонним.
  Определить и вывести на печать номер четверти, в которой находится точка М с координатами х и у.
  Даны стороны прямоугольника a, b. Если a >b, найти его площадь, если a < b, найти его периметр, если a = b, то найти его периметр и площадь.
  Заданы радиус круга, две смежные стороны прямоугольника. Определить, какая фигура имеет большую площадь, какая меньшую, или они равны?
  Даны три числа. Найти среди них максимальное отрицательное число.
  Заданы радиус круга R и сторона квадрата A. Определить, какая фигура имеет большую площадь.
  Заданы два целых числа. Определить, являются ли они оба четными или оба нечетными, или определить, какое из них четное, а какое нечетное.
  Заданы отрезки a, b, c, d. Проверить, могут ли они служить сторонами прямоугольника.
  Заданы три числа. Определить, есть ли среди них хотя бы одна пара равных по величине.
  Даны три числа. Найти разность между наибольшим и наименьшим среди них.
  Даны три числа. Меньшее среди них заменить на 0.
  Найти минимальное значение из величин, определяемых арифметическими выражениями: а=sin(x), b =cos(x), c =lg(x) при любом, введенном х.
  Заданы три числа А, В, С. Если они все положительны, то найти их корни; если все отрицательны, то возвести каждое из них в квадрат, иначе найти их сумму.
  Даны три разных числа. Найти среди них произведение и количество отрицательных.

 

4 Содержание отчета и его форма

Выполните все описанные пункты задания, письменно оформите отчет, который должен содержать:

- тему, цель лабораторной работы;

- общий вид условных операторов;

- условие, блок-схему, программу и результат выполнения индивидуального задания.

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

1. Какие алгоритмы и программы имеют разветвленную структуру?

2. Основные операции используются в логических выражениях?

3. Какие операторы используются для программирования алгоритмов разветвляющейся структуры?

4. Общий вид и принцип работы оператора условного перехода – однострочного.

 


Дата добавления: 2015-08-03; просмотров: 71 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
SELECT CASE выражение для проверки| Ознакомились.

mybiblioteka.su - 2015-2024 год. (0.007 сек.)