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

Санкт-Петербургский колледж телекоммуникаций

«УТВЕРЖДАЮ»
ЗАМ. Директора по Э и Р _____________А.В.Молчанов
“1” сентября 2015 г.

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

«Проверка условий в программе»

по дисциплине: «Информатика и ИКТ»

для специальностей:

210403 «Аудиовизуальная техника»

210705 «Средства связи с подвижными объектами»

210709 «Многоканальные телекоммуникационные системы»

210721 «Радиосвязь, радиовещание и телевидение»

210723 «Сети связи и системы коммутации»

230115 «Программирование в компьютерных системах»

230701 «Прикладная информатика (по отраслям)»

230111 «Компьютерные сети»

080214 «Операционная деятельность в логистике»

среднего профессионального образования

(базовый уровень)

Работа рассчитана

на 2 часа

Санкт- Петербург

Описание лабораторных работ составлено в соответствии с рабочей программой по учебной дисциплине «Информатика и ИКТ»

Составитель: К.Д. Волкова

Рассмотрено и одобрено на заседании цикловой комиссии № 5 (цикловая комиссия информатики и программирования в компьютерных системах)

Утверждено на заседании методического совета

01 июля 2015 г. Протокол №5

Председатель цикловой (предметной) комиссии:

___________________ Н.В.Кривоносова

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

«Проверка условий в программе»

  1. Цель работы:

В соответствии с рабочей программой по дисциплине «Информатика и ИКТ» в результате выполнения заданий по лабораторной работе студент должен:

Уметь:

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

Знать:

- технологии решения конкретных задач с помощью конкретных программных средств

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

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

- получить навыки по отладке и тестированию программ.



  1. Краткие сведения из теории:

Для реализации разветвляющихся структур в языке Visual Basic используются операторы:

IF условие THEN оператор1 ELSE оператор2

или

IF условие THEN оператор

  1. Порядок выполнения работы:

Создайте проект, задайте ему имя «Ваша фамилия_лр2». Наберите пример программы, данный в этой работе в блоке Sub, если строки, в которых имеются пустые скобки, подчёркиваются, удалите скобки. Посмотрите, как работает пример. Изучите комментарии (написаны зелёным шрифтом), которые показывают, что выполняет каждая строчка.

На основе примера составьте программы для решения задачи:

Составить программу для вычисления значений переменных

y = Лабораторная работа №2 - student2.ru , где x = Лабораторная работа №2 - student2.ru ; a1 = Лабораторная работа №2 - student2.ru

a2 = Лабораторная работа №2 - student2.ru Лабораторная работа №2 - student2.ru Лабораторная работа №2 - student2.ru значения «c» задаются.

  1. Пример выполнения задания:

Составить программу для вычисления значений переменных.

y = Лабораторная работа №2 - student2.ru , где x = Лабораторная работа №2 - student2.ru ; a1 = Лабораторная работа №2 - student2.ru

a2 = Лабораторная работа №2 - student2.ru Лабораторная работа №2 - student2.ru Лабораторная работа №2 - student2.ru значения «b» задаются.

Программа, реализующая это задание, выглядит следующим образом:

Sub Main() 'Начало программы

Try 'Блок обработки ошибок

While True 'Зацикливает программу

Console.Clear() 'Очистка поля ввода

Dim X, Y, A1, A2, B As Double 'Инициализация переменных

Console.Write("B = ") 'Ввод переменных

B = Double.Parse(Console.ReadLine())

If (B < 0) Then 'Оператор условного перехода

A2 = B

Else

A2 = 2

End If

A1 = B / A2 'Математические операции

X = 1 / A1

Y = 1 + (X / (2 * A1))

' Вывод результата на экран

Console.WriteLine("Результат:")

Console.WriteLine("B =" + B.ToString())

Console.WriteLine("A1 =" + A1.ToString())

Console.WriteLine("A2 =" + A2.ToString())

Console.WriteLine("X =" + B.ToString())

Console.WriteLine("Y =" + B.ToString())

Console.ReadLine()

End While

Catch ex As Exception

Console.WriteLine(ex.Message)

End Try

End Sub

5. Содержание отчета:

1. Представить преподавателю набранную и работающую программу на экране монитора.

2. Представить написанную программу в тетради для лабораторных работ.

3. Подготовить тестовый вариант исходных данных и полученные результаты.

ПРИЛОЖЕНИЕ

Самостоятельная работа по практическому занятию №2

«Проверка условий в программе»

Самостоятельная работа по теме занятия включает в себя:

- изучение теоретического материала лекционных занятий, учебной литературы, Интернет-ресурсов, раздела «Краткие сведения из теории» настоящего описания ЛР;

- выполнение практических заданий и решение задач

Задачи и практические задания:

Создайте новый проект, задайте ему имя «Ваша фамилия_самостоятельная_лр2» и в нём напишите программу для вычисления значений переменных.

Переменным присвоить тип Double.

Как задаются формулы и экспонента ех смотрите в описании предыдущей лабораторной работы.

y = Лабораторная работа №2 - student2.ru Лабораторная работа №2 - student2.ru Лабораторная работа №2 - student2.ru , где

x = Лабораторная работа №2 - student2.ru Лабораторная работа №2 - student2.ru Лабораторная работа №2 - student2.ru ; z1 = Лабораторная работа №2 - student2.ru ;

z2 = Лабораторная работа №2 - student2.ru Лабораторная работа №2 - student2.ru Лабораторная работа №2 - student2.ru Значение «а» задается.

Пример выполнения схожего задания задан ниже:

Задание: Составить программу для вычисления значений переменных.

y = Лабораторная работа №2 - student2.ru Лабораторная работа №2 - student2.ru Лабораторная работа №2 - student2.ru , где x = Лабораторная работа №2 - student2.ru ; a1 = Лабораторная работа №2 - student2.ru

a2 = Лабораторная работа №2 - student2.ru Лабораторная работа №2 - student2.ru Лабораторная работа №2 - student2.ru значения «b» и «m» задаются.

Программа, реализующая это задание, выглядит следующим образом:

Sub Main() 'Начало программы

Try 'Блок обработки ошибок

While True 'Зацикливает программу

Console.Clear() 'Очистка поля ввода

Dim X, Y, A1, A2, B, M As Double 'Инициализация переменных

Console.Write("B = ") 'Ввод переменных

B = Double.Parse(Console.ReadLine())

Console.Write("M = ")

M = Double.Parse(Console.ReadLine())

If (B < 0) Then 'Оператор условного перехода

A2 = Math.Abs(B)

Else

A2 = 2

End If

A1 = (Math.Cos(B / A2) / B) 'Математические операции

X = ((1 - Math.Sin(M)) / (Math.Pow(A1, 2)))

Y = (Math.Atan(X) + Math.Log(Math.Sqrt((1 + X) / (1 - X))))

' Вывод результата на экран

Console.WriteLine("A2 = " + A2.ToString() + " A1 = " + A1.ToString() + " X = " + X.ToString() + " Y = " + Y.ToString())

Console.ReadLine()

End While

Catch ex As Exception

Console.WriteLine(ex.Message)

End Try

End Sub

Наши рекомендации