ВУЗ:
Составители:
Рубрика:
106
Текст программы
program lab5 ;{Программа, определяющая удлинение заготовки, в зависимости от тем-
пературы и коэффициента линейного расширения материала}
uses crt;
var dl,j,l:real; {dl – удлинение заготовки; dt-изменение температуры;
j-кооффициент линейного расширения; l-начальная длина заготовки.}
i,n,dt,t,t0:integer;
begin
clrscr;
writeln('--------------------------------------------------------------------------------------------');
writeln(' Программа, определяющая удлинение заготовки при ее нагревании');
writeln('--------------------------------------------------------------------------------------------');
writeln('');
writeln('');
{Операторы ввода исходных данных}
writeln('начальная длина заготовки составляет 100 мм. ');
writeln('коэффициент линейного расширения равен 0.000016 с^-1');
writeln('');
writeln('');
writeln('введите начальную температуру, град.С ');
readln(t0);
writeln('введите конечную температуру, град.С ');
readln(t);
dt:=1;
n:=(t-t0)+1;
l:=100;
writeln('----Результаты расчета удлинения заготовки в зависимости от температуры ее нагрева----');
{Внешний цикл(для управления изменением температуры)}
for i:=1 to n do
begin
j:=0.000012;
writeln('при температуре нагрева',t0,'град.С ');
{Внутренний цикл (для управления изменением коэффициентом линейного расширения)}
while j<=0.000018 do
begin
dl:=l*j*dt;
writeln('коэффициент линейного расширения',j:2:6,'с^-1');
writeln('удлинение заготовки равно',dl:5:6,'мм.');
j:=j+0.000001;
end;
{Конец внутреннего цикла}
writeln('--------------------------------------------------------------------------');
readkey;
t0:=t0+1;
dt:=dt+1;
end;
{Конец внешнего цикла}
writeln(' Разработал студент гр. ОМд-12: Андреев А.В. Дата: 19.04.04');
readkey;
end.
