Отчёт.3.4

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

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

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

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

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

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

Отчет

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

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

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

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

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

Вариант № 4

Выполнил

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

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

Проверил

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

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

г. Бийск, 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)

{

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);

h = StrToFloat(Edit3->Text);

n = StrToInt(Edit4->Text);

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

result = 1;

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

f = pow(i, 2 * j);

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

if (j % 2) result = result - f;

else result = result + f;

}

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

+ " | cos x = "

+ FloatToStrF(cos(i), ffFixed, 8, 4)

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

}

}

Вывод:

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