Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Лабораторная работа № 1 (первая часть)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,DateUtils, XPMan, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
Label5: TLabel;
XPManifest1: TXPManifest;
Image1: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var d:tdatetime;s:string; md,mm,my:integer;
begin
s:=Edit1.Text+'.'+Edit2.Text+'.'+Edit3.Text;
d:=StrToDate(s);
md:=DayOfTheMonth(Now)-DayOfTheMonth(d);
mm:=MonthOfTheYear(Now)-MonthOfTheYear(d);
my:=yearof(Now)-yearof(d);
if md<0 then begin
md:=md+30;
mm:=mm-1;
end;
if mm<0 then begin
my:=my-1;
mm:=mm+12;
end;
Label5.caption:='C момента рождения прошло '+inttostr(md + (mm*30) + my*(360))+' дня(ей)';
end;
end.
Дополнительно: доработать программу так, чтобы она учитывала высокосные года. Также заменить компоненты ввода TEdit на компоненты ввода TComboBox и заполнить компоненты значениями. Для студентов, которые претендуют на высокую оценку необходимо ввод даты рождения реализовать через компонент TDateTimePicker
Лабораторная работа № 1 (вторая часть)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, XPMan;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
Label3: TLabel;
Image1: TImage;
XPManifest1: TXPManifest;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var ch,mes:integer;
begin
ch:=strtoint(Edit1.text);mes:=strtoint(Edit2.text);
if (ch>0) and (ch<32) and (mes>0) and (mes<13) then
case mes of
1: if ch>=20 then Label3.caption:='Водолей' else Label3.caption:='Козерог';
2: if ch>=21 then Label3.caption:='Рыбы' else Label3.caption:='Водолей';
3: if ch>=21 then Label3.caption:='Овен' else Label3.caption:='Рыбы';
4: if ch>=21 then Label3.caption:='Телец' else Label3.caption:='Овен';
5: if ch>=22 then Label3.caption:='Близнецы' else Label3.caption:='Телец';
6: if ch>=22 then Label3.caption:='Рак' else Label3.caption:='Близнецы';
7: if ch>=24 then Label3.caption:='Лев' else Label3.caption:='Рак';
8: if ch>=23 then Label3.caption:='Дева' else Label3.caption:='Лев';
9: if ch>=22 then Label3.caption:='Весы' else Label3.caption:='Дева';
10: if ch>=24 then Label3.caption:='Скорпион' else Label3.caption:='Весы';
11: if ch>=23 then Label3.caption:='Стрелец' else Label3.caption:='Скорпион';
12: if ch>=22 then Label3.caption:='Козерог' else Label3.caption:='Стрелец';
end
else Label3.caption:='Неверно введены значения';
end;
end.
Дополнительно: доработать программу так, чтобы она кроме знака зодиака выдавала зодиак года. Например - близнецы, год собаки. Для студентов, которые претендуют на высокую оценку необходимо ввод даты рождения реализовать через компонент TDateTimePicker, при этом считывать только день и месяц.