Основы алгоритмизации
Контрольная работа - Компьютеры, программирование
Другие контрольные работы по предмету Компьютеры, программирование
Анализ данных
Нам необходимо вычислить сумму первых 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);
{Private declarations}
{Public declarations};: TForm1;
0thena>bthenx:=aelsex:=bx:=a*sin(b);i:=1tomdobegin:=t+(i-1)*h;:=sin(x)/exp(p);:=y;k:=2tondo:=-1*(k-2)*a*sin(x)/exp(p);:=S+y;;.Text:=floattostr(y);.Text:=floattostr(s);.Text:=floattostr(x);.Text:=floattostr(t);.">{$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);.