ВАРИАНТ 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.Определить свободную длину винта из условия работы на продольный изгиб.
    Расчетная формула:?
     где hсв - свободная длина винта, мм ;
    E - модуль упругости для стали, н/мм2;
    J - осевой момент инерции поперечного сечения винта, мм4;
    ? - коэффициент, учитывающий способ закрепления концов винта;
    n - коэффициент запаса прочности ;
    F - приложенная осевая сила, н.
    Исходные данные для расчета приведены в табл.5.2. Таблица 5.2 Параметры расчета E J ? n F Числовые значения 2,15.105 3,9.104 2,0 4,0 104 Ход программы. Program zad5_2; Var e,j,m,n,f,h:real; Const p=3.14; Begin Write('Модуль упругости для стали, e='); Readln(e); Write('Осевой момент инерции поперечного сечения винта j='); Readln(j); Write('Коэффициент, учитывающий способ закрепления концов винта m='); Readln(m); Write('Коэффициент запаса прочности n='); Readln(n); Write('Приложенная осевая сила f='); Readln(f); h:=(p*p*e*j)/(m*m*n*f); Writeln('Свободная длина винта h=',h:10:5); end. Блок- схема. Решение. Модуль упругости для стали, e=2.15e05 Осевой момент инерции поперечного сечения винта j=3.9e04 Коэффициент, учитывающий способ закрепления концов винта m=2.0 Коэффициент запаса прочности n=4.0 Приложенная осевая сила f=1e04 Свободная длина винта h=516704.66250 Задание № 6
    Загрузить в оперативную память компьютера программу, разработанную в задании 5.1. На ее основе составить программу для определения наибольшего из двух значений Sсегм. Исходные данные для расчета Sсегм1 приведены в табл.5.1, Sсегм2 - в табл. 6.1. При составлении программы использовать оператор условного перехода. Записать программу на диск под новым именем. Таблица 6.1 Параметры расчета R ? Числовые значения 10,2 0,89 Ход программы. Program zadacha_6; Var r,a,s1,s2:real; Begin Write('r1='); Readln(r); Write('a1='); Readln(a); s1:=1/(2*r*r*(a-sin(a))); Writeln('s1=',s1:10:14); Write('r2='); Readln(r); Write('a2='); Readln(a); s2:=1/(2*r*r*(a-sin(a))); Writeln('s2=',s2:10:14); Readln; If s1>s2 then Writeln('s1>s2') Else Writeln('s2>s1') end. Блок схема. Решение. r1=220.0 a1=161.3 s1=0.00000006370 r2=10.2 a2=0.89 s2=0.04255661272 s2>s1 Задание № 7
    Загрузить в оперативную память компьютера программу, разработанную в задании 5.2. На ее основе составить программу с шагом ( цикл с известным числом повторений ), используя дополнительные исходные данные из таблицы 7.1. Предусмотреть вывод на печать всех полученных значений hсв.
    Программу составить в трех вариантах:
    а. ............