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. Научился программировать циклические алгоритмы.


 

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

2635. Краткие сведения о погрешности электроизмерительных приборов 32 KB
  Краткие сведения о погрешности электроизмерительных приборов Объектами прямых электрических измерений являются многие электрические и магнитные величины: ток, напряжение, мощность и т.д. Измерение любой физической величины заключается...
2636. Изучение затухающих колебаний 298.5 KB
  Изучение затухающих колебаний Цель работы: изучение электрических собственных колебаний в контуре, содержащем последовательно соединенные катушку с индуктивностью L, конденсатор с емкостью С и резистор с сопротивлением R. Теоретические положения...
2637. Определение емкости конденсатора и батареи конденсаторов 371 KB
  Определение ёмкости конденсатора и батареи конденсаторов  Цель работы: определение ёмкости конденсатора и батареи из двух конденсаторов при их параллельном и последовательном соединении. Описание установки В состав лабораторной установки входят...
2638. Изучение магнитного поля соленоида создаваемых вдоль оси длинной и короткой катушек 493.5 KB
  Изучение магнитного поля соленоида Цель работы: определение магнитных полей, создаваемых вдоль оси длинной и короткой катушек. Описание лабораторной установки и вывод расчётных зависимостей Примерная картина магнитного поля на оси короткой и...
2639. Моделирование электростатических полей 893.5 KB
  Моделирование электростатических полей Цель работы: определение расположения эквипотенциалей, построение силовых линий электрических полей, задаваемых электродами различной конфигурации, и построение качественной зависимости напряжённости электричес...
2640. Україна в часи хрущовської відлиги, застою та перебудови (1965 – 1991 рр.) 148 KB
  Україна в часи хрущовської відлиги, застою та перебудови (1965 – 1991 рр.). План  Україна в період лібералізації суспільно-політичного життя в Радянському Союзі (середина 50-х – середина 60-х ...
2641. Україна в другій світовій війні та перші повоєнні роки (1939-1954 рр.) 122.5 KB
  Україна в другій світовій війні та перші повоєнні роки Зміст  Українські землі напередодні та на початку другої світової війни.  Україна в роки Великої Вітчизняної війни. Україна у повоєнний період (друга половина 40-х – перша п...
2642. Определение работы выхода электрона из металла методом прямых Ричардсона 138.5 KB
  Определение работы выхода электрона из металла методом прямых Ричардсона Приборы и принадлежности. Лабораторная панель, блок питания накала Б5-70, блок питания анода Б5-70, универсальный вольтметр В7-27. Введение. Принцип работы большинства электров...
2643. Залучення випускників шкіл до навчання в МНУ імені В.О. Сухомлинського 126.5 KB
  Виховний захід на тему: «Залучення випускників шкіл до навчання в МНУ імені В.О. Сухомлинського» Миколаївський національний університет імені В. О. Сухомлинеького (до 21 серпня 2010 року — Миколаївський державний університет імені В. О. Сухомли...