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

UptoLike

6
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ 1.
РАСЧЕТ КОНСТРУКТИВНЫХ ПАРАМЕТРОВ ДЕТАЛЕЙ МАШИН
1.1. Разработка программ линейной структуры
Программы, разрабатываемые студентами на данном практическом
занятии, должны быть реализованы на основе алгоритмов линейной
структуры. Такие программы представляют собой совокупность следую-
щих друг за другом операторов. Определенность расположения операто-
ров зависит от условий конкретной задачи и от субъективных предпочте-
ний программиста.
Пример 1.1. Составить программу для вычисления массы стальной
заготовки длиной А, шириной В и высотой Н. Алгоритм программы пред-
ставлен в приложении Г.1.
PROGRAM MASSA;
USES CRT;
VAR MAS, A, B, H, G: REAL;
BEGIN
CLRSCR;
WRITE (' ВВЕДИТЕ ДЛИНУ ЗАГОТОВКИ В M : ');
READLN (A);
WRITE (‘ ВВЕДИТЕ ШИРИНУ ЗАГОТОВКИ В М : ');
READLN (В);
WRITE (‘ ВВЕДИТЕ ВЫСОТУ ЗАГОТОВКИ В М : ');
READLN (Н);
WRITE (‘ ВВЕДИТЕ ПЛОТНОСТЬ ЗАГОТОВКИ В КГ/М^3 : ');
READLN (G);
MAS:= G*A*B*H/1000;
WRITELN (' МАССА ЗАГОТОВКИ РАВНА ‘,MAS:4:2,' КГ ');
READKEY;
END.