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


 

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

44545. Средства обработки бумажных документов 31.5 KB
  Поэтому говоря о концепции построения КИС нельзя не упомянуть такую актуальную на сегодняшний день проблему как совмещение в документообороте предприятия электронных и бумажных документов. Практически все современные СУД хранящие документы предоставляют те или иные функции по обработке бумажных документов. Обычно они реализуются с помощью специального модуля который позволяет автоматизировать сканирование и сохранение образов многостраничных документов а также их распознавание и аннотирование.
44546. Системы поддержки принятия решений 32 KB
  В этом случае на помощь старым методам приходит оперативная обработка данных OnLine nliticl Processing OLP. Сила OLP заключается в том что в отличие от классических методов поиска запросы здесь формируются не на основе жестко заданных или требующих для модификации вмешательства программиста и следовательно времени т. OLP обеспечивает выявление ассоциаций закономерностей трендов проведение классификации обобщения или детализации составление прогнозов т. Не останавливаясь на тонкостях организации различных моделей OLP например...
44547. Системы, основанные на применении Internet-технологий 31 KB
  Рассматривая вопрос применения Internetтехнологий нельзя не затронуть такую важную проблему как обеспечение информационной безопасности. В дополнение к ним на стыке сегментов локальных сетей и Internet желательна установка брандмауэров средств контроля за внешними входящими и исходящими соединениями. Они позволяют отслеживать передачу информации практически всех известных на сегодняшний день протоколов Internet.
44548. Средства стратегического планирования 31.5 KB
  Как известно для решения подобных задач применяются системы управления проектами например Microsoft Project Symntec Time Line. Практически все системы управления проектами СУП берут за основу некий план проекта составляемый на предварительном этапе. Чисто технически интеграция современных САДП и СУП не вызывает вопросов поскольку обе системы как правило соответствуют стандартам межпрограммного взаимодействия и могут разделять данные.5 позволяет получать доступ к данным о проекте используя внешние приложения в том числе и...
44549. Понятие КИС. Основные этапы и принципы построения 30 KB
  Основные этапы и принципы построения Комплексная информационная система это совокупность технических и программных средств предприятия реализующих идеи и методы автоматизации. И использование специальных программных средств обеспечивающих информационную поддержку бизнеспроцессов в качестве основы КИС представляется наиболее оправданным и эффективным. Среди преимуществ такого подхода следует отметить возможность внесения изменений в отдельные программные компоненты расположенные в одном слое без необходимости коренных переделок на...
44550. Использование языка функиональных блоков ТехноIL, FBD при программирование алгоритмов в КИС 41 KB
  Программа созданная на этом языке называется FBDпрограммой. Для разработки FBDпрограмм в редакторе базы каналов предусмотрены два окна – FBD программы и LD программы. Для входа в первое из них нужно выполнить команду FBD программы меню Окна или нажать сочетание клавиш LT3 или нажать ЛК на иконке панели инструментов.
44551. Понятие КИС и её основные части 32 KB
  Современные системы управления деловыми процессами позволяют интегрировать вокруг себя различное программное обеспечение формируя единую информационную систему. Основными функциями управления являются как известно планирование организация активизация координация контроль и анализ которые осуществляются в многомерном пространстве различных областей деятельности предприятия. Очевидно что в состав КИС должны войти средства для документационного обеспечения управления информационной поддержки предметных областей коммуникационное...
44552. Проблемы защиты информации в современных КИС 30.5 KB
  Достаточно сложно решить и проблему надежной аутентификации пользователей. При аутентификации пользователей локальной сети успешно решить эту задачу помогают организационные меры отсечение посторонних пользователей от клиентских компьютеров и терминалов контроль за подключениями к кабельной системе здания и т. Новые проблемы создает проблема аутентификации пользователей при ведении бизнеса через Internet. Число пользователей вырастает настолько что количество переходит в качество и старые методы аутентификации на основе индивидуальных...
44553. Обеспечение иерархии скоростей и качества обслуживания 31.5 KB
  Возможность поэтапного внедрения новой технологии в существующие сети не требующего чрезмерных разовых вложений. Все работы по созданию технологий удовлетворяющих этим требованиям можно разделить на три большие группы: Создание масштабируемой по скорости технологии на основе технологии Ethernet: линия Ethernet FstEthernet GigbitEthernet. Создание технологии с масштабируемой скоростью частично совместимой с Ethernet и имеющей встроенные возможности для обеспечения начального уровня качества обслуживания для трафика реального...