ВАРИАНТ
 58

Задание
N 5
 

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

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


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




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

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

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

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

Таблица 5.1 

Парметры расчета	R	a
Числовые значения	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 - модуль упругости для стали, н/мм²;

J - осевой момент инерции поперечного сечения винта, мм⁴;

m - коэффициент, учитывающий способ закрепления концов винта;

n - коэффициент запаса прочности ;

F - приложенная осевая сила, н.

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

Таблица 5.2 

Параметры расчета	E	J	m	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	a
Числовые значения	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_св.

Программу составить в трех вариантах:

а. Используя операторы 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;

 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);

 Write('Осевая сила, конечное значение f2=');

 Readln(f2);

 Write('Введите шаг k=');

 Readln(k);

  While f<f2 Do

   Begin

      h:=(p*p*e*j)/(m*m*n*f);

       Writeln('h=',h:10:5);

        f:=f+k;

      end;

   Readln;

   end.
Ход программы
Program zadacha_7b;

 uses crt;

 Var e,j,m,n,f,f2,h,k:real;

 Const p=3.14;

 Begin

 clrScr;

 Write('Модуль упругости для стали e=');

 Readln(e);

 Write('Осевой момент инерции поперечного сечения винта j=');

 Readln(j);

 Write('Коэф., учитывающий способ закрепления концов винта m=');

 Readln(m);

 Write('Коэф. запаса прочности n=');

 Readln(n);

 Write('Осевая сила, начальное значение f=');

 Readln(f);

 Write('Осевая сила, конечное значение f2=');

 Readln(f2);

 Write('Введите шаг k=');

 Readln(k);

  Repeat

 Begin

  f:=f+k;

  h:=(p*p*e*j)/(m*m*n*f);

   Writeln('h=',h:10:5);

   Readln;

    end;

     Until f<f2;

      Readln;

       end.



Program zadacha_7c;

   Var e,j,m,n,f,f2,h,k: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);

   Write('Осевая сила, конечное значение f2=');

   Readln(f2);

   Write('Введите шаг k=');

   Readln(k);

   If f<f2 then

     Begin

      f:=f+k;

    h:=(p*p*e*j)/(m*m*n*f);

    Writeln('h=',h:10:5);

     end;

     Readln;

     end.

















Решение.

Модуль упругости для стали e=2.15e05

Осевой моментинерции поперечного сечения винта j=3.9e04

Коэф., учитывающий способ закрепления концов винта m=2.0

Коэф. запаса прочности n=4.0

Осевая сила, начальное значение f=1e04

Осевая сила, конечное значение f2=1.5e04

Введите шаг k=0.05e04

h=516704.66250

h=492099.67857

h=469731.51136

h=449308.40217

h=430587.21875

h=413363.73000

h=397465.12500

h=382744.19444

h=369074.75893

h=356348.04310
















Задание № 8 


Загрузить в оперативную память компьютера программу, разработанную в задании 5.1. На ее основе составить программу с организацией цикла типа FOR для определения величины S_сегм. Дополнительные исходные данные приведены в табл. 8.1. Организовать вывод на печать в виде таблицы значений R и S_сегм. Записать программу на диск под новым именем.

Таблица 8.1 

№	R	a
1	15,7	0,5
2	10,4	1,1
3	12,8	0,76
4	8,2	0,4
5	9,3	1,2

Ход программы.
Program zadacha_8;

Var r,a,s :array [1..5] of real;

i:integer;

Begin

For i:=1 to 5 do

Begin

Write('введите радиус круга r[',i,']=');

Read(r[i]);

Write('введите длину дуги сегмента a[',i,']=');

Readln(a[i]);

s[i]:=1/(2*r[i]*r[i]*(a[i]-sin(a[i])));

end;

Writeln('---------------------------------------------------------');

Writeln(' №             r                a              s         ');

Writeln('---------------------------------------------------------');

For i:=1 to 5 do

Writeln(i, r[i]:17:1,a[i]:17:2,s[i]:17:14);

Readln;

end.



Решение.

