Var n:integer; begin repeat read(n); if n<1 or n>12 then writeln('Неверный номер месяца'); until n=>1 and n<=12 ; case n of 1: writeln('Этот месяц - Январь, время года - зима.'); 2: writeln('Этот месяц - Февраль, время года - зима.'); 3: writeln('Этот месяц - Март, время года - весна.'); 4: writeln('Этот месяц - Апрель, время года - весна.'); 5: writeln('Этот месяц - Май, время года - весна.'); 6: writeln('Этот месяц - Июнь, время года - лето.); 7: writeln('Этот месяц - Июль, время года - лето.'); 8: writeln('Этот месяц - Август, время года - лето.'); 9: writeln('Этот месяц - Сентябрь, время года - осень.'); 10: writeln('Этот месяц - Октябрь, время года - осень.'); 11: writeln('Этот месяц - Ноябрь, время года - осень.'); 12: writeln('Этот месяц - Декабрь, время года - зима.'); end; end.
{$mode objfpc}{$H+}
interface
uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Spin, Math;
type
{ TForm1 }
TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; procedure Button1Click(Sender: TObject); private { private declarations } public { public declarations } end;
var Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);begin Form1.Label4.Caption:=FloatToStr(tan((StrToFloat(Form1.Edit1.text)*2)+StrToFloat(Form1.Edit2.text)));end;
end.