Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Dim n As Byte

Одномерные массивы

Дан одномерный массив А(100). Найти количество элементов

этого массива, больших среднего арифметического всех его элементов.

Выполнение в TP:

 

Program massiv;

Var A:array[1..100] of real;

n, i, kol: integer; S:real;

Begin

S:=0;

Kol:=0;

Write (“ Введи n=”);

Readln (n);

For i:=1 to n do

Begin

Write (“ Введи A[“,i,”]=”);

Readln (A[ i ]);

S:=S+A[ i ];

End;

S:=S/n;

For i:=1 to n do

If A[ i ]>S then kol:=kol+1;

Writeln (“ Ответ: ”, kol);

End.

в VBA:

Sub massiv ()

Dim A() As Single

Dim n As Byte

Dim i As Byte

Dim kol As Integer

Dim s As Single

n = Inputbox(“Введи n:”)

ReDim A(n)

CaLL Vvod (A(), n) ‘ Вызов процедуры для ввода массива

s = 0

kol = 0

For i = 1 To n

s = s + A(i)

Next i

s = s / n

For i = 1 To n

If A(i) > s Then kol = kol + 1

Next

MsgBox kol, 0, "Ответ:"

End Sub

 

Sub Vvod (Mas () as Single, k as Byte) ‘ Процедура для ввода

Dim x1 as Single

For i = 1 To n

x1= InputBox("Введи A[" & i & "]:", "Ввод массива:")

Mas (I)=x1

Next i

End SuB

В среде Мicrosoft Excel: 1 способ:


 

2 способ: использовать функцию СЧЕТЕСЛИ() самостоятельно.

 

10. Варианты заданий по теме “Одномерные массивы”

2. Дано натуральное число n, действительные числа a1…an. Вычислить: a1 , -a1a2 , a1a2a3 , …, (-1)n+1a1a2 … an.

3. Даны натуральное число n, действительные числа A1,…,An. Вычис­лить обратную величину произведения тех членов Ai, последователь­ности A1,…,An, для которых выполнено условие: i< Ai<i+l.

4. Даны натуральное число n, действительные числа X1,…,Xn. В последо­вательности X1,…,Xn все члены, меньшие двух, заменить нулями. Кроме того, получить сумму членов, принадлежащих отрезку [3,7],а также число таких членов.

5. Даны натуральное число n, действительные числа A1,…,An. В последо­вательности A1,…,An все неотрицательные члены, не принадлежащие отрезку [1,2], заменить на 1.Кроме того получить число отрицательных членов и число членов, принадлежащих отрезку [1,2].

6. Из массива А(10) выбрать отрицательные числа и записать их подряд в массив B(N). Значения массивов вывести на экран.

7. Даны действительные числа a1,a2,…,a123. Известно, что a1>0 и что сре­ди a2, a3,…, a123 есть хотя бы одно отрицательное число. Пусть a1,…, an - чле­ны данной последовательности, предшествующие первому отрица­тельному члену (n заранее неизвестно). Получить: a1+ a2+…+ an.

8. Написать программу, которая позволяет получить элементы массива А(10) в обратном порядке.

9. Даны натуральное число n, действительные числа A1,…,An. В последо­вательности A1,…,An все отрицательные члены увеличить на 0.5, а все неотрицательные заменить на 0.1.

10. Даны действительные числа a1,a2,…,a123. Известно, что a1>0 и что сре­ди a2,a3,…,a123 есть хотя бы одно отрицательное число. Пусть a1,…,an - члены данной последовательности, предшествующие первому отрица­тельному члену (n заранее неизвестно). Получить: a1, a1a2, a1a2a3,…, a1a2…an.

11. Дано натуральное число n. Получить последовательность B1,…,Bn, где при i = 1,2,…,n значение Bi равно: i!.

12. Из массива А(10) выбрать нулевые элементы. Подсчитать их число и напечатать их порядковые номера.

13. Дан массив А(10). Найти элементы, абсолютная величина которых больше 5.

14. Даны a1,a2,…,a10. Определить количество элементов, имеющих чёт­ные порядковые номера и являющихся нечётными числами.

15. Даны действительные числа a1,a2,…,a123. Известно, что a1>0 и что сре­ди a2,a3,…,a123 есть хотя бы одно отрицательное число. Пусть a1,…,an - чле­ны данной последовательности, предшествующие первому отрица­тельному члену (n заранее неизвестно). Получить: среднее арифме­тическое a1,…,an.