введите радиус круга r[1]=15.7

введите длину дуги сегмента a[1]=0.5

введите радиус круга r[2]=10.4

введите длину дуги сегмента a[2]=1.1

введите радиус круга r[3]=12.8

введите длину дуги сегмента a[3]=0.76

введите радиус круга r[4]=8.2

введите длину дуги сегмента a[4]=0.4

введите радиус круга r[5]=9.3

введите длину дуги сегмента a[5]=1.2

---------------------------------------------------------

 №             r                a              s

---------------------------------------------------------

1             15.7            0.50    0.09859212439

2             10.4            1.10    0.02214053650

3             12.8            0.76    0.04293500082

4               8.2            0.40    0.70273015694

5               9.3            1.20    0.02157409847




Задание № 9 


Составить программу, содержащую цикл, для вычисления следующей суммы: 



Расчет выполнить по двум вариантам: 1. В качестве a_k принять значения a из таблицы 10.1; 2. В качестве a_k принять значения R из таблицы 10.1.



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

Program zadacha_9;

 Var c,a:real;

 z,n:integer;

Begin

  Write('Введите количество значений а   ');

  Readln(n);

   For z:=1 to n do

  Begin

  Write('a=');

  Readln(a);

  c:=3*a+c;

   end;

  c:=1+c;

  Writeln('С=',c:1:2);

  Readln;

end.

Решение 1.

Введите количество значений а   4

a=0.5

a=0.4

a=0.7

a=0.8

С=8.20

Решение 2.

Введите количество значений а   5

a=15.7

a=14.2

a=16.4

a=10.3

a=8.1

С=195.10

Задание № 10
 

Загрузить в оперативную память компьютера программу, разработанную в задании 5.1. На ее основе составить программу с организацией вложенного цикла типа FOR для определения всех возможных значений S_сегм при изменении параметров R и a. Значения параметров R и a приведены в таблице 10.1. Организовать вывод на печать в виде таблицы значений R, a и S_сегм. Записать программу на диск под новым именем.

Таблица 10.1 

Параметр	1	2	3	4	5
R	15,7	14,2	16,4	10,3	8,1
a	0,5	0,4	0,7	0,8	───

Ход программы.
Program zadacha_10;

Var r,a :array [1..5] of real;

s:array [1..5,1..5] of real;

i,j:integer;

Begin

For i:=1 to 5 do

Begin

Write('Введите r[',i,']=');

Read(r[i]);

end;

For i:=1 to 4 do

Begin

Write('Введите a[',i,']=');

Readln(a[i]);

end;

Writeln('r  a  s');

For i:=1 to 5 do

For j:=1 to 4 do

 Begin

s[i,j]:=1/(2*r[i]*r[i]*(a[j]-sin(a[j])));

end;

Writeln('---------------------------------------------------------');

Writeln('   №            r               a             s          ');

Writeln('---------------------------------------------------------');

For i:=1 to 5 do

For j:=1 to 4 do

Writeln(i:3,j:2,r[i]:15:1,a[j]:15:1,s[i,j]:16:8);

Writeln('---------------------------------------------------------') ;

Readln;

end.



Решение.



Введите r[1]=15.7

Введите r[2]=14.2

Введите r[3]=16.4

Введите r[4]=10.3

Введите r[5]=8.1

Введите a[1]=0.5

Введите a[2]=0.4

Введите a[3]=0.7

Введите a[4]=0.8

---------------------------------------------------------

   №            r               a             s

---------------------------------------------------------

  1 1           15.7            0.5      0.09859212

  1 2           15.7            0.4      0.19169774

  1 3           15.7            0.7      0.03636421

  1 4           15.7            0.8      0.02454482

  2 1           14.2            0.5      0.12052159

  2 2           14.2            0.4      0.23433632

  2 3           14.2            0.7      0.04445256

  2 4           14.2            0.8      0.03000423

  3 1           16.4            0.5      0.09035534

  3 2           16.4            0.4      0.17568254

  3 3           16.4            0.7      0.03332620

  3 4           16.4            0.8      0.02249425

  4 1           10.3            0.5      0.22906940

  4 2           10.3            0.4      0.44539142

  4 3           10.3            0.7      0.08448878

  4 4           10.3            0.8      0.05702755

  5 1            8.1             0.5      0.37040044

  5 2            8.1            0.4      0.72018863

  5 3            8.1            0.7      0.13661659

  5 4            8.1            0.8      0.09221236

