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


 

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

111. Разработка экономических характеристик ООО 7-С Ритейл 89.11 KB
  Изучение и анализ всех видов деятельности предприятия в условиях перехода к рыночной экономике. Анализ экономических процессов, выбор и обоснование управленческих решений в конкретных производственных ситуациях.
113. Теория международного маркетинга 1.61 MB
  Процессы, происходящие на мировых рынках, имеют безусловно универсальный характер. И хотя естественным представляется утверждение. Технология внедрения фирмы на международные рынки требует рассмотрения факторов и способов вхождения на внешние рынки.
114. Управління системою маркетингової діяльності на підприємстві ТОВ Компанія Юнівест Маркетинг 807.92 KB
  Теоретична інформація та методологічні підходи до проблеми організації управління маркетинговою діяльністю на підприємстві. Техніко-економічний аналіз та маркетинговий аналіз зовнішнього і внутрішнього середовища.
116. Рекламная деятельность: организация, планирование, оценка эффективности 1.42 MB
  Организация рекламной деятельности рекламодателем. Рекламу изучают и как часть процесса продажи товара, и как коммуникацию, и как часть маркетинга, и как искусство. Средства массовой информации или средства размещения информации.
117. Проектирование детского Ясли-сада на 240 мест 92.5 KB
  Пространственная жесткость достигается за счет совместной работы наружных продольных и поперечных стен в вертикальном направлении и в горизонтальном направлении перекрытиями, их анкеровкой и замоноличиванием швов.
118. Визначення найменування і тактової частоти процесора 632 KB
  Дана лабораторна робота написана на мові Delphi 7 на тему Визначення найменування і тактової частоти процесора. Зміст роботи: Постановка задачі. Теоретичні відомості. Опис алгоритму. Керівництво програмісту. Керівництво користувачеві. Приклад роботи програми. Програмний код програми. Висновок про виконану роботу. Використана література, або інші джерела.
119. Теорія інформації 184.5 KB
  Мета процесу кодування інформації: за одиницю часу передати більше інформації. Конвенціональність кодування (одну й ту ж інформацію можна кодувати різними способами).