|
|
Возраст: 34 C нами с 19.03.2006 Репутация: 121.2
|
|
Ребят а никто не поможет блок-схему составить на следующий текст программы???
program i1p
real:: sm
dimension a(3,4), b(3,4)
write(6,'(A25)')"Vvedite matricy A:"
read(5,*) ((a(i,j),j=1,4),i=1,3)
write(*,'(A25)')"Vi vveli matricy:"
write(6,*) ((a(i,j),j=1,4),i=1,3)
read(*,*)
sm=0.0
do 14 j=1,4
do 14 i=1,3
sm=sm+(a(i,j))
14 continue
do 22 j=1,4
do 22 i=1,3
if(a(i,j)>0) b(i,j)=sm*a(i,j)
if(a(i,j)<0) b(i,j)=a(i,j)
22 continue
write(*,'(A25)')"New matrix:"
write(6,*) ((b(i,j),j=1,4),i=1,3)
read(*,*)
end
|
|
|
|
|
|
|
|
Возраст: 34 C нами с 19.03.2006 Репутация: 121.2
|
|
Может кто-нибудь подскажет как в FPS 4.0 сделать так чтобы русский язык отображался корректно?
|
|
|
|
|
|
|
|
Возраст: 34 C нами с 19.03.2006 Репутация: 121.2
|
|
Вообщем ещё одна проблемка возникла, хоть она вплотную и не касается данного языка, но всё же. Значит задание заключается в следующем: запрограммировать метод Гаусса(метод исключения) для систем 3-линейных уравнений(N=3)!Вообщем с этим я справился, но как мне кажется не совсем качественно, потому что при отладке программы я столкнулся с такими ошибками округления вообщем подскажите могут ли быть такие большие ошибки округления, при том, что я использую целочисленные значения, мне кажется,что нет, а если могут,то скажите как их свести к минимуму?Выложу-ка я ещё текст программы, а то может накосячил где, вот оттуда и ошибки могут взяться!!!
Вот текст:
program gauss
integer:: d,e,u
integer,parameter::n=3
dimension a(n,n), b(n), x(n)
write(*,*)'Vvedite matricy:'
read(*,*) ((a(d,u),u=1,n),d=1,n)
write(*,*)"Vvedite stolbec svobodnix clenov:"
read(*,*) (b(e),e=1,n)
do k=1,n-1
do i=k+1,n
if(a(k,k).NE.0.0) then
a(i,k+1:n)=a(i,k+1:n)-a(k,k+1:n)*(a(i,1)/a(1,1))
b(i)=b(i)-b(k)*(a(i,1)/a(1,1))
else
write(*,*)"!!!Proverte uslovie!!!"
read(*,*)
endif
enddo
enddo
x(n)=b(n)/a(n,n)
do k=n-1,1,-1
s=sum(a(k,k+1:n)*x(k+1:n))
x(k)=(b(k)-s)/a(k,k)
enddo
write(*,*) x
read(*,*)
end
|
|
|
|
|
|
|
|
Возраст: 34 C нами с 28.03.2005 Репутация: 102.3
|
|
никто не хочет взяца за написание курсача за деньги?
|
|
|
|
|
|
|
|
Возраст: 34 C нами с 19.03.2006 Репутация: 121.2
|
|
McFLY, чё за тема-то?
|
|
|
|
|
|
|
|
|