ї сили тертя і сумарною реакція для i-й пластини:
В
Процедура Sumarn для обчислення сумарної реактивної сили і сумарної сили тертя:
В
Процедура VSE для загального обчислення повної сили тертя і сумарною реакція для i-й пластини, сумарною реактивної сили і сумарної сили тертя, довжини i-ой пластини, роботи, наведеного коефіцієнта тертя, потужності ззастосуванням процедур Sumarn і Rasch:
В
Процедура Vivod для запису отриманих результатів у файл результатів з пріменмніем процедури VD
В
Процедура VD застосовується для виведення результатів роботи процедури Vse в табличному і строковому вигляді:
В
5. Таблиця ідентифікаторів
? AlfЧісло оборотів валаmmРадіус валаrrУгловая швидкість обертання вала ? < span align = "justify"> wДліна подшіпнікаLnLpdМінімальное значення сілиQ min QminШаг разбіеніяhhЧісло разбіенійnnПріведенний коефіцієнт треніяfc ' ftrМощностьPPРаботаАAtrСуммарная реакція i-й пластини (Q сум ) i QsПолная сила тертя i-й пластини (Fc сум ) i FsСуммарная реактивна сілаQ сум QsumСуммарная сила треніяFc сум FsumДлінна i-ой пластіниlL
6. Роздруківка тексту програми
6.1 Текст головний програми
Program Kursavoi_zadacha4;
Uses crt, KURSAVOI;
Var Q, f, Alf, m, r, w, Qmin, h, A, fk, Int1, Int2, Int3, Int4, Atr1, Atr2, Atr3, Atr4, Atr5,
{$ F-};
Write ('Введіть зосереджену силу Q ='); readln (Q); ('Введіть коефіцієнт тертя f ='); readln (f); ('Введіть граничний кут контакту Alf ='); readln (Alf); ('Введіть число обертів вала m ='); readln (m); ('Введіть радіус валу r ='); readln (r); ('Введіть кутову швидкість обертання вала w ='); readln ( w); ('Введіть довжину підшипника Lpd ='); readln (Lpd); ('Введіть мінімальне значення сили Qmin ='); readln (Qmin); ('Введіть число розбиття n ='); readln (n); ( 'Пропишіть функції діють у поперечному напрямку');
Write ('функція zak1:'); readln (zak1...
