37869

Простейшие средства отладки в среде DELPHI. Программирование циклических алгоритмов

Лабораторная работа

Информатика, кибернетика и программирование

Вывод: изучил простейшие средства отладки в среде DELPHI. Научился программировать циклические алгоритмы.

Русский

2015-01-26

124.5 KB

11 чел.

Министерство образования Республики Беларусь

УО “Барановичский государственный университет”

Инженерный факультет

Кафедра информационных систем и технологий

Введение в специальность

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


 

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

44000. Технико-экономическое обоснование проекта (на примере ООО «ПЕТРО-ВИД») 1.57 MB
  Малый бизнес способствует созданию новых рабочих мест, обеспечивает занятость населения, в итоге уменьшается безработица. Относительно небольшой персонал предприятий малого бизнеса способствует большему сплочению трудового коллектива по сравнению с крупными предприятиями. Это еще более усиливает трудовую мотивацию и положительно сказывается на результатах труда компании.
44001. Редуктор Цилиндрический 1.16 MB
  Определение действительных изгибающих напряжений Проверочный расчет быстроходной ступени. Расчет диаметров колес Расстояние между деталями передач Выбор типа подшипников Конструирование зубчатых колес Проверка валов Определение усилий действующих на вал. Определение реакций и построение эпюр изгибающих моментов Определение моментов в опасных сечениях и проверка подшипника.
44002. Подбор основных элементов проектируемого здания 4.46 MB
  Основным направлением развития массового жилищного строительства является сборное, панельное домостроение. Однако более 35% объемов жилищного строительства осуществляется еще недостаточно индустриальными методами. Поэтому индустриальные методы монолитного домостроения рассматриваются как резерв повышения общего уровня дальнейшей индустриализации
44003. Розробка установки для зварювання прямолінійних швів товстостінної обичайки неплавким електродом у середовищі інертного газу 367 KB
  До того у звязку із значною вартістю і істотними складнощами робіт по виправленню дефектів швів особливо важливим є питання вибору оптимальних параметрів процесу зварювання і їх підтримки впродовж усього технологічного циклу. Слід зазначити що розширення технологічних можливостей і підвищення продуктивності дугового зварювання неплавким електродом також є вельми важливим. Спрощення технології складання деталей під зварювання зниження кутових деформацій звуження зони термічного впливу сприяють більш широкому застосуванню технологій...
44005. Вибір відповідників перекладу текстів науково-навчального жанру та визначення ступеня їх відповідності 287 KB
  У звязку з цим стало зрозумілим що основні труднощі перекладу і весь характер перекладацького процесу зумовлюються розбіжностями в структурах і правилах функціонування мов що беруть участь у цьому процесі. Розвитку лінгвістичної теорії перекладу сприяло і те що дослідження перекладацького процесу дало важливі результати для рішення багатьох інших мовознавчих проблем. Рецкер висловив переконання що вибір перекладачем того чи іншого варіанта перекладу часто аж ніяк не є довільним а є закономірним і визначається співвідношенням одиниць...
44006. Розрахунок верстату з ЧПУ 188 KB
  На базі верстатів з ЧПУ та обробляючих центрів буде створюватися гнучкий виробничий модуль який вимагає обмеженого втручання обслуговуючого персоналу який складається з верстата контрольновимірювального пристрою завантажувальнорозвантажувального пристрою автоматичного маніпулятора накопичувача для заготівок та оброблених деталей пристроїв управління та автоматизованого підтримування робочого процесу. Вже зараз при переході від верстатів з ручним управлінням к верстатам з ЧПУ продуктивність праці значно підвищується в результаті...
44007. Учёт и аудит расчётов с поставщиками и подрядчиками в коммерческой организации 999.5 KB
  Контроль за состоянием расчетов приводит к сокращению дебиторской и кредиторской задолженности ускорению оборачиваемости оборотных средств что влияет на финансовое состояние предприятия. Рассмотреть методику отражения хозяйственных операций по расчётам с поставщиками и подрядчиками а так же интерпретировать способы бухгалтерской оценки величины дебиторской и кредиторской задолженности предприятия на каждой из стадий учётного процесса. Практическая значимость работы определяется тем что приведенные в дипломе данные по учёту расчётов с...
44008. ВДОСКОНАЛЕННЯ РУХОВИХ НАВИЧОК СКЕЛЕЛАЗІВ НА ЕТАПІ БАЗОВОЇ ПІДГОТОВКИ 1.29 MB
  Скелелазіння як спосіб подолання скельного рельєфу людиною в процесі освоєння і пристосування до життя в гірських районах виник дуже давно. Скелелазіння як подолання скельного рельєфу не з метою вирішення утилітарних життєвих завдань (полювання, пошук найкоротших шляхів в горах і т. п.), а для самоствердження, рішення спортивних завдань, тобто як різновид активного відпочинку та спорту, виникло в гірських районах в XIX столітті.