Отчёт.3.5

Бийский технологический институт (филиал)

федерального государственного бюджетного образовательного

учреждения высшего образования

«Алтайский государственный технический университет им. И. И. Ползунова»

Технологический факультет

Кафедра методов и средств измерения и автоматизации

Отчет

по лабораторной работе № 3

Программирование циклических алгоритмов

(название лабораторной (практической) работы)

по дисциплине Языки программирования

(наименование дисциплины)

Вариант № 5

Выполнил

студент гр. ИСТ-

подпись и.о. фамилия

Проверил

профессор каф. МСИА А. И. Сидоренко

подпись и.о. фамилия

г. Бийск, 2017

Цель:

освоить основы программирования с использованием циклических алгоритмов.

Постановка индивидуальной задачи:

Написать и отладить программу циклического алгоритма вида

при .

Описание разработанной программы:

Программа выполняет циклический алгоритм, который с помощью алгебраической суммы, включающей факториал, вычисляет значение cos x.

Разработанная программа:

1. Интерфейс программы (Рис. 1)

Рисунок 1 – Интерфейс программы

2. Код программы

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Math.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Memo1->Clear();

Edit1->Clear();

Edit2->Clear();

Edit3->Clear();

Edit4->Clear();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

double x1, x2, f, result, h;

int n;

x1 = StrToFloat(Edit1->Text);

x2 = StrToFloat(Edit2->Text);

n = StrToInt(Edit3->Text);

h = StrToFloat(Edit4->Text);

for (double i = x1; i <= x2; i = i + h) {

result = 1;

for (int j = 1; j <= n; j++) {

f = 2 * j + 1;

for (int k = 1; k <= j; k++) f = f / k;

f = f * pow(i, 2 * j);

result = result + f;

}

Memo1->Lines->Add("Сумма = " + FloatToStrF(result, ffFixed, 8, 4)

+ " и f(x) = "

+ FloatToStrF((1 + 2 * pow(i, 2)) * exp(pow(i, 2)), ffFixed, 8, 4)

+ " при x = " + FloatToStrF(i, ffFixed, 3, 1));

}

}

Вывод:

В ходе лабораторной работы были изучены основы программирования с использованием циклических алгоритмов. Также была написана и отлажена программа циклического алгоритма.