это быстро и бесплатно
Оформите заказ сейчас и получите скидку 100 руб.!
Ознакомительный фрагмент работы:
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
Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников
Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.
Цены ниже, чем в агентствах и у конкурентов
Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит
Бесплатные доработки и консультации
Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки
Гарантируем возврат
Если работа вас не устроит – мы вернем 100% суммы заказа
Техподдержка 7 дней в неделю
Наши менеджеры всегда на связи и оперативно решат любую проблему
Строгий отбор экспертов
К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»
Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован
Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн
Курсовая работа по предмету Управление персоналом. тема :
Курсовая, Управление персоналом
Срок сдачи к 14 июня
есть готовая работа по прошлому году и нужно перерешать по примеру с новыми данными!
Курсовая, Котельные установки
Срок сдачи к 20 мая
Техническое обслуживание кабельных линий моя тема ее не...
Отчет по практике, Электрическая часть станций и подстанций
Срок сдачи к 14 мая
Способы и методы выявления осужденных, подверженных идеологии терроризма
Статья, Уголовное право
Срок сдачи к 25 мая
Написать 1 главу. Тема: Прокурорский надзор за соблюдением трудовых прав граждан
ВКР, Трудовое право
Срок сдачи к 21 мая
Решить до 19:00 мск
Решение задач, Особенности судопроизводства по гражданским делам
Срок сдачи к 14 мая
Необходимо выполнить курсовую работу, регион: Алтайский край
Курсовая, Системы принятия решений в государственном и муниципальном управлении
Срок сдачи к 21 мая
Нормативный акт как источник права. Система нормативных актов в Российской Федерации.
Курсовая, Теория государства и права
Срок сдачи к 1 июня
Тема: Анализ влияния туристического потенциала территории на...
Курсовая, Макроэкономика
Срок сдачи к 14 мая
Написать реферат по теме номер 13 "Что такое метафизика, и как она возможна?
Реферат, Философия
Срок сдачи к 17 мая
Методические указания по выполнению контрольных работ
Контрольная, Обогащение полезных ископаемых
Срок сдачи к 22 янв.
Анатомо физиологические особенности формирования умений и навыков в...
Курсовая, Анатомия и физиология человека
Срок сдачи к 21 мая
Заполните форму и узнайте цену на индивидуальную работу!