Сборник заданий для практических занятий по информатике. Крупенников О.Г - 49 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

48
Пример 5.1. Предприятие выпускает металлопрокат из четырех различ-
ных материалов с плотностью 7,0; 7,2; 7,4; 7,6 г/см
3
диаметром 10, 20, 30 и
40 мм. Составить программу для расчета массы погонного метра каждого
вида проката. Алгоритм программы представлен в приложении Г.6.
PROGRAM PROKAT;
USES CRT;
VAR DN, DK, HD, PN, PK, HP, D, P, V, M: REAL;
BEGIN
CLRSCR;
WRITE (‘ВВЕДИТЕ ШАГ ИЗМЕНЕНИЯ ПЛОТНОСТИ НР В КГ/М^3: ’);
READLN (НР);
WRITE (‘ВВЕДИТЕ ШАГ ИЗМЕНЕНИЯ ДИАМЕТРА HD В М: ’);
READLN (НD);
WRITE (‘ВВЕДИТЕ МИНИМАЛЬНОЕ (НАЧАЛЬНОЕ) ЗНАЧЕНИЕ’);
WRITE (‘ПЛОТНОСТИ PN В КГ/М^3: ’);
READLN (PN);
WRITE (‘ВВЕДИТЕ МАКСИМАЛЬНОЕ (КОНЕЧНОЕ) ЗНАЧЕНИЕ’);
WRITE (‘ПЛОТНОСТИ PK В КГ/М^3: ’);
READLN (PK);
WRITE (‘ВВЕДИТЕ МИНИМАЛЬНОЕ (НАЧАЛЬНОЕ) ЗНАЧЕНИЕ’);
WRITE (‘ДИАМЕТРА ПРОКАТА DN В М: ’);
READLN (DN);
WRITE (‘ВВЕДИТЕ МАКСИМАЛЬНОЕ (КОНЕЧНОЕ) ЗНАЧЕНИЕ’);
WRITE (‘ДИАМЕТРА ПРОКАТА DK В М: ’);
READLN (DK);
P:= PN;
REPEAT
D:= DN;
REPEAT
V:= PI*SQR(D)/4;
M:= P*V;

Страницы