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

lab5

.pas
Скачиваний:
0
Добавлен:
24.12.2018
Размер:
1.73 Кб
Скачать
program Lab5;
uses crt;
const C=143; q=1.0; y=0.7; K=1;
var step1,step2, D,S,P:real;
function stp(a,b:real):real;
begin
stp:=exp(b*ln(a));
end;
begin
CLRSCR;
writeln ('┌─────────────────────────────────────────┐');
writeln ('│ Розрахунок сили різання при свердлінні    │');
writeln ('└─────────────────────────────────────────┘');
writeln;
writeln ('Введiть дiаметр оброблюваного отвору, мм:');
readln (D);
writeln;
step1:=stp(d,q);
writeln ('Введiть подачу, мм/об:');
readln (S);
writeln;
step2:=stp(s,y);
P:=10*C*step1*step2*K;
writeln;writeln;
writeln (' РЕЗУЛЬТАТИ РОЗРАХУНКУ ':30);
writeln;writeln;
writeln ('┌──────────────────┬─────┬──────┬────────┐');
writeln ('│ Дiаметр отвору   │ D   │ мм   │',D:7:2,' │');
writeln ('├──────────────────┼─────┼──────┼────────┤');
writeln ('│ Подача           │ S   │ мм/об│',S:7:2,' │');
writeln ('├──────────────────┼─────┼──────┼────────┤');
writeln ('│ Сила різання     │ P   │ Н*м  │',P:7:2,'│');
writeln ('└──────────────────┴─────┴──────┴────────┘');
readln;
end.
Соседние файлы в предмете Информатика