Автор работы: Пользователь скрыл имя, 04 Ноября 2011 в 08:14, отчет по практике
Исследовательские учреждения давно ищут пути увеличения эффективности труда и уровня профессионализма разработчиков программ, т.е. интеллектуальной собственности, которая имеет свой особый статус и свое правовое поле.
procedure Button12Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button19Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a,b,c:real;
f:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=Edit1.text+'0';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:=Edit1.text+'1';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Text:=Edit1.text+'2';
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Edit1.Text:=Edit1.text+'3'
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Text:=Edit1.text+'4';
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Edit1.Text:=Edit1.text+'5';
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
Edit1.Text:=Edit1.text+'6';
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
Edit1.Text:=Edit1.text+'7';
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
Edit1.Text:=Edit1.text+'8';
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
Edit1.Text:=Edit1.text+'9';
end;
procedure TForm1.Button16Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
Edit1.Clear;
f:=1;
end;
procedure TForm1.Button21Click(Sender: TObject);
begin
Edit1.Clear;
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
Edit1.Clear;
f:=2;
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
Edit1.Clear;
f:=3;
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
Edit1.Clear;
f:=4;
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+',';
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
Edit1.Text:='-'+Edit1.Text;
end;
procedure TForm1.Button17Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
c:=sqrt(a);
Edit1.Text:=FloatToStr(c);
end;
procedure TForm1.Button19Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
c:=1/a;
Edit1.Text:=FloatToStr(c);
end;
procedure TForm1.Button20Click(Sender: TObject);
begin
b:=StrToFloat(Edit1.Text);
if f=1 then c:=a+b;
if f=2 then c:=a-b;
if f=3 then c:=a*b;
if f=4 then
begin
if b=0 then showmessage('Íà íîëü äåëèòü íåëüçÿ') else
c:=a/b;
end;
Edit1.Text:=FloatToStr(c);
end;
end.
Работа с
данной программой соответствует работе
с калькулятором.
Напишите программу «Электронные часы», в окне которой отображается текущее время и дату.
| Входные данные | Выводимые данные |
| stDay: array[1..7] of string; | Time: TDateTime; |
| stMonth : array[1..12] of string |
Программа должна отображать текущее время и дату.
Label2
Timer1
Label1
unit eclock;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
Label2: TLabel;
procedure FormPaint(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure
FormCreate(Sender: TObject);
procedure
ShowTime;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
const
stDay : array[1..7] of string[11] =
('âîñêðåñåíüå','ïîíåäåëüíèê','
'ñðåäà','÷åòâåðã','ïÿòíèöà','
stMonth : array[1..12] of string[8] =
('ÿíâàðÿ','ôåâðàëÿ','ìàðòà',
'àïðåëÿ','ìàÿ','èþíÿ','èþëÿ',
'àâãóñòà','ñåíòÿáðÿ','îêòÿáðÿ'
'íîÿáðÿ','äåêàáðÿ');
{$R *.dfm}
procedure TForm1.ShowTime;
var
Time: TDateTime;
begin
Time := Now();
Label1.Caption := FormatDateTime('hh:mm:ss',
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
ShowTime;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowTime;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
Present: TDateTime;
Year, Month, Day : Word;
begin
Present:= Now; // ïîëó÷èòü òåêóùóþ äàòó
DecodeDate(Present, Year, Month, Day);
Label2.Caption := 'Ñåãîäíÿ '+IntToStr(Day)+ ' ' +
stMonth[Month] + ' '+ IntToStr(Year)+
' ãîäà, '+ stDay[DayOfWeek(Present)];
Timer1.Interval := 1000;
Timer1.Enabled := True;
end;
end.
Запустите программу, и программа выведет текущее время и дату.
Написать программу, которая выводит на поверхность формы диаграмму, отображающую, например, товарооборот книжного магазина.
| Входные данные | Выводимые данные |
| n: array[1..NR] of real; | x,y: integer; |
| p: array[1..NR] of real; | h: array[1..NR] of integer; |
Программа должна выводить диаграмму, отображающую товарооборот книжного магазина.
StringGrid1
Image1
Button1
unit gist_;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, ExtCtrls,
StdCtrls;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Image1: TImage;
procedure FormCreate(Sender: TObject);
procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
const
NR = 4;
var
n: array[1..NR] of real;
p: array[1..NR] of real;
h: array[1..NR] of integer;
BarColor:
array[1..4] of TColor = (clRed,clGreen,clBlue,
function Obr : boolean;
var
sum: real;
m: integer;
i: integer;
begin
obr := FALSE;
for i:=1 to NR do
begin
try
n[i] := StrToFloat(Form1.StringGrid1.
except
on EConvertError do
begin
ShowMessage('Íàäî ââåñòè
'ÿ÷åéêè âòîðîé êîëîíêè.');
exit;
end;
end;
end;
sum := 0;