Cоставьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет сумму элементов с индексами от n до m включительно. Число m и n введите с клавиатуры.
Код к задаче: «Программа, которая заполняет массив a[1.10] случайными целыми числами»
Листинг программы
const k=10; var a:array[1..k] of integer; i,n,m,s:integer; begin writeln(‘Массив’); randomize; for i:=1 to k do begin a[i]:=1+random(11); write(a[i]:3); end; writeln; repeat writeln(‘Введите диапазон 1,k); readln(n,m); until (n>0)and(m>n)and(m<=k); s:=0; for i:=n to m do s:=s+a[i]; write(‘Сумма=’,s) end.
Источник: studassistent.ru
Как заполнить массив значениями с клавиатуры?
Есть несколько вариантов заполнения массива с клавиатуры. Рассмотрим самый красивый с точки зрения пользовательского интерфейса.
Двумерные массивы вывод. Заполнение. Двумерный массив циклы. C++ для начинающих. #32
Заполнение одномерного массива
for i := 1 to N do begin write(‘Введите значение a[‘, i, ‘] = ‘); readln(a[i]); end;
Заполнение двумерного массива
for i := 1 to N do for j := 1 to M do begin write(‘Введите значение a[‘, i, ‘,’, j, ‘] = ‘); readln(a[i,j]); end;
Источник: programm.top
Заполнение массивов данными
Для ввода элементов массива можно использовать следующие способы:
1) функцию InputBox – функция InputBox отображает диалоговое окно, содержащее текст, который запрашивает пользователя ввести некоторое значение и текстовое окно для ввода этого значения.
– для одномерного массива:
Dim A() As Integer
n = InputBox(«Введите размер массива», «Определение размера массива»)
For i = 1 To n
‘команда в редакторе VB набирается в одну строку
A(i) = InputBox(«Введите элемент массива А(» «)», «Заполнение массива»)
При своей работе приведенный кусок программы выводит следующие окна:
– для двумерного массива:
Dim A() As Integer
n = InputBox(«Введите количество строк массива»)
m = InputBox(«Введите количество столбцов массива»)
ReDim A(n, m)
For i = 1 To n
For j = 1 To m
A(I, j) = InputBox(«Введите элемент массива А(» «,» «)»)
2) функцию Сells – данные считываются из рабочего листа Excel. В этом случае пользователь перед запуском программы вводит данные элементов массива в ячейки рабочего листа Excel.
– для одномерного массива:
Заполняем массив случайными числами
Dim a(10) As Integer
For i = 1 To 10
‘массив записан в 5-ой строке рабочего листа Excel
– для двумерного массива:
Dim a(10, 5) As Integer
For i = 1 To 10
For j = 1 To 5
Этот способ более предпочтителен, поскольку он не требует ввода данных с клавиатуры каждый раз при новом появлении диалогового окна.
3) использование генератора случайных чисел Rnd(), если значение массива не задано. При таком способе заполнения массива надо учесть, что перед использованием функции Rnd() надо инициализировать генератор случайных чисел, а также то, что он выдает числа в интервале от 0 до 1.
– для одномерного массива:
Randomize Timer
Dim a() As Single
n = InputBox(«Введите размер массива»)
For i = 1 To n
a(i) = 50 — Int(Rnd() * 100) / 10
– для двумерного массива:
Randomize Timer
Dim a() As Single
n = InputBox(«Введите количество строк массива»)
m = InputBox(«Введите количество столбцов массива»)
ReDim a(n, m)
For i = 1 To n
For j = 1 To m
a(I, j) = 50 — Int(Rnd() * 100) / 10
4) с помощью формулы, если массив заполняется по какой-либо закономерности, причем значение элемента массива зависит от его местоположения:
– для одномерного массива:
Dim a() As Single
n = InputBox(«Введите количество строк)
For i = 1 To n
– для двумерного массива:
Dim a() As Single
n = InputBox(«Введите количество строк», «Определение размера массива. Запрос 1 из 2»)
m = InputBox(«Введите количество столбцов», «Определение размера массива. Запрос 2 из 2»)
ReDim a(n, m)
For i = 1 To n
For j = 1 To m
a(i, j) = 5 * i / (j + 4)
Вывод массивов на печать
Вывести массив на печать можно следующими способами:
1) в рабочий лист Excel – для этого используется известная уже функция Cells:
для одномерного массива:
для двумерного массива:
For i = 1 To n
‘вывод в 10 строку рабочего
Cells(10, i) = a(i)
For i = 1 To n
For j = 1 To m
‘вывод начинается с
‘5 строки 4 столбца
Cells(i+5, j+4) = a(i, j)
2) в диалоговое окно. Для этого весь массив переписывается в какую-либо одну текстовую переменную (например Text), которая и выводится в диалоговое окно. При выводе двумерного массива перед выводом необходимо сформировать строки и столбцы. Для этого используется функция Chr(13) – перевод каретки, которая при заполнении строки переводит курсор на начало следующей строки и Chr(9) – вставляет символ табуляции между элементами массива в строке. Здесь также массив предварительно записывается в текстовую переменную, которая выводится в диалоговое окно.
Для одномерного массива:
Для двумерного массива:
For i = 1 To n
Text = Text Chr(9)
MsgBox «Массив:» Text
For i = 1 To n
For j = 1 To m
Text = Text Chr(9)
Text = Text Массив:» Text
Источник: studfile.net