16. Дана последовательность чисел a1,a2,…,a100. Определить количество элементов больших 7 и имеющих четные номера.

17. Пусть x0=а; xk=qxk-1+b (k=l,2,…). Даны неотрицательное целое n, дей­ствительные а, b, с, d, q (c<d). Принадлежит ли xn интервалу (c,d)?

18. Даны натуральное число N, целые числа A1,…, AN. Заменить все боль­шие семи члены последовательности A1,…, AN числом 7. Вычислить количество таких членов.

19. Даны натуральное число n, целые числа a, x1,…,xn. Если в последова­тельности x1,…,xn есть хотя бы один член, равный а, то получить сумму всех членов, следующих за первым таким членом, в противном случае ответом должно быть число -10.

20. Рассматривается последовательность a1,…,x1000. Требуется опреде­лить, сколько членов последовательности с номерами 1,2,4,8,16,… имеют значение, меньшее, чем 0.25. При этом считать, что:

a) ak = sin2(3k + 5) - cos (k2 - 15), k = 1,2,…,1000;

b) a1,…,a1000 - заданные действительные числа;

c) a1 = 0.01; ak = sin (k + ak-1), k = 2,…,1000.

21. B массиве А(10) все положительные элементы заменить на 0 и найти сумму отрицательных элементов.

22. Вычислить квадратный корень суммы квадратов элементов действи­тельного массива В(45).

23. Вычислить отношение квадрата суммы элементов массива С(40) к сумме квадратов его элементов.

24. Дан вещественный массив А(100). Заполнить вещественный массив С(100), i -й элемент которого равен сумме первых i элементов массива А.

25. Даны числа A1,A2,…,An. Найти сумму всех четных чисел.

26. Даны целые числа a1,…,a45. Получить число отрицательных членов последовательности a1,…,a35 и число нулевых членов всей последовательности a1,…,a45.

27. Дана последовательность чисел a1,a2,…,a100. Найти сумму элементов, удовлетворяющих условию | ai | < i2.

28. Дано натуральное число n, действительные числа a1…an. Вычислить: | a1 |, | a1 + a1 |,…,| a1 + a2 +…+an |.

29. Дан целочисленный массив А(100). Заполните вещественный массив В(100), i -й элемент которой равен среднему арифметическому первых i - элементов массива А:

В[ i ]=(А[ 1 ]+…+ А[ i ])/i.

30. Дано натуральное число n, действительные числа a1… an. Вычислить: a1+l!, a2+2!,…, an+n!.

31. Дана последовательность чисел a1,a2,…,a100.0пределить количество элементов с четными номерами.

32. Дано натуральное число n. Получить последовательность B1,…,Bn, где при i = 1,2,…,n значение Bi равно i.

33. Даны натуральное число n, действительные числа a1,…,an. Найти длину наименьшего отрезка числовой оси, содержащего числа a1,…,an.

34. Даны действительные числа х, y1,…,y12. Выяснить, во-первых, верно ли, что y1 х y12, и, во-вторых, верно ли, что t1 х t2 , где t1 - наи­меньшее, a t2 - наибольшее среди y1,…,y12. (Какие комбинации от­ветов на первый и второй вопросы возможны?).

35. Даны натуральное число n, действительные числа a, x1,…,xn (x1 x2 xn). Получить последовательность y1,…,yn+1 , членами которой являются члены последовательности x1,…,xn и значение a, такую, что y1 y2 yn+1.

