Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Для циклических вычислительных процессов
|
|
О Т Ч Е Т
ПО ЛАБОРАТОРНЫМ РАБОТАМ
по курсу:
Quot; КОНСТРУИРОВАНИЕ ПРОГРАММ И
ЯЗЫКИ ПРОГРАММИРОВАНИЯ"
| Выполнили: | Студенты: Мазаник А. А. Шитов С. А. Гр. 107226, бригада №6 |
| Проверил, профессор: | Гурский Н. Н. |
Минск - 2007
Лабораторная работа №3
КОНСТРУИРОВАНИЕ ПРОГРАММ
ДЛЯ ЦИКЛИЧЕСКИХ ВЫЧИСЛИТЕЛЬНЫХ ПРОЦЕССОВ
Цель лабораторной работы: изучить средства отладки программ в среде DELPHI. Составить и отладить программу для циклического вычислительного процесса.
Задание: написать и отладить программу, которая выводит таблицу значений функций S(x) для х изменяющихся в интервале от x1 до x2 с шагом h.
| 0.1 | 
| 
|
Листинг программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
EditX1: TEdit;
EditXn: TEdit;
EditN: TEdit;
EditH: TEdit;
Memo1: TMemo;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
EditX1.Text: = '0, 1';
EditXn.Text: = '1';
EditN.Text: = '8';
EditH.Text: = ' ';
Memo1.Clear;
Button1Click(Sender);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
n, i: integer;
x1, xn, x, h, s: real;
function factorial(n: integer): integer;
begin
if n=0 then factorial: =1
else factorial: =n*factorial(n-1);
end;
begin
x1: = StrToFloat(EditX1.Text);
xn: = StrToFloat(EditXn.Text);
n: = StrToInt(EditN.Text);
h: = (xn - x1) / 10;
EditH.Text: = FloatToStr(h);
Memo1.Clear();
Memo1.Lines.Add('Ë aá î ð à ò î ð í à ÿ ð à á î ò à ¹ 3');
Memo1.Lines.Add('');
x: = x1;
Memo1.Lines.Add(' ************************************* ');
Memo1.Lines.Add(' * X * S(X) * Y(X) * ');
Memo1.Lines.Add(' ************************************* ');
while (xn > x) do
begin
s: = x;
for i: =1 to n do
begin
s: = s + exp((2*i+1)*ln(x)) / factorial(2*i+1);
end;
Memo1.Lines.Add(
' * ' + FloatToStrF(x, ffFixed, 5, 2) +
' * ' + FloatToStrF(s, ffFixed, 7, 2) +
' * ' + FloatToStrF((exp(x)-exp(-x))/2, ffFixed, 7, 2) +
' * ');
x: = x + h;
end;
Memo1.Lines.Add(' *************************************** ');
end;
end.
Результат выполнения программы:
Выводы: изучили средства отладки программ в среде DELPHI. Составили и отладили программу для циклического вычислительного процесса.
|
|