Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Program z1_v1






integer, parameter:: razm=14

real, parameter:: pi=3.1415926

real x(razm), y(razm), z(razm)

integer koly

DATA x/2., 4., 8., 10., 12., 14., 16., 18., 20., 22., 24., 26., 28., 30/

print*, 'Massiv X'

write (*, *)(x(i), i=1, razm)

do i=1, razm

y(i)=5*x(i)**3-2*x(i)+20

end do

print*, 'Massiv Y'

write(*, *)(y(i), i=1, razm)

do i=1, razm

if (y(i).GT.0.5) then

z(i)=ALOG(y(i))+ALOG10(y(i))

end if

end do

if (y(i).LT.-0.5) then

z(i)=y(i)**2+y(i)**3

end if

if (y(i).GE.0.5.AND.y(i).LE.-0.5) then

z(i)=3*COS(pi*y(i))

end if

print*, 'Massiv Z'

write(*, *)(z(i), i=1, razm)

koly=0

do i=1, razm

if (y(i).EQ.0) koly=koly+1

end do

write(*, *)'kol-vo nulevux elementov v Y =', koly

open (11, File='rez_y.dan')

write (11, *)'Massiv Y'

write(11, *)(y(i), i=1, razm)

close(11)

open (11, File='rez_z.dan')

write (11, *)'Massiv Z'

write(11, *)(z(i), i=1, razm)

write(11, *) 'kol-vo nulevux elementov v Y=', koly

close (11)

end

 

 

 

Задание№ 2 Задан массив Х размерности s× t, состоящий из вещественных элементов. Массив находится в файле " ish.dan". Вычислить значение Z. Результаты вычисления A, B, C, Z. отобразить на экране и записать в файл" rez.dan".

s× t= 3× 6. Z=A+B/(10+C) где A-максимальный элемент. B-количество элементов, меньших N, с нечетными номерами столбцов. C-среднее арифметическое положительных элементов.


Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.006 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал