close

Вход

Забыли?

вход по аккаунту

?

3

код для вставкиСкачать
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РЕСПУБЛИКИ БЕЛАРУСЬ
БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
Факультет информационных технологий и робототехники (ФИТР)
Кафедра программного обеспечения вычислительной техники
и автоматизированных систем
О Т Ч Е Т
ПО ЛАБОРАТОРНОЙ РАБОТЕ №3
по курсу:
" РАЗРАБОТКА ПРИЛОЖЕНИЙ В ВИЗУАЛЬНЫХ СРЕДАХ "
По теме: "Разработка приложения, реализующего циклический вычислительный процесс"
Выполнили:Студенты: Левшунов С.А.
Гр. 107212, бригада №3
Минск - 2013
Цель лабораторной работы: Разработка приложения, реализующего циклический вычислительный процесс
Постановка задачи: Разработать приложение с реализацией циклических вычислений в соответствии с индивидуальным заданием.
В заданиях с №1 по №15 (таблица 3.1) необходимо вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для х изменяющихся от до с шагом . Близость значений S(x) и Y(x) во всем диапазоне значений x указывает на правильность вычисления S(х) и Y(x).
№S(x)Y(x)30.1112
Исходный код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Math, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Memo1: TMemo;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit4: TEdit;
Label4: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
func = function(x:extended) : extended;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text := '0,1';
Edit2.Text := '1';
Edit3.Text := '12';
Edit4.Text := '0,01';
Memo1.Clear;
Memo1.Lines.Add('Ðåçóëüòàòû ñò. ãð. 107212 Ëåâøóíîâà Ñ.À., Êîçëîâà À.Â.');
end;
Procedure TForm1.Button1Click(Sender: TObject);
Var
x1, x2, x, h, a, s, y : extended;
N, k, fact : integer;
begin
x1 := StrToFloat(Edit1.Text);
Memo1.Lines.Add('x1 = ' + Edit1.Text);
x2 := StrToFloat(Edit2.Text);
Memo1.Lines.Add('x2 = ' + Edit2.Text);
N := StrToInt(Edit3.Text);
Memo1.Lines.Add('N = ' + Edit3.Text);
h := StrToFloat(Edit4.Text);
Memo1.Lines.Add('h = ' + Edit4.Text);
x := x1;
Repeat
s := 1;
fact:= 1;
for k :=1 to N do
begin
fact:= fact*k;
a := cos(k*pi/4)*power(x,k)/fact;
s := s + a;
y := exp(x*cos(pi/4))*cos(x*sin(pi/4));
end;
Memo1.Lines.Add('npè x = ' + FloatToStrF(x, ffFixed, 6, 2) + #9 +
' s = ' + FloatToStrF(s, ffFixed, 6, 2)+ #9 +
' y = ' + FloatToStrF(y, ffFixed, 6, 2));
x := x+h;
until x>x2;
end;
end.
end.
Скирншоты:
ЛИТЕРАТУРА
Основная литература
1. Фаронов В.В. DELPHI. Программирование на языке высокого уровня: Учебник для вузов. - СПб.: Питер, 2009. - 640 с.
2. Сухарев М. DELPHI. Полное руководство. - СПб.: Питер, 2008. - 1040 с.
3. Архангельский А.Я. Программирование в DELPHI-6. - М.: ЗАО "Издательство БИНОМ", 2002. - 1120 с.
4. Елмакова Н., Трепалин С., Тенцер А. DELPHI 6 и технология COM. - СПб.: Питер, 2002. - 640 с.
5. Понамарев В. COM и ActiveX в DELPHI. - СПб.: БХВ-Петербург, 2001. - 320 с.
Дополнительная литература
6. Фаронов В.В. Программирование баз данных в DELPHI 7. Учебный курс. - СПб.: Питер, 2005. - 459 с.
7. Подольский С.В., Скиба С.А., Кожедуб О.А. Разработка интернет-приложений в DELPHI. - СПб.: БХВ-Петербург. 2002. - 432 с.
8. Краснов М.В. OpenGL. Графика в проектах Delphi. - СПб.: БХВ-Санкт-Петербург, 2000. - 352 с.
9. Краснов М.В. DirectX. Графика в проектах Delphi. - СПб.: БХВ-Петербург, 2003. - 416 с.
10. Марко Кэнту. DELPHI 7: Для профессионалов. - СПб.: Питер, 2004. - 1101 с. 
Документ
Категория
Рефераты
Просмотров
52
Размер файла
66 Кб
Теги
1/--страниц
Пожаловаться на содержимое документа