37869

Простейшие средства отладки в среде DELPHI. Программирование циклических алгоритмов

Лабораторная работа

Информатика, кибернетика и программирование

Вывод: изучил простейшие средства отладки в среде DELPHI. Научился программировать циклические алгоритмы.

Русский

2015-01-26

124.5 KB

10 чел.

Министерство образования Республики Беларусь

УО “Барановичский государственный университет”

Инженерный факультет

Кафедра информационных систем и технологий

Введение в специальность

Лабораторная работа №3

Вариант №6

группа ИСТ-12

Ф.И.О. студента Сергеев А. С.

Ф.И.О. преподавателя Капуста В. И.

Подпись преподавателя _______________

Барановичи, 2013

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

Задание для самостоятельного выполнения

В заданиях необходимо вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для x изменяющихся от xn до xk с шагом h=(xk-xn)/n. Близость значений S(x) и Y(x) во всем диапазоне значений x указывает на правильность вычисления S(x) и Y(x).

хn

хk

S(x)

n

Y(x)

6

0.1

1

8

Код программы:

unit Unit1;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, XPMan;

type

 TForm1 = class(TForm)

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   Label4: TLabel;

   shag: TMemo;

   Button1: TButton;

   Edit1: TEdit;

   Edit2: TEdit;

   Edit3: TEdit;

   Button2: TButton;

   Memo1: TMemo;

   Memo2: TMemo;

   Label5: TLabel;

   Label6: TLabel;

   xpmnfst1: TXPManifest;

   procedure FormCreate(Sender: TObject);

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

shag.Clear;

Memo1.Clear;

Memo2.Clear;

Edit1.Text:='0,1';

Edit2.Text:='1';

Edit3.Text:='8';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Application.Terminate

end;

procedure TForm1.Button2Click(Sender: TObject);

var x1,x2,x,h,s,y,q,a:extended;i,k,n,p:integer;

begin

memo1.Clear;

memo2.Clear;

x1:=StrToFloat(Edit1.Text);

x2:=StrToFloat(Edit2.Text);

n:=StrToInt(Edit3.Text);

h:=(x2-x1)/n;

shag.Lines.Add(FloatToStrf(h,ffGeneral,5,3));

s:=0;x:=x1;

for k:=1 to n do begin

s:=x;

for p:=1 to n do begin

q:=1;

for i:=1 to (2*p+1) do begin

q:=q*i;{факториал}

end;

a:=exp(ln(x)*(1+2*p))/q;

s:=s+a;

end;

x:=x+h;

memo1.Lines.add('s='+FloatToStrf(s,ffFixed,8,6));

end;

x:=x1;

for k:=1 to n do begin

y:=(exp(x)-exp(-x))/2;

x:=x+h;

memo2.Lines.add('y='+FloatToStrf(y,ffFixed,8,6));

end;

end;

end.

Использованные в программе объекты:

Окончательная форма:

Работа программы при запуске:

Завершение программы происходит при нажатии на кнопку “Выйти ”

Программа завершается.

Вывод: изучил простейшие средства отладки в среде DELPHI. Научился программировать циклические алгоритмы.


 

А также другие работы, которые могут Вас заинтересовать

38037. Гиперссылки 138.5 KB
  href= т ссылка. Атрибуты: href= задает URL адрес. Чтобы по ссылке в левом кадре открылся файл в правом кадре конструкция ссылки в файле загруженном в левый кадр должна быть такой: href= имя файлаимя метки trget= правый указатель ссылки где: имя файла имя файла загружаемого в правый кадр имя метки имя метки в этом файле. Принципы прописывания пути здесь такие же как в случае с картинками: 1 href= prf.
38038. Интегрирование мультимедиа на WEB-страницу 260.5 KB
  Если на странице обнаружен элемент embed или object то производится попытка использовать один из имеющихся плагинов для вывода мультимедиафайла в окне браузера. Применяется созданный компанией Netscpe и получивший широкое распространение элемент embed . Например: embed nme= Moviel src= moviel.com quicktime downlod embed ПРИМЕЧАНИЕ Internet Explorer 5.