Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

инфа / yelf& / 17var / 2.5.3_17var

.txt
Скачиваний:
5
Добавлен:
11.06.2015
Размер:
873 б
Скачать
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
Соседние файлы в папке 17var