Реферат: Программа, которая упорядочивает элементы чётных строк матрицы по возрастанию, а нечётных – по убыванию
<span Arial",«sans-serif»">2.24.Составить программу, которая упорядочивает элементы чётных строк матрицы повозрастанию, а нечётных – по убыванию.
<span Arial",«sans-serif»">17.Задан массив {
<span Arial",«sans-serif»; mso-ansi-language:EN-US">Ai<span Arial",«sans-serif»">}: 2; 0,4; 3,14; -1,57; 11; 7,34; -2,6; 0; 5; -1.Вычислить массив {<span Arial",«sans-serif»;mso-ansi-language:EN-US">Yi<span Arial",«sans-serif»">}, каждый элемент которого вычисляетсяпо формуле <span Arial",«sans-serif»;mso-ansi-language:EN-US">cos<span Arial",«sans-serif»">(<span Arial",«sans-serif»;mso-ansi-language: EN-US">A<span Arial",«sans-serif»">),и подсчитать количество элементов <span Arial",«sans-serif»;mso-ansi-language:EN-US">L<span Arial",«sans-serif»"> из массива {<span Arial",«sans-serif»;mso-ansi-language: EN-US">Yi<span Arial",«sans-serif»">},попадающих в интервал [0;1]. Вывести на печать <span Arial",«sans-serif»;mso-ansi-language: EN-US">L <span Arial",«sans-serif»">имассивы <span Arial",«sans-serif»; mso-ansi-language:EN-US">{Ai} <span Arial",«sans-serif»">и <span Arial",«sans-serif»;mso-ansi-language:EN-US">{Yi}.<span Arial",«sans-serif»">
<span Arial",«sans-serif»">Программа №2.24:
<span Arial",«sans-serif»">
<span Arial",«sans-serif»;mso-ansi-language: EN-US">cls
<span Arial",«sans-serif»;mso-ansi-language:EN-US"><span Arial",«sans-serif»;mso-ansi-language: EN-US">print "Введём массивA(4,3):"
<span Arial",«sans-serif»;mso-ansi-language: EN-US">print " "
<span Arial",«sans-serif»;mso-ansi-language: EN-US">dim a(4,3)
<span Arial",«sans-serif»;mso-ansi-language: EN-US">for x=1 to 4
<span Arial",«sans-serif»;mso-ansi-language: EN-US">for y=1 to 3
<span Arial",«sans-serif»;mso-ansi-language: EN-US">print «A(»;x;",";y;")= ";
<span Arial",«sans-serif»;mso-ansi-language: EN-US">input a(x,y)
<span Arial",«sans-serif»;mso-ansi-language: EN-US">next y
<span Arial",«sans-serif»;mso-ansi-language: EN-US">next x
<span Arial",«sans-serif»;mso-ansi-language: EN-US">dim b(4,3)
<span Arial",«sans-serif»;mso-ansi-language: EN-US">if a(1,1)>a(1,2) and a(1,1)>a(1,3) then b(1,1)=a(1,1) else ifa(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)
<span Arial",«sans-serif»;mso-ansi-language: EN-US">if a(1,2)>a(1,1) and a(1,2)>a(1,3) then b(1,1)=a(1,2) else ifa(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)
<span Arial",«sans-serif»;mso-ansi-language: EN-US">if a(1,3)>a(1,2) and a(1,3)>a(1,1) then b(1,1)=a(1,3) else ifa(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)
<span Arial",«sans-serif»;mso-ansi-language: EN-US">if a(3,1)>a(3,2) and a(3,1)>a(3,3) then b(3,1)=a(3,1) else ifa(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)
<span Arial",«sans-serif»;mso-ansi-language: EN-US">if a(3,2)>a(3,1) and a(3,2)>a(3,3) then b(3,1)=a(3,2) else ifa(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)
<span Arial",«sans-serif»;mso-ansi-language: EN-US">if a(3,3)>a(3,2) and a(3,3)>a(3,1) then b(3,1)=a(3,3) else ifa(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)
<span Arial",«sans-serif»;mso-ansi-language: EN-US">if a(2,1)>a(2,2) and a(2,1)>a(2,3) then b(2,3)=a(2,1) else ifa(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)
<span Arial",«sans-serif»;mso-ansi-language: EN-US">if a(2,2)>a(2,1) and a(2,2)>a(2,3) then b(2,3)=a(2,2) else ifa(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)
<span Arial",«sans-serif»;mso-ansi-language: EN-US">if a(2,3)>a(2,2) and a(2,3)>a(2,1) then b(2,3)=a(2,3) else ifa(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)
<span Arial",«sans-serif»;mso-ansi-language: EN-US">if a(4,1)>a(4,2) and a(4,1)>a(4,3) then b(4,3)=a(4,1) else ifa(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)
<span Arial",«sans-serif»;mso-ansi-language: EN-US">if a(4,2)>a(4,1) and a(4,2)>a(4,3) then b(4,3)=a(4,2) else ifa(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)
<span Arial",«sans-serif»;mso-ansi-language: EN-US">if a(4,3)>a(4,2) and a(4,3)>a(4,1) then b(4,3)=a(4,3) else ifa(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)
<span Arial",«sans-serif»; mso-ansi-language:EN-US">cls
<span Arial",«sans-serif»"><span Arial",«sans-serif»;mso-ansi-language: EN-US">print
<span Arial",«sans-serif»">«Отсортированная по элементам матрица:»<span Arial",«sans-serif»;mso-ansi-language: EN-US">print " "
<span Arial",«sans-serif»;mso-ansi-language: EN-US">for x=1 to 4
<span Arial",«sans-serif»;mso-ansi-language: EN-US">for y=1 to 3
<span Arial",«sans-serif»;mso-ansi-language: EN-US">print b(x,y);
<span Arial",«sans-serif»;mso-ansi-language: EN-US">next y
<span Arial",«sans-serif»;mso-ansi-language: EN-US">print " "
<span Arial",«sans-serif»;mso-ansi-language: EN-US">next x
<span Arial",«sans-serif»">
<span Arial",«sans-serif»">
<span Arial",«sans-serif»">
<span Arial",«sans-serif»">Программа №17
<span Arial",«sans-serif»">
<span Arial",«sans-serif»;mso-ansi-language: EN-US">cls
<span Arial",«sans-serif»;mso-ansi-language:EN-US"><span Arial",«sans-serif»;mso-ansi-language: EN-US">L=0
<span Arial",«sans-serif»;mso-ansi-language: EN-US">dim y(10)
<span Arial",«sans-serif»;mso-ansi-language: EN-US">dim a(10)
<span Arial",«sans-serif»;mso-ansi-language: EN-US">a(1)=2
<span Arial",«sans-serif»;mso-ansi-language: EN-US">a(2)=0.4
<span Arial",«sans-serif»;mso-ansi-language: EN-US">a(3)=3.13
<span Arial",«sans-serif»;mso-ansi-language: EN-US">a(4)=-1.57
<span Arial",«sans-serif»;mso-ansi-language: EN-US">a(5)=11
<span Arial",«sans-serif»;mso-ansi-language: EN-US">a(6)=7.34
<span Arial",«sans-serif»;mso-ansi-language: EN-US">a(7)=-2.6
<span Arial",«sans-serif»;mso-ansi-language: EN-US">a(8)=0
<span Arial",«sans-serif»;mso-ansi-language: EN-US">a(9)=5
<span Arial",«sans-serif»;mso-ansi-language: EN-US">a(10)=-1
<span Arial",«sans-serif»;mso-ansi-language: EN-US">for x=1 to 10
<span Arial",«sans-serif»;mso-ansi-language: EN-US">y(x)=cos(a(x))
<span Arial",«sans-serif»;mso-ansi-language: EN-US">if y(x)>=0 and y(x)=<1 then L=L+1
<span Arial",«sans-serif»">next
<span Arial",«sans-serif»"> x<span Arial",«sans-serif»">print
<span Arial",«sans-serif»"> " Исходный массив: ! Конечный<span Arial",«sans-serif»; mso-ansi-language:EN-US"> <span Arial",«sans-serif»">массив<span Arial",«sans-serif»;mso-ansi-language:EN-US">:"<span Arial",«sans-serif»;mso-ansi-language: EN-US">print " "
<span Arial",«sans-serif»;mso-ansi-language: EN-US">for x=1 to 10
<span Arial",«sans-serif»;mso-ansi-language: EN-US">print " ";a(x);
<span Arial",«sans-serif»;mso-ansi-language: EN-US">locate (x+2),29
<span Arial",«sans-serif»;mso-ansi-language: EN-US">print "! ";y(x)
<span Arial",«sans-serif»;mso-ansi-language: EN-US">next x
<span Arial",«sans-serif»;mso-ansi-language: EN-US">print "____________________________________________________"
<span Arial",«sans-serif»;mso-ansi-language: EN-US">print " "
<span Arial",«sans-serif»;mso-ansi-language: EN-US">print «L =»;L
<span Arial",«sans-serif»">
<span Arial",«sans-serif»">