ВАРИАНТ 58

Задание N 5

Cоставить простейшие программы по условиям приведенных ниже задач и записать их на диск.

5.1.Найти площадь сегмента.

Расчетная формула:

где Sсегм —площадь сегмента, см2;

R —радиус круга, см;

( —дуга сегмента, рад.

Исходные данные для расчета приведены в табл.5.1.

Таблица 5.1
|Парметры | R | ( |
|расчета | | |
|Числовые | 220,0| 161,3|
|значения | | |

Ход программы

Program zadacha5_1;

Var r,a,s:real;

Begin

Write('ввудите радиус круга в см. r =');

Readln(r);

Write('введите дугу сегмента в рад а=');

Readln(a); s:=1/(2*r*r*(a-sin(a)));

Writeln('Площадь сегмента s=',s:17:13); end.

Блок-схема.

Решение ввудите радиус круга в см. r =220.0 введите дугу сегмента в рад. a=161.3

Площадь сегмента s=0.00000006370

5.2.Определить свободную длину винта из условия работы на продольный изгиб.

Расчетная формула:

[pic][pic][pic][pic][pic] где hсв - свободная длина винта, мм ;