Добавил:
zord
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
dimension a(5,5),c(5),x(5)
real a,c,x
integer i,j,fl
write(*,*)'Vvedite N'
read(*,*)n
write(*,*)'Vvedite matrix A'
read(*,*)((a(i,j),j=1,n),i=1,n)
write(*,*)'Vvedite vektor C'
read(*,*)(c(i),i=1,n)
write(*,*)
write(*,*)'Isxodnaja matrix A'
write(*,1)((a(i,j),j=1,n),i=1,n)
1 format((10x,3(f4.1,2x)))
write(*,*)
write(*,*)'Isxodnij vektor C'
write(*,2)(c(i),i=1,n)
2 format((10x,f4.1,2x))
do i=1,n
x(i)=a(i,1)
do j=1,n
if (a(i,j)<x(i)) then
x(i)=a(i,j)
end if
end do
end do
fl=1
i=1
do while ((fl.eq.1).and.(i<=n))
if (c(i)<a(i,i)) then
fl=0
end if
i=i+1
end do
if (fl.eq.1) then
do i=1,n
c(i)=x(i)
end do
write(*,*)
write(*,*)'Itogovij vektor C'
write(*,3)(c(i),i=1,n)
3 format((10x,f4.1,2x))
else
write(*,*)
write(*,*)'Uslovie C(i)>A(i,i) vipolneno'
end if
read(*,*)
end
real a,c,x
integer i,j,fl
write(*,*)'Vvedite N'
read(*,*)n
write(*,*)'Vvedite matrix A'
read(*,*)((a(i,j),j=1,n),i=1,n)
write(*,*)'Vvedite vektor C'
read(*,*)(c(i),i=1,n)
write(*,*)
write(*,*)'Isxodnaja matrix A'
write(*,1)((a(i,j),j=1,n),i=1,n)
1 format((10x,3(f4.1,2x)))
write(*,*)
write(*,*)'Isxodnij vektor C'
write(*,2)(c(i),i=1,n)
2 format((10x,f4.1,2x))
do i=1,n
x(i)=a(i,1)
do j=1,n
if (a(i,j)<x(i)) then
x(i)=a(i,j)
end if
end do
end do
fl=1
i=1
do while ((fl.eq.1).and.(i<=n))
if (c(i)<a(i,i)) then
fl=0
end if
i=i+1
end do
if (fl.eq.1) then
do i=1,n
c(i)=x(i)
end do
write(*,*)
write(*,*)'Itogovij vektor C'
write(*,3)(c(i),i=1,n)
3 format((10x,f4.1,2x))
else
write(*,*)
write(*,*)'Uslovie C(i)>A(i,i) vipolneno'
end if
read(*,*)
end
Соседние файлы в папке 17var