Министерство образования и науки Российской Федерации

федеральное государственное автономное образовательное учреждение

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

«Северный (Арктический) федеральный университет имени м.В. Ломоносова»

	Кафедра информатики
	(наименование кафедры)

Гладкий Вадим Сергеевич

(фамилия, имя, отчество студента)

Студенту института ЭиТ 1 курса 205 группы

Расчетно-графическая работа

Информационные технологии
(наименование дисциплины)

По дисциплине

На тему Использование языка программирования для решения прикладных задач.

(наименование темы)

Отметка о зачете____________________ _________________

(дата)

Руководитель к.т.н доцент кафедры Е.А.Лыткина

(должность) (подпись) (Фамилия И.О.)

Архангельск

2013

ЛИСТ ДЛЯ ЗАМЕЧАНИЙ

Оглавление

1 Работа с массивом 6

2 Программирование разветвленных алгоритмов 8

3 Программирование циклических алгоритмов(с неизвестным числом повторений) 13

4 Программирование циклических алгоритмов(с известным числом повторений) 20

5 Процедуры и функции пользователя 23

6 Работа с информацией типа дата и время 27

7 Работа с логическими выражениями 29

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ 30

1 Работа с массивом

Задание:

Опишите в программе динамический массив. Выполните в начале его инициализацию для размерности 3 элемента и присвойте значения элементам массива – любые числа. Покажите все данные в 1-м окне сообщений. Затем выполните повторную инициализацию для размерности 7 с сохранением значений определенных ранее элементов. Присвойте элементам с 4 по 7-ой любые даты. Покажите все данные во 2-м окне сообщений.

Текст программы:

DimC()

RedimC(3)

c(0)=0

c(1)=2

C(2)=3

Msgbox C(0)&" "&C(1)&" "&C(2), ,"Массив"

redim preserve C(7)

C(3)=#03/19/2013#

C(4)=#03/20/2013#

C(5)=#03/21/2013#

C(6)=#03/22/2013#

Msgbox C(0)&" "&C(1)&" "&C(2)&" "&vblf&C(3)&" "&vblf&C(4)&_

" "&vblf&C(5)&" "&vblf&C(6)&" "&C(7), ,"Массив.ГладкийВ.СИЭиТ-1-5"

Рисунок 1.1 - Результаты

Рисунок 1.2 – Блок-схема

2 Программирование разветвленных алгоритмов

1)Задание: Вычислите переменную Y по одному из выражений в зависимости от значения Х. Значение переменных Х и Y покажите в окне сообщений.

Таблица 1- Задание

№	Условие	Y
1.7	Х<-1038	Y= -∞
	Х>=-10e38 и Х<=10e30	Y="диапазон действительных чисел"
	x>10e38		Y= +∞

Текст работы:

fio ="Гладкий В.C ИЭиТ-1-5"

x =inputbox("задайте значение переменной X",""&fio)

x =eval(x)

ifx<-10e38 then

Y=" Y = минус бесконечность"

elseif x>10e38 then

Y=" Y = плюс бесконечность"

else

Y=" Y = диапазон действительных чисел"

endif

Msgbox "результат выполнения if для x="&X&":"&Y,,fio

Результаты:

Рисунок 2.1 – Результаты

Рисунок 2.2 – Блок-схема

2) Задание:

С использованием оператора выбора CASEвыполнить задание :

Таблица 2 – Задание

№	Условие	Y
1.6	Х – месяц от 1 по 3	Y= “1-й квартал”
	Х – месяц от 4 по 6	Y=“2-й квартал”
	Х – месяц от 7 по 9		Y= “3-й квартал”
	Х – месяц от 9 по 12		Y=“4-й квартал”

Текст работы:

fio ="Гладкий В. С ИЭиТ -1-5"

x =inputbox("задайте значение переменной X",""&fio)

x =eval(x)

selectcaseX

case 1,2,3 Y="1-ыйквартал"

case 4,5,6 Y="2-ыйквартал"

case 7,8,9 Y="3-ый квартал"

case 10,11,12 Y="4-ый квартал"

caseelse Y="неверный месяц"

endselect

Msgbox "результат выполнения if для x="&X&": " &Y,,fio

Результаты:

Рисунок 2.3 – Результаты

Рисунок 2.4 – Блок-схема