Вариант 11. Составить блок-схему и программу, написанную на языке Фортран для вычисления значения выражения по заданным параметрам

  • ID: 38901 
  • 5 страниц

Фрагмент работы:

Задание 1

Составить блок-схему и программу, написанную на языке Фортран для вычисления значения выражения по заданным параметрам.

[image]; [image]; [image]

Блок-схема

Изображаем блок схему вычислительного процесса

[image][image][image]

Рис.1 Блок схема вычислительного процесса Задания 1

Тест программы на языке FORTRAN

program Z1

real(8)::PI,x,y,a

open(1,file='result.dat')

PI=4.D0*datan(1.D0)

x=1.426D0

y=-1.220D0

a=2.D0*dcos(x-PI/6.D0)/(0.5D0+dsin(y)**2)

write(1,*)'a=',a

print *,a

15 FORMAT(F15.7)

End

Результаты работы программы

a= 0.896915588074709

Задание 2

Составить блок-схему и программу, написанную на языке Фортран для вычисления значения выражения по заданным параметрам, с использование условного оператора «если».

[image]; [image]; [image]

Блок-схема

Изображаем блок схему вычислительного процесса

[image][image][image][image][image][image][image]

Рис.2 Блок схема вычислительного процесса Задания 2

Тест программы на языке FORTRAN

program Z2

real(8)::x,a,y,dx

open(1,file='result.dat')

dx=0.5D0

x=-dx+0.00000001

a=0.24D0

100 continue

x=x+dx

y=(a*x*x+dlog(x))*dcos(x)

write(1,15)x,y

print *,x,y

if (x.ge.0.and.x.le.6.D0) goto 100

15 FORMAT(F15.7,F15.7)

end

Результаты работы программы

0.0000000 -18.4206808

0.5000000 -0.5556389

1.0000000 0.1296726

1.5000000 0.0668795

2.0000000 -0.6879520

2.5000000 -1.9357959

3.0000000 -3.2260017

3.5000000 -3.9263409

4.0000000 -3.4161339

4.5000000 -1.3415207

5.0000000 2.1585099

5.5000000 6.3530461

6.0000000 10.0162655

Задание 3

Оценить значения статистических характеристик результатов измерений размеров 50 деталей, обработанных на металлорежущем станке.