Реферат

Реферат Программа, которая упорядочивает элементы чётных строк матрицы по возрастанию, а нечётных по уб

Работа добавлена на сайт bukvasha.net: 2015-10-28

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 11.11.2024



2.24. Составить программу, которая упорядочивает элементы чётных строк матрицы по возрастанию, а нечётных – по убыванию.

17. Задан массив {Ai}: 2; 0,4; 3,14; -1,57; 11; 7,34; -2,6; 0; 5; -1. Вычислить массив {Yi}, каждый элемент которого вычисляется по формуле cos(A), и подсчитать количество элементов L из массива {Yi}, попадающих в интервал [0;1]. Вывести на печать L и массивы {Ai} и {Yi}.
Программа №2.24:
cls

print "Введём массив A(4,3):"

print " "

dim a(4,3)

for x=1 to 4

for y=1 to 3

print "A(";x;",";y;") = ";

input a(x,y)

next y

next x

dim b(4,3)

if a(1,1)>a(1,2) and a(1,1)>a(1,3) then b(1,1)=a(1,1) else if a(1,1)<a(1,2) and a(1,1)<a(1,3) then b(1,3)=a(1,1) else b(1,2)=a(1,1)

if a(1,2)>a(1,1) and a(1,2)>a(1,3) then b(1,1)=a(1,2) else if a(1,2)<a(1,1) and a(1,3)<a(1,3) then b(1,3)=a(1,2) else b(1,2)=a(1,2)

if a(1,3)>a(1,2) and a(1,3)>a(1,1) then b(1,1)=a(1,3) else if a(1,3)<a(1,2) and a(1,1)<a(1,3) then b(1,3)=a(1,3) else b(1,2)=a(1,3)

if a(3,1)>a(3,2) and a(3,1)>a(3,3) then b(3,1)=a(3,1) else if a(3,1)<a(3,2) and a(3,1)<a(3,3) then b(3,3)=a(3,1) else b(3,2)=a(3,1)

if a(3,2)>a(3,1) and a(3,2)>a(3,3) then b(3,1)=a(3,2) else if a(3,2)<a(3,1) and a(3,3)<a(3,3) then b(3,3)=a(3,2) else b(3,2)=a(3,2)

if a(3,3)>a(3,2) and a(3,3)>a(3,1) then b(3,1)=a(3,3) else if a(3,3)<a(3,2) and a(3,1)<a(3,3) then b(3,3)=a(3,3) else b(3,2)=a(3,3)

if a(2,1)>a(2,2) and a(2,1)>a(2,3) then b(2,3)=a(2,1) else if a(2,1)<a(2,2) and a(2,1)<a(2,3) then b(2,1)=a(2,1) else b(2,2)=a(2,1)

if a(2,2)>a(2,1) and a(2,2)>a(2,3) then b(2,3)=a(2,2) else if a(2,2)<a(2,1) and a(2,3)<a(2,3) then b(2,1)=a(2,2) else b(2,2)=a(2,2)

if a(2,3)>a(2,2) and a(2,3)>a(2,1) then b(2,3)=a(2,3) else if a(2,3)<a(2,2) and a(2,1)<a(2,3) then b(2,1)=a(2,3) else b(2,2)=a(2,3)

if a(4,1)>a(4,2) and a(4,1)>a(4,3) then b(4,3)=a(4,1) else if a(4,1)<a(4,2) and a(4,1)<a(4,3) then b(4,1)=a(4,1) else b(4,2)=a(4,1)

if a(4,2)>a(4,1) and a(4,2)>a(4,3) then b(4,3)=a(4,2) else if a(4,2)<a(4,1) and a(4,3)<a(4,3) then b(4,1)=a(4,2) else b(4,2)=a(4,2)

if a(4,3)>a(4,2) and a(4,3)>a(4,1) then b(4,3)=a(4,3) else if a(4,3)<a(4,2) and a(4,1)<a(4,3) then b(4,1)=a(4,3) else b(4,2)=a(4,3)

cls

print "Отсортированная по элементам матрица:"

print "   "

for x=1 to 4

for y=1 to 3

print b(x,y);

next y

print " "

next x




Программа №17
cls

L=0

dim y(10)

dim a(10)

a(1)=2

a(2)=0.4

a(3)=3.13

a(4)=-1.57

a(5)=11

a(6)=7.34

a(7)=-2.6

a(8)=0

a(9)=5

a(10)=-1

for x=1 to 10

y(x)=cos(a(x))

if y(x)>=0 and y(x)=<1 then L=L+1

next x

print "        Исходный массив:    !     Конечный массив:"

print " "

for x=1 to 10

print "       ";a(x);

locate (x+2),29

print "!     ";y(x)

next x

print "____________________________________________________"

print " "

print "L =";L


1. Реферат на тему Lifetime Parental Support Love For Life Essay
2. Биография Политический портрет В.В. Путина 3
3. Реферат на тему Argument PaperBest Guitarist Essay Research Paper William
4. Реферат на тему Of Mice And Men Book Review
5. Доклад Особенности нефтегазообразования в бассейнах восточного паратетиса
6. Курсовая Законы эффективного управления
7. Реферат Хроники Безвременья Заметки бывшего начальника разведки
8. Реферат Категория общения в психологической науке
9. Реферат Государственное регулирование
10. Курсовая Управление образованием