1. Составить программу обработки массива размерностью n, заполненного целыми числами, введенными с клавиатуры. Вывести индексы и значения положительных элементов массива.
A:ARRAY[0..N] OF INTEGER;
FOR I:=1 TO N DO Begin
Write(‘Введите ‘,I,’ элемент массива ‘); ReadLn(A[I]);
IF A[I]>0 THEN WriteLn(‘Положительный элемент = ‘,A[I],’ его индекс = ‘,I);
2. Составить программу вычисления и печати значений функции Y=sin(x-1)/2x. Значения аргументов задать в массиве X, состоящего из 6 элементов. Значения функции записать в массив Y.
X,Y:ARRAY[0..6] OF REAL;
FOR I:=1 TO 6 DO Begin
Write(‘Введите ‘,I,’ значение аргумента ‘); ReadLn(X[I]);
FOR I:=1 TO 6 DO Begin
3. Дан массив M, состоящий из 30 элементов. Элементы массива — произвольные целые числа. Выдать на экран значение каждого пятого и положительного элемента. Указанные элементы выдать в строку.
M:ARRAY[0..30] OF INTEGER;
WriteLn(‘ Значения элементов массива’);
FOR I:=1 TO 30 DO Begin
Динамический массив с++ пример. Создание, заполнение, удаление, размер динамического массива. #55
WriteLn(‘ Значения каждого пятого и положительного элемента массива’);
IF M[I] > 0 THEN Write(M[I]:3);
Примеры для самостоятельного решения:
- Дан одномерный массив размерностью 10, заполненный целыми числами, введенными с клавиатуры, и величина N. Отрицательные элементы заменить на N. Измененный массив вывести на экран одной строкой.
- Дан одномерный массив размерностью N, заполненный случайными числами в интервале от -15 до 20. Вывести на экран значения элементов массива, абсолютное значение которых >10.
- Дан одномерный массив размерностью N, заполненный случайными числами. Каждый третий элемент массива возвести в квадрат, если элемент отрицательный. Измененный массив вывести на экран.
- Составить программу вычисления и печати значений функции Y=(sinx+1)cos4x. Значения аргументов задать в массиве X, состоящего из 10 элементов. Значения функции записать в массив Y.
- Из элементов массива А, состоящего из 25 элементов, сформировать массив D той же размерности по правилу: первые 10 элементов находятся по формуле Di=Ai+i, остальные — по формуле Di=Ai-i.
Источник: studfile.net
Заполнение массива и его вывод на экран
В задачах по программированию очень часто встречается необходимость заполнить массив данными и вывести их потом на экран. Методов этого не так уж много и особым разнообразием они не отличаются. Поэтому хорошо бы их оформить в виде процедур и использовать по мере необходимости.
Создадим две процедуры заполнения одномерного массива целыми числами: одну с использованием функции random и одну, где пользователь самостоятельно задает значения. Также создадим процедуру вывода массива на экран. Затем вызовем в основной ветке программы эти процедуры, передав им в качестве аргументов переменные, связанные с массивами.
Заполнить массив случайными числами. Генератор уникальных случайных чисел. rand. srand ДЗ #7
Программа на языке Паскаль:
const n = 10; type miniarr = array[1..n] of integer; var a, b: miniarr; procedure arr_rand (k:integer; var arr: miniarr); var i: byte; begin writeln (‘Заполнение массива случайными числами.’); randomize; for i := 1 to k do arr[i] := random (100); end; procedure arr_user (k:integer; var arr: miniarr); var i: byte; begin write (‘Введите ‘, k, ‘ чисел через пробел: ‘); for i := 1 to k do read (arr[i]); end; procedure arr_out (k:integer; var arr: miniarr); var i: byte; begin write (‘Вывод массива: ‘); for i := 1 to k do write (arr[i]:4); writeln; end; begin arr_rand (n, a); arr_out (n, a); writeln; arr_user (n, b); arr_out (n, b); end.
Источник: pas1.ru
Пример программы заполнения массива
Заполнение массива
Как и было обещано в статье об одномерном массиве, сегодня я затрону тему внесения данных в массив т.е заполнение массива. В паскале заполнение массива имеет некоторые особенности. Что здесь самое главное и что нужно заполнить? При произведении операций с элементами массива массив нельзя рассматривать как нечто целое.
То есть, например, если вы хотите заполнить массив информацией, то придется вносить данные для каждого элемента массива отдельно. Гораздо проще это реализовать в цикле. Способов внесения несколько, но для каждого используется цикл. Теперь собственно сам код
var a:array [1..10] of integer;i:integer;
begin
for i:=1 to 10 do
readln(a[i]);
end.
Сейчас вы увидели самый простой способ заполнения одномерного массива, а именно ввод через клавиатуру. Я не говорю, что этот способ самый эффективный, отнюдь нет. Представьте, что необходимо произвести заполнение массива, состоящего из 1000 и более элементов. Вбивать каждый с клавиатуры будет естественно глупо и нерационально.
Гораздо проще взять данные из другого массива или из файла. Ниже показано как заполнить массив код присвоением элементов одного массива другим элементам второго массива.
var a,b:array [1..10] of integer;i:integer;
begin
for i:=1 to 10 do
a[i]:=b[i];
end.
Уже лучше не правда ли? Не надо пользоваться клавиатурой и набирать каждый элемент. Однако еще проще произвести заполнение массива, взяв данные из файла. Подробнее об операциях с файлами я расскажу в отдельном уроке, а пока простой пример того, как заполнить массив из файла.
var a:array [1..10] of integer; f:text;
btgin
assign (f,’primer.txt’);
reset(f);
for i:=1 to 10 do
readln(f,a[i]);
end.
Можно добавить вывод заполненного массива на экран, тогда надо в цикл добавить строчку
One Reply to “Заполнение массива”
sidrelena :
var a,b:array [1..10] of integer;i:integer;
begin
for i:=1 to 10 do
a[i]:=b[i];
end. Извините, а в этом примере что должно получится? как происходит заполнение после ввода кода? у меня ни с клавы ни так не происходит