ОПЕРАТОРЫ ЦИКЛОВ С ИЗВЕСТНЫМ ЧИСЛОМ ПОВТОРЕНИЙ

КОНТРОЛЬНАЯ РАБОТА

По дисциплине «Информационные технологии»________________________

На тему: __________________________________________________________

__________________________________________________________________

 

Отметка о зачёте _____________________ __________

(дата)

 

 

Руководитель ___________ __________ Лыткина Е.А.

(должность) (подпись) (ФИО)

____________

(дата)

 

 

Архангельск 2013

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

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

Кафедра информатики

ЗАДАНИЕ

НА КОНТРОЛЬНУЮ РАБОТУ № 2

 

по дисциплине ___ИНФОРМАЦИОННЫЕ ТЕХНОЛОГИИ_________________________

студенту __2__ курса 140.100 группы _________ специальность __ЗФ___ факультета

__________________Осетров Артем Игоревич__________________________________

(Фамилия Имя Отчество)

ВАРИАНТ 10

 

Тема: _ПРОГРАММИРОВАНИЕ НА АЛГОРИТМИЧЕСКОМ ЯЗЫКЕ_____

Содержание работы:

Составить программы на алгоритмическом языке VisualBasicScript. В работе привести текст заданий, текст программы и примеры выполнения этой программы: 1. Типы данных. Константы. Переменные ([2], Лабораторная работа № 2). 2. Массивы ([2] Лабораторная работа № 3). 3. Операторы разветвления ([2], Лабораторная работа № 4). 4. Операторы циклов с неизвестным числом повторений ([2], Лабораторная работа № 5) 5. Операторы циклов с известным числом повторений ([2] Лабораторная № 6). 6. Работа с числовой информацией ([2], Лабораторная работа № 8).    

Примечание: печатный документ должен быть выполнен на листе формата А4; поле (левое - 3 см, правое – 1,5, верхнее, нижнее - 2 см); ориентация - книжная; выравнивание основного текста - по ширине; абзац - 1,25 см; шрифт - ТimesNewRoman; заголовок раздела - заглавными буквами, жирным шрифтом; высота шрифта текста и формул - 13; межстрочное расстояние - полуторное. Работа должна быть оформлена в соответствии с СТО 01.04-2005

Рекомендуемая литература:

1. Грошев А.С. Информатика. Учебник для вузов. Архангельск, Изд-во АГТУ, 2010.– 468 с.

2. А. С. Грошев. Программирование на языке Visual Basic Scripting Edition [Электронный ресурс]: Метод. указания к выполнению лабораторных работ. – АГТУ, 2009. – Режим доступа http://www.agtu.ru:8900/SCRIPT/IT-012/scripts/serve_home для зарегистрированных пользователей.

3. Общие требования и правила оформления работ студентов. Стандарт организации. СТО 01.04-2005. АГТУ. Архангельск. 2006.104 с.

 

Срок сдачи работы «_04.06.2013 г._»

Руководитель работы ____________ Лыткина Е.А. ____16.12.2016____

(Подпись) (Фамилия, И.О.) (Дата)


 

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


 





ОГЛАВЛЕНИЕ

 

1 ТИП ДАННЫХ. КОНСТАНТЫ. ПЕРЕМЕННЫЕ. 5

2 МАССИВЫ... 7

3 ОПЕРАТОРЫ РАЗВЕТВЛЕНИЯ.. 9

4 ОПЕРАТОРЫ С НЕИЗВЕСТНЫМ ЧИСЛОМ ПОВТОРЕНИЙ.. 12

5 ОПЕРАТОРЫ ЦИКЛОВ С ИЗВЕСТНЫМ ЧИСЛОМ ПОВТОРЕНИЙ.. 16

6 РАБОТА С ЧИСЛОВОЙ ИНФОРМАЦИЕЙ.. 18

Список используемых источников.. 19


 


 

1 ТИП ДАННЫХ. КОНСТАНТЫ. ПЕРЕМЕННЫЕ.

 

 

 

 

Const N = "Артем"

Const O = "Игоревич"

Const S = "Осетров"

Dim x,y

x=S&","&N&","&O

y=N&" "&O&" "&S

MsgBox N&vblf&o&vblf&S&vblf&" "&vblf&x&vblf&y

 

 

Рисунок 1.1 – Результат выполнения программы

 

 

Начало
Задание констант
x=S&","&N&","&O y=N&" "&O&" "&S  
Вывод всех констант и перем. на экран
Конец

 

 


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

 


 


МАССИВЫ

 

 

Dim A(5)

Dim B(5)

A(0)="0"

A(1)="1"

A(2)="2"

A(3)="3"

A(4)="4"

B(0)="5"

B(1)="6"

B(2)="7"

B(3)="8"

B(4)="9"

