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

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;
Не нашли, что искали? Воспользуйтесь поиском:
|