Основы алгоритмизации
Анализ данных
Нам необходимо вычислить сумму первых n членов
последовательности ак.
ак=
Где x=
, a p=p0+(i-1)h,
i:=1,…,m.
Исходными являются значения параметров: a,b,n,
m,p0,h. В примере используется факториал k! = k(k - 1)(k - 2)*...*1.
Математическая постановка задачи для
алгоритмизации
Для получения рекуррентной зависимости можно
воспользоваться отношением:
=
=-1sin(x)e-p (k-2)
Подставим k=1,найдем а1:
а1=sin(x)/ep=a1;:=S+a.
Алгоритм решения задачи
Рисунок 1 - Блок-схема программы
Тестовые данные
Для тестирования программы используем следующие
данные:
+b>0,
d<b:
=6=8=2=4=10=12
+b>0,
d>b:
=15=10=3=4=4=2+b<0:=-11=10=3=4=4=2
Результаты,
соответствующие тестовым данным
Протестировав
программу, получили следующие результаты:
Для
первых вводимых данных получили результаты.= 1,04185531247312E-20=0=8=10
Для
вторых вводимых данных получили результаты:= -0,000413322311759435=
-0,000442845334027966= 15=4
Для
третьих вводимых данных получили результаты:= -0,000160454188426478=
-0,000147083006057605= 5,98423221978307=4
Список
литературы
1. Кушниренко
А.Г., Лебедев А.Г., Зайдельман Я.Н. Информатика 7-9: Учебник для
общеобразовательных учебных заведений. - М.: Дрофа, 2000.
2. Компьютерная
игра «Две кучки спичек» // Информатика. 2004. № 40. 3.
. Златопольский
Д. М. Сборник задач по программированию. - СПб.: БХВ-Петербург, 2007.
. Вьюкова
Н.И., Галатенко В.А., Ходулев А.Б. Систематический подход к программированию. -
М.: Наука, 1988.
. Кнут
Д. Искусство программирования для ЭВМ. Т. 3. Сортировка и поиск. - М.: Мир,
1978.
. Вирт
Н. Алгоритмы + структуры данных = программы. - М.: Мир, 1985.
. Вентцель
Е.С. Исследование операций: задачи, принципы, методология. - М.: Наука, 1988.
. Окулов
С.М. Программирование в алгоритмах. - М.: БИНОМ. Лаборатория знаний, 2002.
. Липский
В. Комбинаторика для программистов. - М.: Мир, 1988. 10.
. Выгодский
М.Я. Справочник по элементарной математике. - М.: Наука, 1989.
. Андреева
Е.В. Комбинаторные задачи / Библиотечка «Первого сентября». Серия
«Информатика». - М., 2004.
. Усенков
Д.Ю. Рекурсивный генератор перестановок // Информатика. 1996. № 12.
Приложение
Листинг программы
Unit1;, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,, StdCtrls;= class(TForm): TEdit;: TEdit;: TEdit;:
TEdit;: TEdit;: TEdit;: TButton;: TEdit;Button1Click(Sender: TObject);
{Public declarations};: TForm1;
{$R *.dfm}TForm1.Button1Click(Sender:
TObject);,m,i,k:integer;,x,a,b,h,p,S,y:real;:=strtoint(edit1.Text);:=strtoint(edit2.Text);:=strtofloat(edit3.Text);:=strtofloat(edit4.Text);:=strtofloat(edit5.Text);:=strtofloat(edit6.Text);.caption:=edit1.Text;(a+b)>0
thena>b then x:=a else x:=bx:=a*sin(b);i:=1 to m do
begin:=t+(i-1)*h;:=sin(x)/exp(p);:=y;k:=2 to n
do:=-1*(k-2)*a*sin(x)/exp(p);:=S+y;;.Text:=floattostr(y);.Text:=floattostr(s);.Text:=floattostr(x);.Text:=floattostr(t);.