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


 

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

4173. Функциональная асимметрия правого и левого полушарий мозга 86.5 KB
  Введение Изучение функциональной асимметрии больших полушарий головного мозга началось в середине 19 века на пациентах с очаговыми поражениями головного мозга, обусловленных кровоизлияниями и черепно-мозговыми травмами. Было установлено, что поврежд...
4174. Международная торговля: Сравнительные преимущества 84 KB
  Теории международной торговли Проблемы международной торговли интересовали ученых и политиков еще в те времена: когда иные направления экономической теории еще небыли развиты. Доктрина меркантилизма была с XVI века до середины XVIII века, тогда м...
4175. Михаил Павлович Гастфер 60.5 KB
  Михаил Павлович Гастфер. В одной из аудиторий Московского государственного института культуры идет лекция по технической библиографии. Преподаватель, пожилой, но прямой и подтянутый человек, читает вдохновенно и образно. Он во всеоружии мыслей, факто...
4176. Создание топографических планов масштаба 1:5000 81 KB
  При создании топографических планов методами стереотопографической, комбинированной, и фототеодолитной съёмки выполняется комплекс камеральных работ. Полный комплекс этих работ при стереотопографической съёмке включает в себя составление тех проекта...
4177. МЧС и гражданская оборона 116.5 KB
  История российской гражданской обороны Местная противовоздушная оборона (МПВО) 1918-1932 гг. Впервые возможность дезорганизации тыла появилась в годы мировой войны 1914 гг., когда в ходе военных действий нашла применение боевая авиация, с...
4178. Роль государственной собственности в промышленно развитых странах 268 KB
  Введение. Изучение опыта государственного участия в экономическом развитии передовых стран мира интересно и познавательно само по себе. Но для нас существует еще и проблема использования такого опыта с учетом ошибок предшественников, его адаптации к...
4179. Рынок труда и механизм его функционирования 130 KB
  Введение. Рынок труда является одним из наиболее сложных рынков, которые существуют и функционируют. В отличие от других рынков специфика этого рынка состоит в том, что здесь объектом контрактов выступает сам человек, его способность к труду. Сфера ...
4180. Механизм генерации транзактов в модели. Формирование цепей текущих и будущих событий. Основные атрибуты транзактов. Управление движением транзактов. 66.5 KB
  Введение Процессы функционирования различных систем могут быть представлены той или иной совокупностью систем массового обслуживания (СМО) - стохастических, динамических, дискретно-непрерывных математических моделей. Исследование характеристик таких...
4181. Гражданская оборона в современных условиях 107 KB
  Силы гражданской обороны. Степень надежности управления гражданской обороной стала одним из важнейших показателей ее готовности к выполнению поставленных задач. Управление гражданской обороной - это целенаправленная деятельность начальников, штаб...