Решение задач машиностроения средствами Turbo Pascal. Крупенников О.Г - 35 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

34
Так как истинность логического выражения проверяется в конце цикла
REPEAT, то тело цикла выполняется, по крайней мере, один раз, даже если ус-
ловие с самого начала оказалось истинным.
Выход из цикла REPEAT осуществляется, если проверяемое условие ста-
новится истинным. Если же оно ложно всегда, то цикл будет выполняться бес-
конечное число
раз (т. е. программа зациклится). Для выхода из состояния за-
цикливания необходимо нажать комбинацию клавиш «CTRL + BREAK».
Пример 4.4. Модернизировать программу из примера 4.2 с использовани-
ем цикла REPEAT.
PROGRAM SRED_RAZM_2;
USES CRT;
VAR I, N: INTEGER;
SUM, SR, R: REAL;
BEGIN
CLRSCR;
WRITE(‘ВВЕДИТЕ КОЛИЧЕСТВО ДЕТАЛЕЙ В ПАРТИИ:’);
READLN(N);
SUM:=0;
I:=1;
REPEAT
WRITE(‘ВВЕДИТЕ РАЗМЕР’,I,’-ОЙ ДЕТАЛИ В ММ: ’);
READLN(R);
SUM:=SUM+R;
I:=I+1;
UNTIL (I>N);
SR:=SUM/N;
WRITE(‘СРЕДНЕАРИФМЕТИЧЕСКИЙ РАЗМЕР ДЕТАЛЕЙ’);
WRITELN(‘В ПАРТИИ РАВЕН ’, SR:4:3,’ ММ’);
READKEY;
END.
4.2 Задания к практическому занятию
1.
Составить программу для определения скорости резания V при сверлении
отверстия сверлом диаметром D , изменяющимся от 1 до 4 мм с шагом 1 мм:
V = C
V
· D
q
· KV / T
m
· S
y
, где S = 0,2 мм/об; C
V
= 400; q = m = y = 0,5; K
v
= 1;
T = 60 мин – период стойкости.
2. Составить программу для определения крутящего момента при сверлении
М
кр
отверстия сверлом диаметром D, изменяющимся от 12 до 16 мм с шагом

Страницы