Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

Label3.Top:=y0-150;

Canvas.Pen.Width:=1; x:=x0; for i:=1 to 10 do begin x:=x+35;

Canvas.MoveTo(x, y0-3);

Canvas.LineTo(x, y0+3); end; y:=y0; for i:=1 to 5 do begin y:=y-20;

Canvas.MoveTo(x0-3, y);

Canvas.LineTo(x0+3, y); end; end; procedure TForm1.Postroenie(T1,T2,R1,R2:real); var x,y:integer;

Kx,Ky,x1,y1,P,C1,Sag:real; begin

Canvas.Pen.Width:=1;

Canvas.Pen.Color := clRed;

Sag:=(R2-R1)/500; {шаг по X}

C1:=(T1-T2)/(ln(R2/R1));

Kx:=(R2-R1)/350; {Коэффициенты "усиления"} if T1>T2 then

Ky:=T1/100 else

Ky:=T2/100;

x1:=R1; {Начальные условия} y1:=T1;

Canvas.MoveTo(x0+Round((x1-R1)/Kx),y0-Round(y1/Ky)); repeat y:=Round(y1/Ky); x:=Round((x1-R1)/Kx);

Canvas.LineTo(x0+x, y0-y); x1:=x1+Sag; y1:=(T1+C1*ln(R1/x1));

{label1.Caption:=label1.Caption+'; '+intToStr(x); label2.Caption:=label2.Caption+'; '+intToStr(y);} until x1>R2;

P:=4*Pi*C1; label1.Caption:='Мощность источника: ='+FloatToStrF(P,ffGeneral,5,1)+
' Вт';

label5.Caption:=FloatToStrF(R2,ffGeneral,4,1); label6.Caption:=FloatToStrF(R1,ffGeneral,4,1); if T1>T2 then begin label7.Caption:=FloatToStrF(T2,ffGeneral,4,1); label8.Caption:=FloatToStrF(T1,ffGeneral,4,1); end else begin label7.Caption:=FloatToStrF(T1,ffGeneral,4,1); label8.Caption:=FloatToStrF(T2,ffGeneral,4,1); end; end;

procedure TForm1.Button1Click(Sender: TObject); var

Code1,Code2,Code3,Code4:integer; begin

Repaint; val (Edit1.Text,T1,Code1); val (Edit2.Text,T2,Code2); val (Edit3.Text,R1,Code3); val (Edit4.Text,R2,Code4); if (Code4 or Code3 or Code2 or Code1) 0 then begin

Edit1.SetFocus;

MessageDlg ('Введите пожалуйста значение!', mtError, [mbOk],0); end else

Рекомендуем скачать другие рефераты по теме: контрольная работа 1, контрольные 7 класс.



Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки