Выбор нужного круга по определенным критериям

@Huder · Регистрация: 16.11.2012

Author24 — интернет-сервис помощи студентам

Нужно выбрать подходящий круг из базы данных по следующим критериям:
(Примерная структура программы, пользователь должен вводить только нужную цифру)
Введите вид шлифования
1.Плоское
2.Круглое наружное врезное
3.Круглое шлифование шеек конического вала
4.Круглое наружное с продольной подачей
5.Бесцентровое
6. Зубошлифование
7. Резьбошшлифование
8. Шлицешлифование
Выберите материал шлифуемой детали
1. Сталь Р6М5 по ГОСТ 19265 62…65 HRC
2. Сталь 45 по ГОСТ 2050 45…50 HRC
3. Сталь У8А по ГОСТ 1435 56…60 HRC
4. Твердый сплав ВК8 по ГОСТ 3882 90 HRА
5. Чугун СЧ 15-32 по ГОСТ 1412 180…200 HВ
6. Сталь 45Г2 по ГОСТ 4543 42…48 HRC
7. Сталь ШХ15 по ГОСТ 801 61…64 HRC
8. Титановый сплав ВТ3-1,ВТ22 по ГОСТ 19807
9. Сталь 12ХН3А ГОСТ 43…45 HRC
10. Сталь 40Х ГОСТ 4543 40…45 HRC
11. Сталь 4Х5МФ1С-Ш,Х12М,65Г 35…41 HRC

Введите величину обрабатываемой детали
1. 10
2. 11 - 20
3. 21 - 40
4. 41 - 60
5. 61 - 80
6. 81 - 100
7. 101 - 200
8. >200

Введите требуемую шероховатость плоскости детали
Ra>> 1,6
3,2
6,3
12,5

Результат: Круг типа: (ПП,ЧЦ,К,Д,ПР,2П,3П,Т (размер )мм,Зернистость: мкм,Связка :

Так для плоского шл. присвоить тип круга -ПП
Круглое наружное врезное - ЧЦ
Круглое шлифование шеек конического вала - К
Круглое наружное с продольной подачей - Д
Бесцентровое - ПР
Зубошлифование - 2П
Резьбошшлифование - 3П
Шлицешлифование Т
Потом для каждого метала присвоить свой коэффициент kmet который в дальнейшем умножается на зернистость из таблицы ,так для:
1. Сталь Р6М5 по ГОСТ 19265 62…65 HRC kmet=0.9
2. Сталь 45 по ГОСТ 2050 45…50 HRC kmet=0.8
3. Сталь У8А по ГОСТ 1435 56…60 HRC kmet=0.85
4. Твердый сплав ВК8 по ГОСТ 3882 90 HRА kmet=0.7
5. Чугун СЧ 15-32 по ГОСТ 1412 180…200 HВ kmet=0.8
6. Сталь 45Г2 по ГОСТ 4543 42…48 HRC kmet=0.95
7. Сталь ШХ15 по ГОСТ 801 61…64 HRC kmet=0.78
8. Титановый сплав ВТ3-1,ВТ22 по ГОСТ 19807 kmet=1.1
9. Сталь 12ХН3А ГОСТ 43…45 HRC kmet=1.2
10. Сталь 40Х ГОСТ 4543 40…45 HRC kmet=1
11. Сталь 4Х5МФ1С-Ш,Х12М,65Г 35…41 HRC kmet=0.77

Пример:
Введите вид шлифования
1.Плоское
2.Круглое наружное врезное
3.Круглое шлифование шеек конического вала
4.Круглое наружное с продольной подачей
5.Бесцентровое
6. Зубошлифование
7. Резьбошшлифование
8. Шлицешлифование
>> 1
Выберите материал шлифуемой детали
1. Сталь Р6М5 по ГОСТ 19265 62…65 HRC
2. Сталь 45 по ГОСТ 2050 45…50 HRC
3. Сталь У8А по ГОСТ 1435 56…60 HRC
4. Твердый сплав ВК8 по ГОСТ 3882 90 HRА
5. Чугун СЧ 15-32 по ГОСТ 1412 180…200 HВ
6. Сталь 45Г2 по ГОСТ 4543 42…48 HRC
7. Сталь ШХ15 по ГОСТ 801 61…64 HRC
8. Титановый сплав ВТ3-1,ВТ22 по ГОСТ 19807
9. Сталь 12ХН3А ГОСТ 43…45 HRC
10. Сталь 40Х ГОСТ 4543 40…45 HRC
11. Сталь 4Х5МФ1С-Ш,Х12М,65Г 35…41 HRC
>> 1
Введите величину обрабатываемой детали
1. 10
2. 11 - 20
3. 21 - 40
4. 41 - 60
5. 61 - 80
6. 81 - 100
7. 101 - 200
8. >200
>> 1
Введите требуемую шероховатость плоскости детали
Ra>> 1,6
3,2
6,3
12,5
>> 1
Результат: Круг типа: ПП 10 мм,Зернистость: 18.9 мкм,Связка : СМ1

@Zhexon · 17.11.2012, 20:54

не совсем понятен диаметр детали и как он с диаметром круга, но, как спросил, так и получи...
Таблицу сам загонишь, уж больно это муторно..

Pascal

  type
    Str2 = String[2];
    Str3 = String[3];
    Str9 = String[9];
    tData = record
      Z : Byte;
      S : Str3;
    end;
   { tBazaD = array[1..8,1..8,1..4] of tData;  Так должно быть}
     tBazaD = array[1..2,1..2,1..2] of tData; { 'это просто для примера }
  const
    kmet : array[1..11] of real =
      (0.9,0.8,0.85,0.7,0.8,0.95,0.78,1.1,1.2,1,0.77);
    typvid : array[1..8] of Str2 = ('ПП','ЧЦ','K','Д','ПР','2П','3П','T');
    VelDet : array[1..8] of Str9 =
      ('10','11-20','21-40','41-60','61-80','81-100','101-200','>200');
    BD : tBazaD =((((Z:21;S:'CM1'),(Z:34;S:'CM1')),
                   ((Z:21;S:'CM1'),(Z:35;S:'CM1'))),
                   (((Z:21;S:'CM1'),(Z:34;S:'CM1')),
                   ((Z:21;S:'CM1'),(Z:35;S:'CM1'))));
 
  var
    Vid,Mat,Det,Ra : Byte;
 
  Begin
    Write('Введите вид шлифования         [1..8]  '); readln(Vid);
    Write('Выберите мат шлиф детали       [1..11] '); readln(Mat);
    Write('Введите вел обраб детали       [1..8]  '); readln(Det);
    Write('Введите шерох плоскости детали [1..4]  '); readln(Ra);
    writeln('Круг типа: ',typvid[Vid],' ',VelDet[Det],' mm, Зернистость: ',
      (kmet[mat]*BD[Vid,Det,Ra].Z):8:3,' мкм,Связка: ',BD[Vid,Det,Ra].S);
    Readln;
  End.

	17.11.2012, 20:54

Выбор нужного круга по определенным критериям

Решение