---------------------------------------------------------


Задание № 11

Изменить программу, разработанную в задании № 10, использовав для ввода массивов процедуру.

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

Program zadacha_11;

Type massiv=array [1..5] of real;

Procedure q(var z:massiv; n:integer; x:char);

Var i:integer;

Begin

For i:=1 to n do

Begin

Write('Введите  ',x,'[',i,']=');

Readln(z[i]);

end;

end;

Var r,a :massiv;

s:array [1..5,1..5] of real;

i,j,n:integer;

Begin

n:=5;

q(r,n,'r');

n:=4;

q(a,n,'a');

Writeln('r  a  s');

For i:=1 to 5 do

For j:=1 to 4 do

 Begin

s[i,j]:=1/(2*r[i]*r[i]*(a[j]-sin(a[j])));

end;

Writeln('---------------------------------------------------------');

Writeln('  №              r              a              s         ');

Writeln('---------------------------------------------------------');

For i:=1 to 5 do

For j:=1 to 4 do

Writeln(i:3,j:2, r[i]:15:1,a[j]:15:1,s[i,j]:16:8);

Writeln('---------------------------------------------------------') ;

Readln;

end.
Решение.

Введите  r[1]=15.7

Введите  r[2]=14.2

Введите  r[3]=16.4

Введите  r[4]=10.3

Введите  r[5]=8.1

Введите  a[1]=0.5

Введите  a[2]=0.4

Введите  a[3]=0.7

Введите  a[4]=0.8

---------------------------------------------------------

  №              r              a             s

---------------------------------------------------------

  1 1           15.7            0.5      0.09859212

  1 2           15.7            0.4      0.19169774

  1 3           15.7            0.7      0.03636421

  1 4           15.7            0.8      0.02454482

  2 1           14.2            0.5      0.12052159

  2 2           14.2            0.4      0.23433632

  2 3           14.2            0.7      0.04445256

  2 4           14.2            0.8      0.03000423

  3 1           16.4            0.5      0.09035534

  3 2           16.4            0.4      0.17568254

  3 3           16.4            0.7      0.03332620

  3 4           16.4            0.8      0.02249425

  4 1           10.3            0.5      0.22906940

  4 2           10.3            0.4      0.44539142

  4 3           10.3            0.7      0.08448878

  4 4           10.3            0.8      0.05702755

  5 1            8.1             0.5      0.37040044

  5 2            8.1             0.4      0.72018863

  5 3            8.1             0.7      0.13661659

  5 4            8.1             0.8      0.09221236

---------------------------------------------------------




Задание
 №
 12

Составить программу для вычисления функции

S = e^x1-x2/e^y1-y2 ,

где х₁, х₂ —корни уравнения 3^.х² + 4^.х —2 = 0;

у₁, у₂ —корни уравнения 6^.у² —2^.у —5 = 0;

Результат округлить до двух десятичных знаков.


Корни уравнения вычисляются по формуле:




где а, b, с —коэффициенты уравнения а^.x² + b^.х + с = 0.

Для вычисления корней уравнения использовать:

а) процедуру;

б) модуль.

В случае получения комплексных корней (при b² - 4а^.с < 0) предусмотреть вывод на экран сообщения:

“Комплексные корни. Выполнение программы прекращено”.

Записать программу на диск.
Министерство образования Р.Ф.

Архангельский Государственный Технический Университет.
Курсовая работа по информатике.

Программирование на языке Turbo Pascal.
                                                                            Выполнила студентка 1 курса

                                                                            Факультета МТД


                                                                                    Усова Елизавета

                                                                                    Проверил: Старкова АВ
Архангельск 2004.