Векторы (1184923)

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

1)Постановка задачи (ПЗ):

Если ни в одном из векторов X(15), Y(20) нет повторяющихся элементов, изменить индексацию того вектора, где номер минимального элемента меньше, на обратную.

Подпрограмма pp1 проверяет вещественный вектор на отсутствие/наличие повторяющихся элементов

Подпрограмма pp2 находит номер минимального элемента вещественного вектора

Подпрограмма pp3 инвертирует (переставляет наоборот) элементы вещественного вектора

2)Таблица величин головного модуля (ТВ):

Таблица величин pp1 :

Таблица величин pp2 :

Таблица величин pp3 :

3)Аномалии: нет

4) Алгоритм

Головная программа

Подпрограмма pp1

Подпрограмма pp1 проверяет вещественный вектор на отсутствие повторяющихся элементов

Подпрограмма pp2

Подпрограмма pp2 находит номер минимального элемента вещественного вектора

Подпрограмма pp3

Подпрограмма pp3 инвертирует (переставляет наоборот) элементы вещественного вектора

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

logical function pp1(A,k) !povtorenie

dimension A(k)

real A

integer i,j,k

logical p

povtor=.false.

i=1

do while (i<=(k-1).and.(.not.p))

j=i+1

do while (j<=k.and.(.not.p))

if(a(i)==a(j)) then

p=.true.

end if

j=j+1

end do

i=i+1

end do

pp1=p

end

integer function pp2(A,k) !minimum

dimension A(k)

real A,min

integer i,k,n

min=a(1)

n=1

do i=2,k

if(a(i)<min) then

min=a(i)

n=i

end if

end do

pp2=n

end

subroutine pp3(A,k) !index

dimension A(k)

real A,m

integer i,k

do i=1,k/2

m=A(i)

A(i)=A(k-i+1)

A(k-i+1)=m

end do

return

end

dimension X(15),Y(20)

real X,Y

integer i,nx,ny,pp2

logical pp1,povtorx,povtory

write(*,1)' vvedite vector X(15)'

1 format (/A22)

read(*,*)(X(i),i=1,15)

write(*,1)' vvedite vector Y(20)'

read(*,*)(Y(i),i=1,20)

write(*,3)' ISHODNIY VEKTOR X'

3 format((//A19))

do i=1,15

write (*,"(x,F5.1,$)")X(i)

enddo

write(*,3)' ISHODNIY VEKTOR Y'

do i=1,20

write (*,"(x,F5.1,$)")Y(i)

enddo

povtorx=pp1(X,15)

if (povtorx) then

write(*,2)' v vectore X imeyutsya povtoryayuschiesya elementy'

goto 10

else

povtory=pp1(Y,20)

end if

if (povtory) then

write(*,2)' v vectore Y imeyutsya povtoryayuschiesya elementy'

2 format(//A50/)

goto 10

else

Nx=pp2(X,15)

write(*,40)Nx

40 format((//' nomer min. elementa vectora Nx=',I2))

Ny=pp2(Y,20)

write(*,41)Ny

41 format((' nomer min. elementa vectora Ny=',I2/))

end if

if(Nx<Ny) then

call pp3(X,15)

write(*,4)' INVERTIROVANNIY VEKTOR X'

4 format(/A26/)

do i=1,15

write (*,"(x,F5.1,$)")X(i)

enddo

goto 10

else

if(Nx>Ny) then

call pp3(Y,20)

write(*,4)' INVERTIROVANNIY VEKTOR Y'

do i=1,20

write (*,"(x,F5.1,$)")Y(i)

enddo

goto 10

else

write(*,5)' nomera minimalnih elementov vektorov X i Y sovpadayut'

5 format(/A58/)

endif

endif

10 continue

end

6) Тесты:

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов лабораторной работы