Реферат

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 9.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. Реферат на тему Cults Essay Research Paper I Brief Introduction
2. Практическая_работа на тему ЭВМ с использованием математического пакета MathCad в среде Windows 98 для решения дифференциального
3. Контрольная_работа на тему Пособие на период отпуска по уходу за ребенком до достижения им возраста 15 лет
4. Курсовая Основные формы организации бизнеса
5. Курсовая на тему Концепция психоанализа
6. Реферат на тему Chlorofluorocarbons CFCs Essay Research Paper CFCs are
7. Реферат на тему Asthma Essay Research Paper AsthmaAsthma is very
8. Реферат на тему Ethnographic Summary Of Japan Essay Research Paper
9. Контрольная работа Контрольная работа по Управлению персоналом 5
10. Реферат на тему Sunrise On The Veldt Order Essay Research