close

Вход

Забыли?

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

?

вычислить интеграл

код для вставкиСкачать
Министерство образования РБ
ГУВПО "Белорусско-Российский Университет"
Кафедра "Строительные, дорожные и подъемно-транспортные машины и оборудование"
ОТЧЕТ
По дисциплине "Информатика"
Delphi
По теме:"Создания приложения для создания и редактирования табличных данных " Выполнил: студент группы ПДМр-101 Столяров Е.А
Проверил: Семчен В. И.
Могилев 2010
1) Исходные данные.
Данные:
2) Форма приложения
3)Текст программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, CheckLst;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
StringGrid1: TStringGrid;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,h,x,y:real;
i:integer;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
h:=strtofloat(edit3.Text);
x:=a;
stringgrid1.RowCount:=0;
while x<=b do
begin
y:=3*sin(x)-cos(cos(x));
stringgrid1.Cells[0,stringgrid1.RowCount]:=floattostr(x);
stringgrid1.Cells[1,stringgrid1.RowCount]:=floattostr(y);
x:=x+h;
stringgrid1.RowCount:=stringgrid1.RowCount+1;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
stringgrid1.Cells[0,0]:='x';
stringgrid1.Cells[2,0]:='y';
end;
end.
4) Блок-схема 
Документ
Категория
Рефераты
Просмотров
13
Размер файла
46 Кб
Теги
интеграл, вычислить
1/--страниц
Пожаловаться на содержимое документа