36. Дано натуральное число n. Найти знакочередующуюся сумму цифр числа n (пусть запись n в десятичной системе есть . Найти:

37. Дано натуральное число n, действительные числа a1… an. Вычислить: -a1, a2,-a3,…,(-1)nan.

38. Дано натуральное число n. Получить последовательность B1,…, B1 , где при i = 1,2,…,n значение Bi равно: i2.

39. Даны действительные числа a1,…, a70. Получить (вывести) последовательность a2,a3,…,a70,a1.

40. Даны натуральное число n, действительные числа a, b (a не равно b) Получить r0, r1,…, rn, где ri = а + i h, h=(b-a)/n.

41. Дано натуральное число n, действительные числа a1…an. Вычислить: a1+1!,a+2!,…, an+n!.

42. Даны действительные числа a1,a2…a50. Найти максимальное из них.

43. Даны натуральное число n, действительные числа A1,…,An. В последо­вательности A1,…,An все отрицательные члены увеличить на 0.5, а все неотрицательные заменить на 0.1.

44. Даны натуральное число n, целые числа A1,…,An. Заменить все боль­шие семи члены последовательности A1,…,An числом 7. Вычислить количество таких членов.

45. Написать программу, которая позволяет получить элементы таблицы А(10) в обратном порядке.

46. Дана последовательность чисел a1,a2,…,a100. Найти количество эле­ментов, модуль которых больше 7.

47. Дано натуральное число n, действительные числа a1,…,an. По­лучить числа b1,…,bn, которые связаны с a1,…,an следующим образом: b1= a1, bn=an, bi=(ai+1–ai)/3, i=2,…,n-1.

48. Дано натуральное число n, действительные числа a1,…,an (n >=6). По­лучить: а) a6,a7,…,an; б) a6,a7,…,an,a1; в) a6,a7,…,an,a5.

49. Даны целые числа A1,…,A50. Получить сумму тех чисел данной после­довательности, которые: a) кратны 5; b) нечётны и отрицательны; c) удовлетворяют условию |Ai| <i2.

50. Даны натуральное число n, целые числа A1…An. Найти количество и сумму тех членов данной последовательности, которые делятся на 5 и не делятся на 7.

51. Даны натуральные числа n,p, целые числа A1,…,An. Получить произ­ведение членов последовательности A1,…,An, кратных p.

52. Даны целые числа p,q, A1…A67 (p>q 0). В последовательности A1…A67 заменить нулями члены, модуль которых при делении на p даёт в остатке q.

53. Даны натуральное число n, действительные числа A1,…,An. Получить удвоенную сумму всех положительных членов последовательности A1,…,An.

54. Дан целочисленный массив А(99). Проверьте, является ли он пере­вертышем, т.е. верно ли, что A |1| = A |99|, A |2| = A |98|, A |3| = A |97|,… Составить алгоритм, блок-схему, программу.

55. Найти количество положительных и количество отрицательных эле­ментов вещественного массива А (100).

56. Дан вещественный массив А(100). Вычислить:

57. Дан вещественный массив А(100). Вычислить:

58. Вычислить массив X={xi}; ; n ≤ 20 по формуле

 

, если i ≤ 9

 

, если i > =9.

Вычисленный массив вывести на печать. Вычислить среднее арифметическое всех значений X.

59. Задан массив X={xi}; ; n ≤ 20. Получить новый массив Y={Yi} по правилу:

В массиве найти максимальный и минимальный элементы.

60. Задан массив X={xi}; ; n ≤ 20, где все числа целые и не равны нулю. В массиве заменить нулями все отрицательные компоненты, кроме максимального и минимального числа, а все положительные компоненты, кроме максимального и минимального числа, заменить единицей.

Вычисленный массив вывести на печать.

61. Вычислить компоненты массива A по формуле:

; ; n ≤ 20.

Вычисленный массив вывести на печать. Преобразовать массив по правилу – все положительные компоненты увеличить на 2,4, а отрицательные заменить на их квадратные корни.

62. Вычислить массив X={xi}; ; n ≤ 20 по формуле:

, где элементы массива Y={yi}; ; n ≤ 20 задаваемого с клавиатуры.

Вычисленный массив вывести на печать. Найти наименьший элемент массива Y={yi}

63. Вычислить массив X={xi}; ; n ≤ 20 по формуле:

, если

, если

Вычисленный массив вывести на печать. Вычислить минимальный элемент и возвести его в квадрат.

64. Вычислить массив X={xi}; ; n ≤ 20 по формуле:

, если i ≤ 5

, если i > 5

 

Вычисленный массив вывести на печать. Вычислить произведение наибольшего и наименьшего элементов массива X.

65. Вычислить массив X={xi}; ; n ≤ 20 по формуле:

Вычисленный массив вывести на печать. Найти наименьший положительный компонент массива.

66. Задан массив X={xi}; ; n ≤ 30. Вычислить ; .

Вычисленный массив вывести на печать. Найти наименьшую компоненту.

67. Дано целое число k и вещественное а (а>0). Массив X={xi}; ; n ≤ 20 образован по формуле .

Вычисленный массив вывести на печать. Найти максимальный элемент, а элемент предшествующий максимальному обратить в ноль (например: 1,6,8,3,4,9. 9 -здесь максимальное, а 4 предшествующий).

