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

Построение таблицы значений функции 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

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