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

Способы задания элементов массива.



Читайте также:
  1. I. Анализ задания
  2. I. Гашение дуги с помощью полупроводниковых элементов
  3. I. Задания для самостоятельной работы
  4. I. Задания для самостоятельной работы
  5. I. Задания для самостоятельной работы
  6. I. Задания для самостоятельной работы
  7. I. Задания для самостоятельной работы

— Ввод с клавиатуры (когда они известны)

— Получение по формуле общей для всех элементов a[i]=f(i)

— Получение элементов массивов случайным образом (используя датчик случайных чисел)

 

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

Ввод массива с клавиатуры

 

Program vvod;

Var mas: array[1..100] of integer;

I, N: integer;

Begin write(‘введите количество элементов’);

readln (n);

For I:=1 to n do begin

Write (‘введите элемент массива ’, I);

Readln (MAS[ I ]);

End; end.

 

Ввод в столбец:

WRITELN(‘Введите кол-во эл. массива: ’);

Readln(N);

For I:=1 to N do

Begin

WRITE(‘A[‘,I,’]=’); Readln(A[I]);

end;

 

Ввод в строку (через пробел):

WRITELN(‘Введите кол-во эл. массива: ’);

Readln(N);

For I:=1 to N do

Read(A[I]);

 

Получение элементов массива по формуле

Program formula;

Var mas: array[1..100] of integer;

I,N: integer;

Begin write(‘введите количество элементов’);

readln (n);

For I:=1 to n do begin

MAS[ I ]:= I*2-4;

End;

 

Получение элементов массива случайным образом

Заполним массив из n элементов случайными числами от 1 до 100

write(‘введите количество элементов’);

readln (n);

randomize;

for i:=1 to n do

begin

a[i]:=random(100);

write(a[i]:4);

end;

Вывод элементов массива

Вывод в строку:

For I:=1 to N do

WRITE(A[I], ‘ ‘);

WRITELN;

Вывод в столбец:

For I:=1 to N do

WRITELN(‘A[‘,I,’]=’, A[I]);

 


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






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