Министерство образования и науки РФ
РОССЙСКИЙ ГОСУДАРСТВЕННЫЙ СОЦИАЛЬНЫЙ УНИВЕРСИТЕТ
Факультет информационных технологий
Отчет по лабораторным работам
предмету:
Теория информационных процессов и систем
Выполнила студентка
группы ИСТ-Д-3
Тусова Александра Евгеньевна
“16” декабря 2011 г.
Москва, 2011 г.
Лабораторная работа № 1
Разработка приложений в среде Delphi с использованием компонентов панели Стандартная
Цель работы: изучение основных приемов работы с компонентами панели Стандартная. Содержание: разработка приложений в среде Delphi 7.0 с использованием компонентов панели Стандартная.
13. Вычислить
|
1+sqrt(cos(x))|,
x<
– 0,5,
y=
x
+1 , –
0,5<=x<=1,
1 – x*x,
x>1.
unit Unit1;interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Ext
Ctrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Memo1: TMemo;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var {Раздел переменные}
x,y:real; {Задание переменных. Числа действительные}
s1:string[40]; {Задание строковых переменных}
code:integer; {Задание целочисленной переменной}
begin
X:=StrToInt(Edit1.Text);
if (x < -0.5) then y:=abs(1+sqrt(cos(x)));
if (x>=-0.5) and (x<=1) then y:=x+1;
if (x > 1) then y:=1-sqr(x);
s1:=FloatToStr(y);
Memo1.Lines.Add('c='+s1); {Оператор вывода s1 в поле многострочно-го редактора Memo1}
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:=''; {Очистить поле ввода Edit1}
edit2.Text:=''; {Очистить поле ввода Edit2}
edit1.SetFocus;{Установить курсор ввода в поле Edit1}
Memo1.Clear; {Очистить поле многострочного редактора Memo1}
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.close;
end;
end.
Лабораторная работа № 2
Разработка приложений с использованием меню и переключателей
Цель работы: изучение основных приемов работы с меню и переключателями.
Содержание: разработка приложений с использованием меню и переключателей.
13.Составить программу, которая присваивала бы переменной Т значение true, если дата d1, m1 предшествует (в рамках года) дате d2, m2 и значение false иначе (d1 и d2 – дни, m1 и m2 – месяцы).
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
Label5: TLabel;
Edit5: TEdit;
Label6: TLabel;
Label7: TLabel;
Label3: TLabel;
Label4: TLabel;
Label8: TLabel;
Label9: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit5Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d:integer;
T:string;
code:integer;
begin
val(edit1.Text,a,code);
val(edit2.Text,b,code);
val(edit3.Text,c,code);
val(edit4.Text,d,code);
if(a<c) and (b<d) then
T:='true';
edit5.Text:=T ;
if (a>c)and (b>d) then
T:='false';edit5.Text:=T ;if (a=c) and (b<d) then
T:='true';
edit5.Text:=T ;
if (a=c) and (b>d) then
T:='false';
edit5.Text:=T ;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.close;
end;
procedure TForm1.Edit5Change(Sender: TObject);
begin
end;
end.
Лабораторная работа № 3 Разработка приложений для обработки данных с использованием графики в Delphi
Цель работы: изучение основных приемов работы с компонентом Диаграмма (Chart).
Содержание: разработка приложений для обработки данных с использованием графики в Delphi
Вычислить значения двух функций в n равномерно расположенных точках в диапазоне a ≤x ≤ b. Построить графики функций F1(x) и F2(x), применив компонент Диаграмма (Chart).
|
13 |
0 |
π |
12 |
| sin x – cosx| |
| sinx | –| cos x| |
unit Unit1;
interface
uses
Math, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Chart1: TChart;
BitBtn1: TBitBtn;
Series2: TLineSeries;
Button1: TButton;
Series1: TLineSeries;
procedure Button1Click(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
myPi : Extended;
xn,xk,f1,f2:real;
i,h:real;
begin
xn:=0;
xk:=Pi;
h:=0.35;
series1.Clear;
series2.Clear;
i:=xn;
while i<=xk do
begin
f1:= abs(sin (i) - cos(i));
f2:= abs(sin (i)) - abs(cos(i));
series1.addXY(i,f1,'',clwhite);
series2.addXY(i,f2,'',clblue);
i:=i+h;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.
