Категория
Информатика
Тип
реферат
Страницы
1 стр.
Дата
31.05.2009
Формат файла
.doc — Microsoft Word
Архив
20018.zip — 4.55 kb
  • programma-kotoraja-uporjadochivaet-jelementy-chjotnyx-strok-matricy-po-vozrastaniju-a-nech_20018_1.doc — 25 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

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:
clsprint "Введём массив A(4,3):"
print " "
dim a(4,3)
for x=1 to 4for y=1 to 3print "A(";x;",";y;") = ";
input a(x,y)
next ynext xdim 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,3) then b(1,1)=a(1,2) else if a(1,2)a(1,1) then b(1,1)=a(1,3) else if a(1,3)a(3,3) then b(3,1)=a(3,1) else if a(3,1)a(3,3) then b(3,1)=a(3,2) else if a(3,2)a(3,1) then b(3,1)=a(3,3) else if a(3,3)a(2,3) then b(2,3)=a(2,1) else if a(2,1)a(2,3) then b(2,3)=a(2,2) else if a(2,2)a(2,1) then b(2,3)=a(2,3) else if a(2,3)a(4,3) then b(4,3)=a(4,1) else if a(4,1)a(4,3) then b(4,3)=a(4,2) else if a(4,2)a(4,1) then b(4,3)=a(4,3) else if a(4,3)



Ваше мнение



CAPTCHA