Основы программирования

Определение формулы для функции Y(x), построение таблицы значений функции. Таблица свойств объектов. Блок-схема алгоритма и программные коды процедур. Программные коды для определения в массиве номера и значения 1-го элемента, равного заданной величине.

Рубрика Программирование, компьютеры и кибернетика
Вид контрольная работа
Язык русский
Дата добавления 09.03.2012
Размер файла 184,8 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Размещено на http://www.allbest.ru/

Задание № 1

1.Текст задания:

Определить формулу для функции Y(x). Построить таблицу значений функции.

Для произвольных значений интервала и шага изменения аргумента. Использовать оператор For-Next. Вывести на печать таблицу значений X и Y.

2.Таблица используемых переменных:

Переменная и ей тип

Назначение переменной

nach (Single)

Начальное значение промежутка

kon (Single)

Конечное значение промежутка

X (Single)

Шаг

fl (Integer)

Переменная

y (Single)

Значение функции

i (Single)

Значение аргумента

3.Эскиз формы:

программный код массив

4.Таблица свойств объектов:

Объект

Свойство

Text1 (TextBox)

Ввод начального значения x c, которого начинается вычисление функции

Text2 (TextBox)

Ввод конечного значения x, на котором заканчивается вычисление функции

Text3 (TextBox)

Вводится шаг

Command1 (CommandButton)

Запуск вычисления функции

Command2 (CommandButton)

Выход из программы

OLE1 (OLE)

Объект, на котором показана счетная функция

Picture1 (PictureBox)

Выводится значения X

Picture2 (PictureBox)

Выводятся значений Y

5.Блок-схема алгоритма:

Размещено на http://www.allbest.ru/

6.Программные коды процедур:

Dim nach As Single, kon As Single, x As Single, fl As Integer, i As Single, y As Single

Private Sub Command1_Click()

nach = Val(Text2.Text)

kon = Val(Text1.Text)

x = Val(Text3.Text)

fl = 1

If x = 0 Then GoTo 1

If (x > 0) And (nach > kon) Then GoTo 1

If (x < 0) And (nach < kon) Then GoTo 1

fl = 0

For i = nach To kon Step x

y = ((i ^ 2 + 1) ^ (1 / 3) * Cos(i) + Atn(3 * i) * Sqr(Abs(i))) / (Sin((5 / 9) * Atn(1) + i) + (1 / 3) * Sin(Log(Abs(Tan(i))) / Log(2)))

Picture1.Print (" "); i

Picture2.Print (" "); y

Next i

1: If fl = 1 Then

MsgBox "Неправильно введены данные!!!"

fl = 0

End If

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

7.Результаты вычисления:

Задание № 2

1.Текст задания:

Составьте программные коды для решения задачи: В массиве определить номер и значение 1-го элемента, равного заданной величине. Предусмотреть вывод сообщения для случая отсутствия элементов, удовлетворяющих условию списка.

2.Таблица используемых переменных:

Переменная и ей тип

Назначение переменной

mas() (Integer)

Массив

i (Integer)

Переменная в операторе

chislo (Integer)

Заданная величина

fl (Integer)

Переменная

po (Integer)

Номер элемента в массиве

3. Эскиз формы:

4. Таблица свойств объектов:

Объект

Свойство

Text2 (TextBox)

Ввод заданной величины, которую надо найти в массиве

Command2 (CommandButton)

Запуск нахождения заданной величины

Command1 (CommandButton)

Выход из программы

Picture2 (PictureBox)

Вывод номера элемента который надо найти в массиве, в случае если такавого нет выводится сообщение об его отсутствии

5)Блок-схема алгоритма:

Размещено на http://www.allbest.ru/

6.Программные коды процедур:

Dim mas() As Integer, i As Integer, chislo As Integer, po As Integer, fl As Integer

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Command2_Click()

fl = 0

chislo = Val(Text2.Text)

po = 0

Randomize

ReDim mas(10)

For i = 1 To 10

mas(i) = (Rnd(10) * 20)

Form1.Print (" "); mas(i)

Next i

For i = 1 To 10

If mas(i) = chislo Then

po = i

fl = 1

GoTo 1

End If

Next i

1: If fl = 1 Then

Picture2.Print (" "); po

Else: MsgBox "Такой элемент не найден!!!"

End If

End Sub

7.Результаты вычисления:

Поиск числа 2:

Размещено на Allbest.ru


Подобные документы

  • Табличный вывод значений суммы ряда и номера последнего элемента суммы в зависимости от значений величин входных параметров с применением операторов ветвления и циклов. Блок-схема алгоритма решения. Время работы программы для расчета одного значения.

    контрольная работа [762,9 K], добавлен 14.05.2013

  • Расчет и построение таблицы значений функции (протабулирование функции) при различных значениях аргумента. Нахождение наибольшего и наименьшего значений функции на отрезке и построение графика. Рабочий лист Excel в режимах отображения значений и формул.

    контрольная работа [30,0 K], добавлен 27.05.2010

  • Создание приложения для вычисления значений функций и определение суммы этих функций: эскиз формы, таблица свойств объекта, список идентификаторов и непосредственные коды процедур. Результаты вычислений и выводы, проверка работы данной программы.

    лабораторная работа [19,9 K], добавлен 20.10.2009

  • Вычисление значения интеграла функции, заданной графически. Постановка задач. Составление таблицы значений функции, заданной в виде разложения в ряд. Математическая формулировка. Численный метод решения. Схемы алгоритмов. Инструкции пользователям.

    курсовая работа [56,3 K], добавлен 05.07.2008

  • История создания и развитие языка программирования Pascal, его версии. Особенности и порядок построения графика функции на языке Turbo Pascal с использованием декартовой системы координат. Блок схема алгоритма процедур, листинг и тестирование программы.

    курсовая работа [102,7 K], добавлен 23.12.2011

  • Выбор и обоснование параметров варианта. Структура вычислительного процесса алгоритмы вычисления. Последовательность обработки операндов. Обозначения на схемах ОВС, временные диаграммы. Программирование ОВС, коды команд ОЭ. Схема цепей программирования.

    курсовая работа [264,1 K], добавлен 24.09.2010

  • Изучение понятия и свойств алгоритма. Определение сущности технологии Robson. Исполнитель, а также блок-схема алгоритма или его графическое представление, в котором он изображается в виде последовательности связанных между собой функциональных блоков.

    реферат [155,9 K], добавлен 19.10.2013

  • Разработка программного обеспечения, реализующего нахождение минимального значения заданной функции многих переменных и ее точку минимума методом сопряжённых градиентов. Минимизация функции вдоль заданного направления. Блок-схема алгоритма минимизации.

    отчет по практике [725,6 K], добавлен 01.10.2013

  • Схема электрической цепи (источник переменного тока, катушка индуктивности, конденсатор, набор резисторов и ключ). Вывод системы дифференциальных уравнений. Численное интегрирование (методы левых и средних прямоугольников). Блок-схемы и программные коды.

    курсовая работа [1,7 M], добавлен 09.06.2012

  • Решение задачи по методу Адамса. Блок-схема функции main. Блок-схема функции Adams. Листинг программы. Блок-схема функции MMinor. Блок-схема функции MatrixMultiply. Блок-схема функции Determinant. Результат решения задачи на ЭВМ.

    курсовая работа [68,9 K], добавлен 16.04.2004

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.