Реферат: Курсовая
s2=0.04255661272
s2>s1
Задание № 7
Загрузить в оперативную память компьютера программу, разработанную в задании 5.2. На ее основе составить программу с шагом ( цикл с известным числом повторений ), используя дополнительные исходные данные из таблицы 7.1. Предусмотреть вывод на печать всех полученных значений hсв .
Программу составить в трех вариантах:
а. Используя операторы WHILE ... DO;
б. Используя операторы REPEAT ... UNTIL;
в. Используя оператор IF.
Записать все варианты программы на диск.
Таблица 7.1
|
Осевая сила, F |
Начальное значение |
Конечное значение |
Шаг изменения |
| Числовые значения | 104 | 1,5. 104 | 0,05. 104 |
Ход программы.
Program zadacha_7a;
Var e,j,m,n,f,f2,h,k:real;
Constp=3.14;
Begin
Write('Модуль упругости для стали e=');
Readln(e);
Write('Осевой моментинерции поперечного сечения винта j=');
Readln(j);
Write('Коэф., учитывающий способ закрепления концов винта m=');
Readln(m);
Write('Коэф. запаса прочности n=');