отчеты по лабораторным работам / лабораторная работа №1, 1 сем. / лаба 1 / var26

26

x=4.3 =1.23

; ; ;

Задание

Текст программы

program lab1

implicit none

real,dimension(1:3)::a, x, z1, z2, y1, y2, s, d, v, f, g

real pi

pi=2*asin(1.)

open(6, file='results.txt')

write(*,*) 'x=?'

read(*,*) x

s=x**4-x**3-x+1

d=x**3-5*x*x+7*x-3

v=abs(x-3)

y1=(s/d)*v

y2=x*x+x+1

write(6,*) 'x=', x

write(6,*) 'y1=', y1

write(6,*) 'y2=', y2

write(*,*) 'a=?'

read(*,*) a

s=sin(4*a)

d=cos(2*a)

f=1+cos(4*a)

g=1+cos(2*a)

z1=(s*d)/(f*g)

s=3.*pi/2.

z2=cotan(s-a)

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

write(6,*) 'z1=', z1

write(6,*) 'z2=', z2

end

Результаты

x= 4.300000 5.000000 6.000000

y1= 23.790000 31.000000 43.000000

y2= 23.790000 31.000000 43.000000

a= 1.230000 3.000000 4.000000

z1= 2.819816 -1.425465E-01 1.157821

z2= 2.819816 -1.425465E-01 1.157821

Санкт-Петербургский Государственный Университет

Информационных технологий,

Механики и оптики

Отчет

К лабораторной работе по информатике

Вариант № 26

Студент:

Преподаватель:

2004 г.