close

Вход

Забыли?

вход по аккаунту

?

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

код для вставкиСкачать
Министерство образования и науки Российской Федерации
Федеральное государственное бюджетное образовательное учреждение
высшего профессионального образования
Курский государственный университет
Кафедра ПОиАИС
Лабораторная работа №7
По дисциплине "Программирование"
На тему: Программирование в системе Delphi с использованием подпрограмм.
Выполнил студент группы №113Украинцев В.Э
Проверил преподаватель Белова Т.М
Курск, 2013
Задание: Составить программу вычисления функции Y и суммы , представляющей собой формулу разложения заданной функции Y в ряд. , Блок-схема алгоритма: Процедура A
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls,math;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
s,x,y,k:real;
procedure A(var s:real; const x:real);
var n:integer;
begin
s:=ln(2);
for n:=1 to 15 do
k:=k*n;
s:=s+(power(ln(5),n)/k);
end;
function Z(x:real):real;
begin
Result:=power(5,x);
end;
begin
s:=1;
x:=0.1;
For i:=1 To 11 do
begin
y:=Z(x);
A(s,x);
Memo1.Lines.add('x='+floattostr(x)+' S='+floattostr(s)+' Y='+floattostr(y)+' ');
x:=x+0.09;
end;
end;
end.
Пример работы программы:
Документ
Категория
Рефераты
Просмотров
99
Размер файла
109 Кб
Теги
лабораторная
1/--страниц
Пожаловаться на содержимое документа