68. Получить элементы массива A по формуле:

; ; n ≤ 30.

Вычисленный массив вывести на печать.

Найти минимальный по модулю элемент массива A.

69. Вычислить компоненты вектора Y по формуле:

; ; n ≤ 30.

Вектор Y вывести на печать. Найти квадрат суммы положительных и сумму квадратов отрицательных компонент вектора Y.

70. Задан массив X={xi}; ; n ≤ 50. Получить новый массив из отрицательных и максимального элементов массива.

Вычисленный массив вывести на печать.

71. Задан массив X={xi}; ; n ≤ 20. Получить новый массив, умножив отрицательные элементы в 3 раза, положительные уменьшив на 7, а максимальное и минимальное значения обнулить. Вычисленный массив вывести на печать.

72. Задан массив X={xi}; ; n ≤ 40. Заменить все элементы их обратными величинами, затем увеличить в 5 раз. Вычислить сумму кубических корней элементов массива.

Вычисленный массив вывести на печать.

73. Даны целые числа а1, а2 3 ,…,аn; n ≤ 30. Все элементы больше 3 возвести в квадрат, минимальное возвести в -3ю степень а остальные элементы обнулить. Вычисленный массив вывести на печать.

74. Даны два массива X={xi}; ; n ≤ 20 и Y={yi}; ; m ≤ 10. Получить новый массив Z={zi}; ; p ≤ 40 в котором первые 20 значений занимают квадраты элементов массива X, следующие 10 элементы массива Y, остальные - это элементы массива Y делённые на 2.

Вычисленный массив вывести на печать.

75. Получить элементы массива A по формуле:

; ; n ≤ 20.

Вычисленный массив вывести на печать. Найти сумму всех элементов, и если она отрицательна, то поменять знаки всех элементов массива, кроме максимального элемента.

76. Даны действительные числа а1, а2 3 ,…,аn; n ≤ 30. Вычислить , где s-сумма членов последовательности, не превосходящих 3, а r-сумма членов последовательности, больших 3.

77. Даны действительные числа а1, а2 3 ,…,аn; n ≤ 30. Вычислить MAX (|a1|,.., |an|) и MIN (|a1|,.., |an|), а также F=(MIN / MAX)*100.

78. Задан массив X={xi}; ; n ≤ 32. Заменить все элементы ≥1 на 1, а элементы <1 на 0. Вывести на печать в виде матрицы 8x4.

79. Вычислить вектор Y, каждая компонента которого определяется по формуле:

, если xi ≤ 0,5

 

, если xi > 0,5

; ; n≤50

Вычисленный массив вывести на печать.

80. Задан массив X={xi}; ; n ≤ 40. Подсчитать количество отрицательных элементов в массиве и разделить каждый положительный элемент на это число.

81. Задан массив X={xi}; ; n ≤ 20, компоненты массива расположены в порядке возрастания. Дана переменная L. Переменную L расположить между компонентами массива таким образом, чтобы выполнялось условие ai>L>ai+1 Вычисленный массив вывести на печать.

82. Вычислить компоненты вектора X={xi}; ; n ≤ 20 по формуле: Преобразовать полученный вектор по правилу: все компоненты, кроме минимального и максимального, возвести в квадрат. Вычисленный массив вывести.

83. Задан массив X={xi}; ; n ≤ 20 и действительные числа A,B,C. Получить новый массив Y={Yi} по правилу:

• min (X). Вычисленный массив вывести.

84. Задан массив X={xi}; ; n ≤ 20. Получить новый массив переписав все элементы в обратном порядке. Найти sr - среднее арифметическое компонентов нового массива и умножить компоненты массива X на sr. Оба массива вывести на печать.

85. Задан массив X={xi}; ; n ≤ 20. Найти минимальный и максимальный компоненты, умножить массив X на величину min/max и вычислить среднее арифметическое нового массива. Вычисленный массив вывести на печать.

86. Вычислить массив X={xi}; ; n ≤ 20 по формуле:

, если 5< i ≤ 15

 

, в противном случае.

Вычисленный массив вывести на печать. Вычислить сумму с 3 по 17 элементов массива.


Дата добавления: 2015-10-30; просмотров: 451 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Поиск максимального (минимального) элемента массива и его индекса| Двумерные массивы

mybiblioteka.su - 2015-2024 год. (0.027 сек.)