Операторы циклов с известным числом повторений
КОНТРОЛЬНАЯ РАБОТА
По дисциплине «Информационные технологии»________________________
На тему: __________________________________________________________
__________________________________________________________________
Отметка о зачёте _____________________ __________
(дата)
Руководитель ___________ __________ Лыткина Е.А.
(должность) (подпись) (ФИО)
____________
(дата)
Архангельск 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 – Блок-схема