Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

lab4

.pas
Скачиваний:
0
Добавлен:
24.12.2018
Размер:
887 б
Скачать
program Lab4;
uses crt;
const C=68; q=1.0; y=0.7; K=1;
var A:array[1..25] of real;
D, Dmax, Dmin, i:integer; S, Smax, Smin, P, MAX:real;
begin
CLRSCR;
writeln ('Визначення максимальної сили різання при свердлінні':52);
writeln;writeln;
writeln ('Введіть діапазон значень діаметрів:'); writeln;
write ('Dmax= '); readln (Dmax);write('Dmin= :'); readln (Dmin);
writeln; writeln; writeln ('Введіть діапазон значень подачі:');
writeln;
write('Smax= '); readln (Smax); write ('Smin= '); readln (Smin); i:=1;
for D:=Dmin to Dmax do
begin
S:=Smin;
while S < Smax do
begin
P:=10*C*exp(q*ln(D))*exp(y*ln(S))*K; S:=S+0.1; A[i] :=P; i:=i+1;
end;end; A[1]:=MAX;
for i:=2 to 25 do if A[i]>MAX then MAX:=A[i]; writeln;writeln;
writeln ('Максимальна сила різання при свердлінні P =', MAX:4:2,'H*м');
writeln (' при D = ',D,' мм S = ',S-0.1:3:1,' мм/об ');
writeln; readln;
end.
Соседние файлы в предмете Информатика