ГОУВПО

Уфимский государственный авиационный технический университет

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

ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

к контрольной работе по информатике

Программирование на VisualBasic

Уфа 2009 г.

Задание № 1. Сумма ряда

Условие задачи:

Для числового ряда найти

а) сумму членов числового ряда при М=10;

б) точное значение суммы членов числового ряда, вычисленное по формуле Sum2=15е;

в) погрешности вычисления суммы членов числового ряда (абсолютную и относительную) по отношению к точному значению суммы членов числового ряда.

Решение:

Составим блок-схему алгоритма решения задачи (представлена на рисунке слева).

Итак, для решения задачи используем переменные:

М (количество членов вычисляемого числового ряда);

f (вспомогательная переменная, вычисляющая для цикла факториал);

Sum1 (сумма членов числового ряда);

Sum2 (точное значение суммы);

Err1 (абсолютная погрешность);

Err2 (относительная погрешность);

и определимся с типом данных, который они могут содержать. Значения переменных M и k будут короткими целыми (Integer),значение f – длинным целым (Long), а значения переменных Sum1, Sum2, Err1,Err2 – вещественные удвоенной точности [1].

Для ввода значений переменной M, а также вывода результатов используются текстовые поля (объект TextBox). Чтобы сделать поля для вывода неизменяемыми, при определении характеристик поля в строке Enable укажем False [2].

Составим текст программы (приведен с комментариями).

Public Class Form1

Private Sub ButtonOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOK.Click

' описание переменных:

Dim M As Integer ' количество членов числового ряда

Dim Sum1 As Double, Sum2 As Double ' суммаиточнаясуммаряда

Dim Err1 As Double, Err2 As Double ' абсолютная и относительная погрешности

Dim k As Integer, f As Long ' вспомогат.переменные

' для организации цикла и подсчета факториала

' количество членов числового ряда вводятся в форме

--> ЧИТАТЬ ПОЛНОСТЬЮ <--