Курс лекций по основам алгоритмизации и программирования задач машиностроения. Кравченко Д.В. - 23 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

2
z
2
y
PPP +=
Program Usilie; {Заголовок программы}
Uses Crt;{Обращение к модулю Сrt библиотеки}
{языка Turbo Pascal 7.0}
Var P,P
y
,P
z
: real; {Раздел описания переменных:}
{P,P
y
,P
z
– силы резания}
Начало цикла
Begin {Начало раздела операторов}
Clrscr; {Процедура очистки экрана}
Write(’Ввод силы резания P
y
в Н:’);
Ввод значения силы P
y
, {Структура оператора вывода. Комментарий поясняющий}
H
{пользователю, что нужно будет ввести значение P
y
в Н }
Readln (P
y
); {Структура оператора ввода. Ввод значения}
{силы резания P
y
с клавиатуры}
Ввод значения силы P
y
, Write(’Ввод силы резания P
z
в Н:’);
H
{Структура оператора вывода. Комментарий поясняющий}
{пользователю, что нужно будет ввести значения P
z
в Н }
Расчет усилия изги- Readln (P
z
); {Структура оператора ввода. Ввод значения}
бающего оправку, Н {силы резания P
z
с клавиатуры}
P:=sqrt(sqr(P
y
)+sqr(P
z
)); {Структура оператора}
{присваивания. Расчетная формула}
Вывод результата Writeln(’P = ’,P:5:2,’ H.’); {Структура оператора вывода.}
решения {Вывод результата решения задачи}
Readkey; {Процедура задержки результата на экране}
{монитора}
Конец алгоритма End.{Конец раздела операторов}
Рис. 1.8. Структурная схема связи алгоритма, представленного в виде блок-схемы, и программы
(постановка задачи см. пример 7)
Начало
Ввод P
y
Ввод P
z
Вывод P
Конец

Страницы