Приложение: Примеры типовых алгоритмов Задание элементов одномерного массива

1. из типизированного файла

. . .

var a:array[1..100] of integer;{размерность берем максимум}

i,n:integer;{n– размерность массива}

f:file of integer;{типизированный файл}

. . .

begin

. . .

Assign(f,'1.my');reset(f);{файл должен уже существовать}

i:=0;

while not eof(f) do begin

inc(i);read(f,a[i]);

end;

n:=i;

. . .

2. из текстового файла

. . .

{числа расположены в файле в строку через пробел}

var a:array[1..100] of integer;{размерность берем максимум}

i,n:integer; {n– размерность массива}

f:text;{текстовый файл}

. . .

begin

. . .

Assign(f,'5_1.txt');reset(f);{открываем файл для чтения}

i:=0;

while not eof(f) do begin

inc(i);read(f,a[i]);

end;

n:=i;

. . .

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

1. в типизированный файл

. . .

var a:array[1..10] of integer;

i:integer;

f:file of integer;

begin

{здесь располагается алгоритм задания элементов массива и его обработка}

. . .

Assign(f,'1.my');rewrite(f);

for i:=1 to 10 do write(f,a[i]);

Close(f);

. . .

2. в текстовый файл (массив с элементами целого типа)

. . .

var a:array[1..10] of integer;

i:integer;

f:text;

begin

{здесь располагается алгоритм задания элементов массива и его обработка}

. . .

Assign(f,'2_3.txt');rewrite(f);

for i:=1 to 10 do write(f,a[i],' ');

. . .

3. в текстовый файл (массив с элементами вещественного типа)

. . .

var a:array[1..n] of real;{n-размер массива}

i:integer;

f:text;

begin

{здесь располагается алгоритм задания элементов массива и его обработка}

. . .

Assign(f,'2_4.txt');rewrite(f);

for i:=1 to 10 do write(f,a[i]:8:2);

. . .

Обработка элементов одномерного массива

1. Нахождение суммы элементов одномерного массива

. . .

const n=10;{размерность массива}

var a:array[1..n] of real;{массив чисел}

i:integer;{индекс элементов}

s:real;{сумма значений}

begin

{здесь располагается алгоритм задания элементов массива}

. . .

s:=0;

for i:=1 to N do s:=s+a[i];

writeln(‘сумма значений=’,s:8:2);

. . .

2. Нахождение количества элементов одномерного массива, удовлетворяющих заданному критерию

{алгоритм нахождения элементов массива равных 0}

const n=10;{размерность массива}

var a:array[1..n] of real;{массив чисел}

i:integer;{индекс элементов}

kol_0:integer;{количество нулей}

begin

{здесь располагается алгоритм задания элементов массива}

. . .

Kol_0:=0;

for i:=1 to N do if a[i]=0 then Kol­_0:=kol_0+1;

. . .

3. Нахождение максимального значения в одномерном массиве

const n=10;{размерность массива}

var a:array[1..n] of real;{массив чисел}

i:integer;{индекс элементов}

max:real;{максимум}

begin

{здесь располагается алгоритм задания элементов массива и его обработка}

. . .

max:=a[1];

for i:=2 to N do

if max<a[i] then max:=a[i];

. . .

4. Нахождение индекса минимального значения в одномерном массиве

. . .

const n=10;{размерность массива}

var a:array[1..n] of real;{массив чисел}

i,k_min:integer;{индекс элементов и индекс минимума}

min:real;{минимум}

begin

{здесь располагается алгоритм задания элементов массива и его обработка}

min:=a[1];

for i:=2 to N do

if min>a[i] then begin min:=a[i];k_min:=i end;

writeln(‘Минимум под номером =’,k_min:8);

. . .