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


 

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

13159. СУБД Microsoft Access. Створення запитів та форм 74 KB
  ЛАБОРАТОРНА РОБОТА № 9 Тема: СУБД Microsoft Access. Створення запитів та форм Мета: навчитись створювати запити різних типів форми використовуючи майстер та конструктор.. План: Вивчити необхідний теоретичний матеріал. Виконати практичне ...
13160. СУБД Microsoft Access. Створення звітів 117 KB
  ЛАБОРАТОРНА РОБОТА № 10 Тема: СУБД Microsoft Access. Створення звітів Мета: навчитись створювати звіти різних типів використовуючи майстер та конструктор. План: Вивчити необхідний теоретичний матеріал. Виконати практичне завдання до лабор
13161. Створення презентацій у PowerPoint 549 KB
  Лабораторна робота №11 Тема: Створення презентацій у PowerPoint Мета: навчитись використовувати програму PowerPoint працювати з ефектами анімації шаблонами оформлення. План: Вивчити необхідний теоретичний матеріал. Виконати практичне зав
13162. Робота з програмним забезпеченням галузевого спрямування 78 KB
  Лабораторна робота № 12 Тема: Робота з програмним забезпеченням галузевого спрямування Мета: навчитися використовувати MS Excel для вирішення економічних задач. План: Вивчити необхідний теоретичний матеріал. Виконати практичне завдання...
13163. Робота з браузером Internet Explorer 388.5 KB
  Лабораторна робота № 13 Тема. Робота з браузером Internet Explorer Мета: Засвоєння концепції глобальної мережі Інтернет оволодіння Інтернеттехнологіями для ділового спілкування та пошуку технічної інформації. План: Ознайомитись з теоретичними ...
13164. Робота з проблемно-орієнтовним програмним забезпеченням 416.5 KB
  ...
13165. Основные возможности ABBYY FineReader 8.0 Professional Edition 34 KB
  Основные возможности ABBYY FineReader 8.0 Professional Edition Интеллектуальная система оптического распознавания ABBYY FineReader 8.0 – идеальное решение для тех кому нужен высочайший уровень точности распознавания и сохранения оформления. ABBYY FineReader переведёт бумажные документы PDFфайлы и ц...
13166. Створення найпростішої Web-сторінки 164.58 KB
  ЛАБОРАТОРНА РОБОТА № 15 Тема: Створення найпростішої Webсторінки. Мета: навчитися застосовувати знання з HTML набуті на лекційних заняттях; навчитися створювати вебсторінки використовуючи мову HTML та редактор PSPad. Теоретичні відомості: ...
13167. Менеджмент. Ответы к экзаменам 1.96 MB
  Оглавление. Принципы риск менеджмента. Оценка рисков и методы их минимизации. Системы Интернет бронирования туристских услуг: классификация характеристика предоставляемых услуг и перспективы развития ...