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

UptoLike

ВУЗ: 

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

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

Рубрика: 

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

Страницы