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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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>
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
_