Построение графика функции.

Калькулятор.

Написать программу для суперсложных расчетов.

procedure TForm1.Button10Click(Sender: TObject);

begin

Edit1.Text:=Edit1.Text+'0';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Text:=Edit1.Text+'1';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:=Edit1.Text+'2';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Edit1.Text:=Edit1.Text+'3';

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Edit1.Text:=Edit1.Text+'4';

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Edit1.Text:=Edit1.Text+'5';

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

Edit1.Text:=Edit1.Text+'6';

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

Edit1.Text:=Edit1.Text+'7';

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

Edit1.Text:=Edit1.Text+'8';end;

procedure TForm1.Button9Click(Sender: TObject);

begin

Edit1.Text:=Edit1.Text+'9';

end;

procedure TForm1.Button22Click(Sender: TObject);

begin

Edit1.Text:=Edit1.Text+',';{запятой,в Зависимости от установок}

end; {в Windows}

{Процедура очстки окон основного и вспомогательных редакторов}

{Окна Edit2,Edit3,Edit4 введены для контроля текущих значений переменных в процессе отладки программы}

procedure TForm1.Button21Click(Sender: TObject);

begin

Edit1.Text:='';{}

Edit2.Text:='';{}

Edit3.Text:='';{}

Edit4.Text:='';

end;

procedure TForm1.Button16Click(Sender: TObject);

begin

z:=StrToFloat(Edit1.Text);

If z<0then begin Edit1.Text:='Ошибка';exit;end else

Edit1.Text:=FloatToStr(Sqrt(z));

end;

procedure TForm1.Button15Click(Sender: TObject);

begin

z:=StrToFloat(Edit1.Text);

Edit1.Text:=FloatToStr(Sqr(z));

end;

procedure TForm1.Button17Click(Sender: TObject);

begin

z:=StrToFloat(Edit1.Text);

Edit1.Text:=FloatToStr(Sin(z));

end;

procedure TForm1.Button18Click(Sender: TObject);

begin

z:=StrToFloat(Edit1.Text);

Edit1.Text:=FloatToStr(cos(z));

end;

procedure TForm1.Button19Click(Sender: TObject);

begin

z:=StrToFloat(Edit1.Text);

Edit1.Text:=FloatToStr(sin(z)/Cos(z));

end;

procedure TForm1.Button20Click(Sender: TObject);

begin

z:=StrToFloat(Edit1.Text);

Edit1.Text:=FloatToStr(cos(z)/sin(z));

end;

procedure TForm1.Button24Click(Sender: TObject);

begin

z:=StrToFloat(Edit1.Text);

Edit1.Text:=FloatToStr(ln(z)); end;

Построение графика функции.

Построить график Y=(x+3)/(x^2+2).

{$R *.dfm}

function f(x:real):real;

begin

result:=sin(x)+cos(x);

end;

type TFunc= function(x:real):real;

procedure drawGraph(f:TFunc;a:real;b:real;c:TCanvas);

var x,y,h:real;

max,mid,min,color:real;

sx,sy:real;

xmid,ymid:integer;

begin

sx:=(c.ClipRect.Right)/(b-a);

h:=1/sx;

xmid:=c.ClipRect.Right div 2;

ymid:=c.ClipRect.Bottom div 2;

x:=a;

max:=f(x);

mid:=max;

while x<=b do

begin

y:=f(x);

if y<min then min:=y;

if y>max then max:=y;

x:=x+h;

end;

Тамагочи

Анимировать рисунок.

{$R *.dfm}

Procedure TForm1.Button1Click(Sender: TObject);

begin

Shape7.Height := 58;

Shape8.Height := 58;

Timer1.Enabled := true;

end;

Procedure TForm1.Timer1Timer(Sender: TObject);

begin

Shape7.Height := 25;

Shape8.Height := 25;

Timer1.Enabled := false;

If Edit1.Text = 'привет Гриня!'

Then Label1.Caption := 'Дарова:(';

If Edit1.Text = 'как ты?'

Then Label1.Caption := 'Нормально ,Сам как?';

If Edit1.Text = 'хорошо, когда в город?'

Then Label1.Caption := 'Да не охото че то';

If Edit1.Text = 'почему?'

Then Label1.Caption := 'Сам знаешь';

If Edit1.Text = 'хаха'

Then Label1.Caption := 'Не смешно';

If Edit1.Text = 'Ладно отдыхай'

Then Label1.Caption := 'ок,пока'; end;

end.

Снеговик.

Построить изображение с помощью Shape и методов и свойств Canvas.

procedure TForm1.Button1Click(Sender: TObject);

begin

Shape18.top := 160;

Shape13.top := 176;

Shape14.top := 176;

Shape15.top := 176;

Shape17.top := 160;

Timer1.Enabled := true;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Shape18.top := 176;

Shape13.top := 160;

Shape14.top := 160;

Shape15.top := 160;

Shape17.top := 176;

Timer1.Enabled := false;

end;

Не нашли, что искали? Воспользуйтесь поиском: