Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 22.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. Контрольная работа на тему Система страхования вкладов
2. Реферат Закони Хамурапі
3. Реферат на тему Islamic History And Beyond Essay Research Paper
4. Реферат Чрезвычайные ситуации экологического характера 2
5. Реферат Фунции управления
6. Реферат Мотивация работников в современных условиях
7. Курсовая на тему Нагревательные печи в кузнечных цехах
8. Реферат на тему Home Burial Essay Research Paper Often it
9. Реферат на тему Mozart Essay Research Paper Julien RouleauThe classical
10. Реферат на тему Становление правового государства в России история и современность