Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

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



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. Диплом на тему Национализм в России в конце XX начале XXI веков
2. Реферат Правовое положение участников договора аренды нежилого помещения
3. Курсовая Комплексная система управления качеством
4. Реферат Угода 2
5. Курсовая Особая роль малого бизнеса в экономике России
6. Реферат Amadeus - глобальная распределительная система туристических услуг
7. Реферат на тему Emily Dickinson Essay Research Paper 2
8. Реферат на тему Моделирование отраслевой структуры экономики региональный аспект
9. Реферат на тему The Socialist Revolutionaries and the labor movement the beginning of the twentieth century
10. Диплом на тему Бюджет Тарановского района