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

UptoLike

ВУЗ: 

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

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

Рубрика: 

38
вила организации (построения) как внешнего, так и внутреннего циклов оста-
ются такими же, как и для простого цикла каждого из этих видов.
Однако при построении вложенных циклов необходимо соблюдать допол-
нительное условие − все операторы внутреннего цикла должны полностью ле-
жать в теле внешнего цикла. Возможная глубина вложенности циклов (количе
-
ство уровней) ограничивается только памятью ПЭВМ.
Параметры циклов, расположенных на разных уровнях вложенности, из-
меняются не одновременно. Вначале все свои значения изменит параметр цикла
самого «глубокого» уровня при фиксированных (начальных) значениях пара-
метров циклов с менее «глубоким» уровнем. Затем изменяется на один шаг зна-
чение параметра цикла следующего уровня вложенности
и снова полностью
выполняется самый внутренний цикл и т. д. до тех пор, пока параметры циклов
всех уровней не примут все требуемые значения.
При этом, если в сложном цикле с глубиной вложенности k число повторе-
ний циклов на каждом уровне равно N
0
, N
1
, ... , N
K
соответственно, то общее ко-
личество повторений тела самого внутреннего цикла равно N = N
0
· N
1
· ... · N
K
.
Пример 5.1. Предприятие выпускает металлопрокат из четырех различных
материалов с плотностью 7,0; 7,2; 7,4; 7,6 г/см
3
диаметром 10, 20, 30 и 40 мм. Со-
ставить программу для расчета массы погонного метра каждого вида проката.
PROGRAM PROKAT;
USES CRT;
VAR DN, HD, PN, HP, VN, M: REAL;
BEGIN
CLRSCR;
WRITE(‘ВВЕДИТЕ ШАГ ИЗМЕНЕНИЯ ПЛОТНОСТИ НР: ’);
READLN(НР);
WRITE(‘ВВЕДИТЕ ШАГ ИЗМЕНЕНИЯ ДИАМЕТРА ПРОКАТА HD: ’);
READLN(НD);
WRITE(‘ВВЕДИТЕ МИНИМАЛЬНОЕ (НАЧАЛЬНОЕ) ЗНАЧЕНИЕ’);
WRITE(‘ПЛОТНОСТИ PN: ’);
READLN(PN);
WRITE(‘ВВЕДИТЕ МИНИМАЛЬНОЕ (НАЧАЛЬНОЕ) ЗНАЧЕНИЕ’);
WRITE(‘ДИАМЕТРА ПРОКАТА DN: ’);
READLN(DN);
REPEAT
REPEAT
VN:=PI*DN*DN/4;
M:=PN*VN;

Страницы