Презентация, доклад по информатике Типовые задачи обработки массивов

Республики Крым
Шостик Александр Иванович

количества элементов.
Нахождение суммы элементов.
Нахождение произведения элементов.
Нахождение максимального и минимального элементов массива.
Замена элементов массива.
Формирование нового массива из элементов старого массива.
Сортировка элементов массива.

Массивы бывают одномерные (линейные) и двумерные (табличные).
Примеры:
2 15 7 22 25 37 – целочисленный массив из шести элементов;
2,39 1,15 45,8 18,33 – вещественный массив из четырёх элементов;
Элемент массива - отдельная переменная, входящая в массив.
Размерность массива - число индексов, необходимых для идентификации отдельного элемента.
Индекс элемента массива - номер элемента в массиве.

of [тип элементов];

Например:
var A: array[1..200] of integer; {целочисленный массив A, максимальное количество элементов – 200}
var b: array[1..80] of real; {вещественный массив b, максимальное количество элементов – 80}

… to … do

Ввод элементов можно производить с клавиатуры
var a: array [1..10] of real;
i: integer;
Begin
for i:=1 to 10 do begin
writeln(‘ввести’,i,’ элемент массива’);
readln (a[i]);
writeln(‘A(‘, i ,’)=‘, a[i]); end;
readln;
end.

Ввод элементов массива с использованием генератора случайных чисел.
var a: array [1..10] of integer;
i: integer;
Begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(30);
writeln(‘A(‘, i ,’)=‘, a[i]);
end;
readln;
end.

= 10;
var
arr: array[1..N] of integer;
i: byte;
count: byte;
begin
randomize;
count := 0;
for i:=1 to N do begin
arr[i] := random(100) - 50;
write(arr[i],' ');
if arr[i] > 0 then
count := count + 1;
end;
writeln;
writeln(count);
end.

вводятся с клавиатуры.
Найти сумму значений элементов массива, больших некоторой величины t.

Program Summa;  
Var A: Array [1..50] of Real;    
Var   i, t : Integer;   S   : Real;
BEGIN  
  Write ('Введите t = ');   ReadLn(t); {ввод значения t}  
For i := 1 to 50 dо begin  
Write('A [ ', i , ' ] = ');  
ReadLn(A[i]) {ввод элементов массива}   end;  
S := 0; {присваивание начального значения}  
For i := 1 to 10 do begin
If A[i]>t then S := S+A[i]; end;
WriteLn('Сумма равна ', S : 5 : 1);  
ReadLn;
end.

чисел.

Program ;  
Var A: Array [1..N] of Real;    
Var   i, t : Integer;   S   : Real;
begin  
  Write ('Введите t = ');   ReadLn(t);
For i := 1 to N dо begin  
Write('A [ ', i , ' ] = ');  
ReadLn (A[i]) {ввод элементов массива}  
end;  
p:=1;
for i:=1 to 10 do
if a[i]<0 then p:=p*a[i];
writeln (‘произведение = ’, p);
end;
 end.

вещественных элементов, найти максимальный по модулю элемент массива.

const n = 50;
var arr: array[1..n] of real;
max: real;
i,j,k: byte;
begin
randomize;
max := 0;
for i:=1 to n do begin
arr[i] := random()-0.50;
write(arr[i]:7:2);
if abs(arr[i]) > abs(max) then
max := arr[i]
end;
writeln;
writeln(max:7:2);  
readln;
end.

элементы массива на противоположные по знаку.

const N = 10;
var
arr: array[1..N] of integer;
i: byte;
begin
randomize;
for i:=1 to N do begin
arr[i] := random(100) - 50;
write(arr[i]:4);
end;
writeln;
for i:=1 to N do
arr[i] := -1 * arr[i];
for i:=1 to N do
write(arr[i]:4);
writeln;
end.

случайных чисел в диапазоне от -50 до 49 включительно. Сформировать новый массив из десяти первых положительных элементов массива X.

program zadacha (input, output) ; {формирование массива из положительных элементов}  label 1,2;  var x: array [1..20] of integer;  у: array [1..10] of integer;  i,k: integer;  begin randomize; for i:=1 to 20 do  begin x[i]:=random (100) -50; writeln ( 'значение', i, 'эл. Массива = ', x[i]) end; k:=0; for i:=1 to 20 do if x[i]>0 then  begin k:=k+1;  y[k]:=x[i];  if k=10 then goto 1 end;  if k=0 then  begin writeln ('элементов нет');  goto 2  end; 1:writeln ('Элементы массива Y');  for i:=1 to k do writeln ('y(', i , ')=', y[i])  2:end.

for j:=1 to N-1 do
for i:=1 to N-j do
if M[i] > M[i+1] then
begin
t := M[i]; M[i] := M[i+1];
M[i+1] := t
end;

Сортировка вставками
begin
M[0] := -oo;
for j:=2 to N do
begin
i := j;
while M[i] < M[i-1] do
begin
t := M[i];
M[i] := M[i+1];
M[i+1] := t
i := i-1
end;
end ;
end.