1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
| program first
real hx,hp,x1,x2,p1,p2
real nx,np,a,b !hp,hx-и*Ј. x1,x2,p1,p2-**з*«м*®Ґ Ё Є®*Ґз*®Ґ §**зҐ*ЁҐ
character*7 cc(0:40,0:40) !¬*ббЁў ¤«п ўлў®¤* १г«мв*в*
integer i,j,shagx,shagp,n !i,j-бзҐвзЁЄ жЁЄ«*. shagx,shagp-Є®«ў® и*Ј®ў
real x(40),p(40),c(40,40) !x,p-¬*ббЁўл ¤«п зЁбҐ« x Ё p
10 error=0
print *,'введите x1:' !ўў®¤ ¤***ле
read *,x1
print *,'введите x2:'
read *,x2
print *,'введите шаг Hx:'
read *,hx
print *,'введите p1:'
read *,p1
print *,'введите p2:'
read *,p2
print *,'введите шаг Hp:'
read *,hp
if ((x2-x1)*hx.le.0.0 .or. (p2-p1)*hp.le.0.0) then
print *,'ошибка*!'
error=1
goto 10
end if
nx = abs((x2-x1)/hx)+1 !а*ббзҐв Є®«ЁзҐбвў* и*Ј®ў
np = abs((p2-p1)/hp)+1
shagx=nint(nx)
shagp=nint(np)
x(1)=x1
p(1)=p1 !аЁб®ў**ЁҐ в*Ў«Ёжл
do i = 2,shagx
x(i) = x1 +(i-1)* hx
end do
do j = 2,shagp
p(j) = p1 +(j-1)* hp
end do
cc(0,0)= " X/P |"
do j=1,shagp
write (cc(0,j), 3) p(j)
cc(0,j)(7:7) = char(124)
end do
do i=1,shagx
write (cc(i,0), 3) x(i)
cc(i,0)(7:7) = char(124)
end do
do i=1,shagx !Їа®Ё§ў®¤Ё¬ а*ббзҐв §**зҐ*Ё©
do j=1,shagp
a=1/(log(2*abs(p(j)**3)+3*x(i)**2+1))
b=sin(1-exp((x(i)**2-abs(p(j))+1))**0.5)
if (log(2*abs(p(j)**3)+3*x(i)**2+1).eq.0) then !Їа®ўҐаЄ* ** Є®а४в*®бвм
cc(i,j)=' *'
cc(i,j)(7:7) = char(124)
elseif (sin(1-exp((x(i)**2-abs(p(j))+1))**0.5).eq.0) then !Їа®ўҐаЄ* ** Є®а४в*®бвм
cc(i,j)=' **'
cc(i,j)(7:7) = char(124)
elseif (((x(i)**2-abs(p(j))+1))**0.5.lt.0) then !Їа®ўҐаЄ* ** Є®а४в*®бвм
cc(i,j)=' **'
cc(i,j)(7:7) = char(124)
else !а*бзҐв §**зҐ*Ёп дг*ЄжЁЁ
c(i,j)=a/b
write (cc(i,j),2) c(i,j)
cc(i,j)(7:7) = char(124)
end if
end do
end do
do i = 0,shagx !ўлў®¤ ¬*ббЁў* ** нЄ**
write(*,*) (cc(i,j), j=0,shagp)
end do
write (*,*) "________________________________________"
write (*,*) "*-деление на ноль (в числителе)" !Џ®пб*Ґ*Ёп
write (*,*) "**-деление на ноль!!"
write (*,*) "***-под корнем отрицательное число!"
write (*,*) ""
write (*,*) "________________________________________"
read *,n
2 format (f10.7)
3 format (f5.2)
end program first |
(
