Реферат Розробка та дослідження цифрової моделі теплового потоку при перебігу в'язкої рідини в каналі із зовнішніми нагревающимися елементами

ини raquo ;;;;;;;:; (kstop lt; gt; 0) then:=0; .Button3.Click ;;;; Lab1 ;;; ;;;

TForm1.Button2Click (Sender: TObject);

//натискання на кнопку будує графічну ілюстрацію

var, j: integer; Form3.StringGrid2.Cells [1,1]= then (handle, PChar ( Спочатку необхідно провести розрахунок!! ), PChar ( Помилка ), MB_OK + MB_ICONERROR) .N1.Click; .Show () ;;;

TForm3.Button1Click (Sender: TObject);

//збереження значень в excel файл

var

znac: double; (Form1.RadioGroup1.ItemIndex=2) then (Form3.stringGrid2.Cells [49,17]= ) then (handle, PChar ( Таблиця порожня! + # 10 + Ви точно хочете зберегти? ), PChar ( Збереження ), MB_OK + MB_ICONWARNING)

elseSaveAsExcelFile (Form3.stringGrid2, Значення нагріву кожуха raquo ;, c: teplo.xls ) then

ShowMessage ( Дані успішно збережені! );

end; (Form1.RadioGroup1.ItemIndex=1) then (Form3.stringGrid1.Cells [1,17]= ) then (handle, PChar ( Таблиця порожня! + # 10 + Ви точно хочете зберегти? ), PChar ( Збереження ), MB_OK + MB_ICONWARNING)

elseSaveAsExcelFile (Form3.stringGrid1, Значення нагріву рідини raquo ;, c: teplo1.xls ) then

ShowMessage ( Дані успішно збережені! );

end

;

TForm4.Button1Click (Sender: TObject);

//побудова графічної ілюстрації

var

i, j1, l, l1, mass, mass1: integer;

temp, tem1, znach: double;

//задається стиль пера.image1.Canvas.Brush.Style:=bsDiagCross;

//задається колір карандаша.image1.Canvas.Pen.Color:=clBlack;

//будуватися прямоугольнік.image1.Canvas.Rectangle (0,0,800,650);

//очищається стіль.image1.Canvas.Brush.Style:=bsClear;:=(temperGraf + 2)/210;:=38;:=l; :=7;

//будуватися сам малюнок, для кожної чверті кола свій цикл

//лівий верхнійmass:=26 to ncvlx + 2 do:=j;:=75 - mass; i:=ncvly + 2 downto 1 do

//порівнюється код кольору зі значенням і фарбується в визначення

//цвет.image1.Canvas.Brush.Color:=color_schema [round (StrToFloat (Form3.StringGrid2.Cells [mass1, i])/tem1)] ;. image1.Canvas.Pen. Color:=clBlack; Form4.N2.Checked=false then.image1.Canvas.Pen.Color:=color_schema[round(StrToFloat(Form3.StringGrid2.Cells[mass1,i])/tem1)];.image1.Canvas.Pie(j1,j1,650-j1,650-j1,massI[mass+1],massJ[mass+1],massI[mass],massJ[mass]);:= j1 + j ;;;

//лівий ніжнійmass:=1 to 24 do:=j;:=mass + 1; i:=17 downto 1 do.image1.Canvas.Brush.Color:=color_schema [round (StrToFloat (Form3.StringGrid2.Cells [25-mass, i])/tem1)] ;. image1.Canvas.Pen.Color:=clBlack; Form4.N2.Checked=false then.image1.Canvas.Pen.Color:=color_schema[round(StrToFloat(Form3.StringGrid2.Cells[25-mass,i])/tem1)];.image1.Canvas.Pie(j1,j1,650-j1,650-j1,massI[mass+1],massJ[mass+1],massI[mass],massJ[mass]);:= j1 + j ;;;

//правий верхнійmass:=1 to 24 do:=j;:=25 - mass; i:=17 downto 1 do.image1.Canvas.Brush.Color:=color_schema [round (StrToFloat (Form3.StringGrid2.Cells [mass1, i])/tem1)] ;. image1.Canvas.Pen.Color:=clBlack; Form4.N2.Checked=false then.image1.Canvas.Pen.Color:=color_schema[round(StrToFloat(Form3.StringGrid2.Cells[mass1,i])/tem1)];.image1.Canvas.Pie(j1,j1,650-j1,650-j1,massI1[mass],massJ1[mass],massI1[mass+1],massJ1[mass+1]);:= j1 + j ;;;

//правий ніжнійmass:=26 to 49 do:=j;:=75 - mass; i:=17 downto 1 do.image1.Canvas.Brush.Color:=color_schema [round (StrToFloat (Form3.StringGrid2.Cells [mass1, i])/tem1)] ;. image1.Canvas.Pen.Color:=clBlack; Form4.N2.Checked=false then.image1.Canvas.Pen.Color:=color_schema[round(StrToFloat(Form3.StringGrid2.Cells[mass1,i])/tem1)];.image1.Canvas.Pie(j1,j1,650-j1,650-j1,massI1[mass],massJ1[mass],massI1[mass+1],massJ1[mass+1]);:= j1 + j ;;;

. image1.Canvas.Brush.Style:=bsClear; .image1.Canvas.Brush.Style:=bsSolid; .image1.Canvas.Brush.Color:=clWhite; .image1.Canvas.Pen.Color:=clBlack; .image1.Canvas.Ellipse (130,130,520,520) ;. image1.Canvas.Brush.Style:=bsClear;

end;