Msgbox "Исходные массивы"&vblf&"x"&" "&"0 1 2 3 4"&vblf&"y"&" "&"5 6 7 8 9"&vblf&"Измененные"&vblf&A(0)&A(1)&A(2)&A(3)&A(4)&vblf&B(4)&B(3)&B(2)&B(1)&B(0)

 

 

Рисунок 2.2 – Результат выполнения программы

 

 

Начало
Задание значений элементам массивов X и Y
Вывод исходных и измененных значений
Конец


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

 


 

3 ОПЕРАТОРЫ РАЗВЕТВЛЕНИЯ

 

 

 

Dim x, y

x=Inputbox ("ввести номер месяца")

x=Eval(x)

If x=12 or x=1 or x=2 then

y="зима"

elseif x>2 and x<6 then

y="весна"

elseif x>5 and x<9 then

y="лето"

elseif x>8 and x<12 then

y="осень"

Elseif x<1 or x>12 then

y="нет такого месяца"

End if

msgbox x&vblf&y,,"Осетров"

 

Рисунок 3.3 – Результат выполнения программ

 

 


Начало
Вводится Х
If x=12 or x=1 or x=2
elseif 5<x<9  
elseif 8<x<12  
elseif 2<x<6  
Y = зима
Y = весна
Y = лето
Y = осень
Y = нет такого месяца
Выводится Y
Конец

 

 


 

 

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

КОНЕЦ


 


 

4 ОПЕРАТОРЫ С НЕИЗВЕСТНЫМ ЧИСЛОМ ПОВТОРЕНИЙ

 

 

 

(предусловие с “while”)

 

eps=1e-7

a=1

s=0

n=1

Do While Abs(a)>eps

a=((-1)^(n+1))/(4*n-1)+((-1)^(n+1))/(4*n-3)

s=s+a:n=n+1

Loop

MsgBox("Расчет Pi = " & (4*s)/sqr(2) & vbLf & "n = " & n), , "Осетров А И 10 вариант"

 

(предусловие с “until”)

 

eps=1e-7

a=1

s=0

n=1

Do Until Abs(a)<=eps

a=((-1)^(n+1))/(4*n-1)+((-1)^(n+1))/(4*n-3)

s=s+a:n=n+1

Loop

MsgBox("Расчет Pi = " & (4*s)/sqr(2) & vbLf & "n = " & n), , "Осетров А И 10 вариант"

 

 

(постусловие с “ while”)

 

eps=1e-7

a=1

s=0

n=1

Do

a=((-1)^(n+1))/(4*n-1)+((-1)^(n+1))/(4*n-3)

s=s+a:n=n+1

Loop While Abs(a)>eps

MsgBox("Расчет Pi = " & (4*s)/sqr(2) & vbLf & "n = " & n), , "Осетров А И 10 вариант"

 

(постусловие с “until”)

eps=1e-7

a=1

s=0

n=1

Do

a=((-1)^(n+1))/(4*n-1)+((-1)^(n+1))/(4*n-3)

s=s+a:n=n+1

Loop Until Abs(a)<=eps

MsgBox("Расчет Pi = " & (4*s)/sqr(2) & vbLf & "n = " & n), , "Осетров А И 10 вариант"

Рисунок 4.1 – Результат выполнения программы

(предусловие “While”)

Рисунок 4.2 – Результат выполнения программы

(предусловие c “until”)

 


Рисунок 4.3 – Результат выполнения программы

(постусловие с “ while”)

Рисунок 4.4 – Результат выполнения программы

(постусловие с “until”)

 

Начало
Задание значений eps, a, n, s
While/Until Abs (A) >eps
a=((-1^(n+1))/(4*n-1))+((-1^(n+1))/(4*n-3)) S = S + a; n = n +1
Выводится расчетное значение
Конец
Начало
Задание значений eps, a, n, s  
While/Until Abs (A) >eps  
a=((-1^(n+1))/(4*n-1))+((-1^(n+1))/(4*n-3)) S = S + a; n = n +1
Выводится расчетное значение
Конец

 


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

для цикла предусловие для цикла постусловие

 


 

 

ОПЕРАТОРЫ ЦИКЛОВ С ИЗВЕСТНЫМ ЧИСЛОМ ПОВТОРЕНИЙ

 

 

 

n=3

a=1

b=10

S=0

ReDim x(n)

Randomize

For i=1 to n

x(i)=b-(b-a)*rnd

Next

For i=1 to n-1

S=S+(x(i)/x(i+1))

Next

M=" "

For Each iks in x

m=M&iks&vblf

Next

Msgbox m &vblf&S,,"Осетров А И"

 

 

Рисунок 5.1 – Результат выполнения программы

 

Начало
Конец
Задается a, b, n, s
For i=1 to n  
x(i)=b-(b-a)*rnd  
For i=1 to n-1  
S=S+(x(i)/x(i+1))  
Вывод строк со значениями элементов

 

 


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