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


 

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

34273. Аллельные гены 11.22 KB
  Такие парные гены называют аллельными генами или аллелями. Взаимодействиеполное доминированиецвет глазнеполноеокраска ночной красавицысверхдоминированиеу гетерозигот признак выражен лучше чем у гомозигот по доминанту те кто болеет серповидно клеточной анемиейне страдают от маляриикодоминирование оба аллеля выявляют свое действие одинаковогруппы крови Неаллельныегены содержащиеся в разных локусах. Комплементарность доминантные аллели из разных аллельных пар дополняют друг другагены пигментации волос Эпистазподавление гена...
34278. Аномалия 44 KB
  Пороки развития аномалии развития совокупность отклонений от нормального строения организма возникающих в процессе внутриутробного или реже послеродового развития. Пороки развития возникают под действием разнообразных внутренних наследственность гормональные нарушения биологическая неполноценность половых клеток и др. К наследственным относят пороки возникшие в результате мутаций т. Б зависимости от того на каком уровне произошла мутация на уровне генов или хромосом наследственно обусловленные пороки подразделяют на гениые и...
34279. Взаимное влияние аллельных генов 182.5 KB
  Этот вид взаимодействия генов заключается в том что при наличии двух доминантных аллелей разных генов появляется новый признак то есть для появления нового признака у организма должен быть генотип АВ. Если одна пара генов определяющих окраску будет рецессивной гомозиготой т. не будет синтезироваться нужный белок то даже если вторая пара генов будет нести доминантный аллель цветки окрашены не будут.