В помощь технологу...⁠⁠

Так как я обучаюсь на специальность технолог машиностроения, я решил в помощь себе создать калькулятор. Ранее паскаль я изучал в школе на уроках информатики. В помощь созданию я прибегнул к использованию различных гайдов, благодаря которым получилось создать эту программу. У кода есть недостатки. К примеру, нельзя использовать в некоторых переменных десятичные числа (пишет ошибку). Но данный результат, что программа работает, заставляет меня радоваться, хоть она и примитивна. Код писал в PascalABC.net.

Кому интересен код, я прикреплю его ниже.

program КалькуляторДляТехнологаМашиностроения;

uses CRT;

const

pi = 3.1415926535;

var

choice: integer;

procedure CalcSpindle;

var

V, D, n: real;

begin

writeln('РАСЧЕТ ЧАСТОТЫ ВРАЩЕНИЯ ШПИНДЕЛЯ');

write('Введите скорость резания V (м/мин): ');

readln(V);

write('Введите диаметр детали D (мм): ');

readln(D);

n := (1000 * V) / (pi * D);

writeln('Частота вращения шпинделя n = ', n:0:2, ' об/мин');

readln;

end;

procedure CalcFeed;

var

S, n, Sm: real;

begin

writeln('РАСЧЕТ МИНУТНОЙ ПОДАЧИ');

write('Введите подачу на оборот S (мм/об): ');

readln(S);

write('Введите обороты шпинделя n (об/мин): ');

readln(n);

Sm := S * n;

writeln('Минутная подача Sm = ', Sm:0:2, ' мм/мин');

readln;

end;

procedure CalcMachineTime;

var

L, Sm, Tm: real;

begin

writeln('РАСЧЕТ МАШИННОГО ВРЕМЕНИ');

write('Введите длину рабочего хода L (мм): ');

readln(L);

write('Введите минутную подачу Sm (мм/мин): ');

readln(Sm);

Tm := L / Sm;

writeln('Машинное время Tm = ', Tm:0:3, ' мин');

readln;

end;

procedure CalcCuttingMode;

var

D, V, S, L, n, Sm, Tm: real;

begin

writeln('РАСЧЕТ РЕЖИМОВ РЕЗАНИЯ');

write('Введите диаметр детали D (мм): ');

readln(D);

write('Введите скорость резания V (м/мин): ');

readln(V);

write('Введите подачу на оборот S (мм/об): ');

readln(S);

write('Введите длину рабочего хода L (мм): ');

readln(L);

n := (1000 * V) / (pi * D);

Sm := S * n;

Tm := L / Sm;

writeln;

writeln('РЕЗУЛЬТАТЫ:');

writeln('Обороты шпинделя n = ', n:0:2, ' об/мин');

writeln('Минутная подача Sm = ', Sm:0:2, ' мм/мин');

writeln('Машинное время Tm = ', Tm:0:3, ' мин');

readln;

end;

procedure CalcMass;

var

D, L, density, volume, mass: real;

begin

writeln('РАСЧЕТ МАССЫ ЦИЛИНДРИЧЕСКОЙ ДЕТАЛИ');

write('Введите диаметр D (мм): ');

readln(D);

write('Введите длину L (мм): ');

readln(L);

write('Введите плотность материала (кг/м3): ');

readln(density);

D := D / 1000;

L := L / 1000;

volume := pi * sqr(D) / 4 * L;

mass := density * volume;

writeln('Масса детали = ', mass:0:3, ' кг');

readln;

end;

procedure CalcAllowance;

var

D1, D2, allowance: real;

begin

writeln('РАСЧЕТ ПРИПУСКА');

write('Введите диаметр заготовки (мм): ');

readln(D1);

write('Введите диаметр после обработки (мм): ');

readln(D2);

allowance := (D1 - D2) / 2;

writeln('Припуск на сторону = ', allowance:0:3, ' мм');

readln;

end;

begin

repeat

ClrScr;

writeln('=================================');

writeln('ПРОГРАММА ТЕХНОЛОГА МАШИНОСТРОЕНИЯ');

writeln('=================================');

writeln('1 - Режимы резания');

writeln('2 - Частота вращения шпинделя');

writeln('3 - Минутная подача');

writeln('4 - Машинное время');

writeln('5 - Масса детали');

writeln('6 - Припуск на обработку');

writeln('0 - Выход');

writeln;

write('Выберите пункт: ');

readln(choice);

ClrScr;

case choice of

1: CalcCuttingMode;

2: CalcSpindle;

3: CalcFeed;

4: CalcMachineTime;

5: CalcMass;

6: CalcAllowance;

end;

until choice = 0;

end.