Основы программирования
Построение таблицы значений функции Y(x). Применение оператора For-Next для произвольных значений интервала и шага изменения аргумента. Блок-схема алгоритма и программные коды процедур. Программные коды для определения в массиве элементов, равных нулю.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | контрольная работа |
| Язык | русский |
| Дата добавления | 09.03.2012 |
| Размер файла | 113,3 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
Задание № 1
1)Текст задания:
Построить таблицу значений функции Y(x).
Для произвольных значений интервала и шага изменения аргумента. Использовать оператор For-Next. Вывести на печать таблицу значений X и Y.
2)Таблица используемых переменных:
|
Переменная и ей тип |
Назначение переменной |
|
|
xn (Single) |
Начальное значение интервала |
|
|
xk (Single) |
Конечное значение интервала |
|
|
x (Single) |
Шаг |
|
|
flag (Integer) |
Переменная, показывающая неправильный ввод данных |
|
|
y (Single) |
Значение функции |
|
|
i (Single) |
Значение аргумента |
3)Эскиз формы:
4)Таблица свойств объектов:
функция алгоритм программный код
|
Объект |
Свойство |
|
|
Text1 (TextBox) |
Ввод начального значения интервала |
|
|
Text2 (TextBox) |
Ввод конечного значения интервала |
|
|
Text3 (TextBox) |
Ввод шага |
|
|
Command1 (CommandButton) |
Запуск программы |
|
|
Picture1 (PictureBox) |
Вывод значений аргумента |
|
|
Picture2 (PictureBox) |
Вывод значений функции |
5) Блок-схема алгоритма:
Размещено на http://www.allbest.ru/
6) Программные коды процедур
Dim xn As Single, xk As Single, x As Single, flag As Integer, i As Single, y As Single
Private Sub Command1_Click()
xn = Val(Text2.Text)
xk = Val(Text1.Text)
x = Val(Text3.Text)
If x = 0 Then flag = 1
If (x > 0) And (xn > xk) Then flag = 1
If (x < 0) And (xn < xk) Then flag = 1
If flag = 1 Then
MsgBox "не правильно введены данные!!!"
GoTo 4
End If
For i = xn To xk Step x
y = (Exp(i ^ 2 + 167 / 100) + (Abs(i) / 3 + Sin((16 / 10) * Atn(1)) ^ 2) ^ (1 / 3)) / (Sqr(Abs(i)) * Log(i - 5) / Log(4))
Picture1.Print (" "); i
Picture2.Print (" "); y
Next i
4: flag = 0
End Sub
7)Результаты вычисления:
При x начальном равном 1, x конечном 1,9 и шаге 0,1. Получаем таблицу:
|
x |
y |
|
|
1 |
1,621926 |
|
|
1,1 |
1,543274 |
|
|
1,2 |
1,443899 |
|
|
1,3 |
1,436129 |
|
|
1,4 |
1,581238 |
|
|
1,5 |
2,427583 |
|
|
1,6 |
2,877904 |
|
|
1,7 |
1,75117 |
|
|
1,8 |
1,390621 |
|
|
1,9 |
1,316316 |
Задание № 2
1)Текст задания:
Составьте программные коды для решения задачи: В массиве определить номера элементов, равных нулю. Предусмотреть вывод сообщения для случая отсутствия элементов, удовлетворяющих условию.
2)Таблица используемых переменных:
|
Переменная и ей тип |
Назначение переменной |
|
|
mas() (Integer) |
Исходный массив |
|
|
i (Integer) |
Переменная в операторе FOR-NEXT |
|
|
Mas0() (Integer) |
Массив, содержащий нулевые элементы |
|
|
d (Integer) |
Количество нулевых элементов |
3) Эскиз формы
4) Таблица свойств объектов:
|
Объект |
Свойство |
|
|
Command1 (CommandButton) |
Запуск программы |
|
|
Picture1 (PictureBox) |
Вывод исходного массива |
|
|
Picture2 (PictureBox) |
Вывод номеров нулевых элементов |
5)Блок-схема алгоритма:
Размещено на http://www.allbest.ru/
Размещено на http://www.allbest.ru/
6)Программные коды процедур:
Dim mas() As Integer, i As Integer, d As Integer, mas0() As Integer
Private Sub Command1_Click()
ReDim mas(15)
ReDim mas0(15)
Randomize
For i = 1 To 15
mas(i) = (Rnd(10) * 10)
Picture1.Print (" "); mas(i)
Next i
d = 1
For i = 1 To 15
If mas(i) = 0 Then
mas0(d) = i
d = d + 1
End If
Next i
If d = 1 Then
MsgBox "Нулевых элементов Нет!!!"
Else: For i = 1 To (d - 1)
Picture2.Print (" "); mas0(i)
Next i
End If
End Sub
7)Результаты вычисления:
Поиск числа 3:
Размещено на Allbest.ru
Подобные документы
Расчет и построение таблицы значений функции (протабулирование функции) при различных значениях аргумента. Нахождение наибольшего и наименьшего значений функции на отрезке и построение графика. Рабочий лист Excel в режимах отображения значений и формул.
контрольная работа [30,0 K], добавлен 27.05.2010Разработка различных программ для вычисления X и Y по формуле, для вычисления интеграла, для вычисления таблицы значений функции и для вычисления элементов вектора. Составление блок-схемы программы. Ввод значений, описание переменных и условия расчета.
контрольная работа [148,1 K], добавлен 08.11.2013Программа вычисления системы, построение графика. Задача шага изменения аргумента. Набор диапазона значений и зависимость x от i. Наложение условия для решения заданной системы. Создание функции с помощью if. Общий вид графика решения заданной системы.
лабораторная работа [48,5 K], добавлен 25.12.2011Схема электрической цепи (источник переменного тока, катушка индуктивности, конденсатор, набор резисторов и ключ). Вывод системы дифференциальных уравнений. Численное интегрирование (методы левых и средних прямоугольников). Блок-схемы и программные коды.
курсовая работа [1,7 M], добавлен 09.06.2012История создания и развитие языка программирования Pascal, его версии. Особенности и порядок построения графика функции на языке Turbo Pascal с использованием декартовой системы координат. Блок схема алгоритма процедур, листинг и тестирование программы.
курсовая работа [102,7 K], добавлен 23.12.2011Табличный вывод значений суммы ряда и номера последнего элемента суммы в зависимости от значений величин входных параметров с применением операторов ветвления и циклов. Блок-схема алгоритма решения. Время работы программы для расчета одного значения.
контрольная работа [762,9 K], добавлен 14.05.2013Создание приложения для вычисления значений функций и определение суммы этих функций: эскиз формы, таблица свойств объекта, список идентификаторов и непосредственные коды процедур. Результаты вычислений и выводы, проверка работы данной программы.
лабораторная работа [19,9 K], добавлен 20.10.2009Математическое описание, алгоритм и программа вычисления определенного интеграла методом трапеций. Расчет n-значений исследуемой функции и вывод их в виде таблицы. Технические и программные средства. Входные и выходные данные, функциональное назначение.
курсовая работа [21,0 K], добавлен 03.01.2010Выбор и обоснование параметров варианта. Структура вычислительного процесса алгоритмы вычисления. Последовательность обработки операндов. Обозначения на схемах ОВС, временные диаграммы. Программирование ОВС, коды команд ОЭ. Схема цепей программирования.
курсовая работа [264,1 K], добавлен 24.09.2010Требования к интерфейсу программного продукта, характеристика операционной системы Windows XP и языка программирования разветвляющихся и циклических процессов Pascal. Структура условного оператора. Описание алгоритма работы с помощью блок-схемы, листинг.
курсовая работа [268,0 K], добавлен 25.12.2010
