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

в Турбо Паскале они числовые

1.Определение массивов

2.Этапы решения задач на массивы

3.Задачи на обработку массивов

Автор презентации

Определение массивов

Этапы решения задач на массивы

Задачи на обработку массивов

Горный массив

Определение массивов

Этапы решения задач на массивы

Задачи на обработку массивов

Лесной массив

Определение массивов

Этапы решения задач на массивы

Задачи на обработку массивов

Жилой массив

2.С помощью генератора
случайных чисел

for i:=1 to 10 do
begin
a[i]:=random(101); {числа от 1 до 100}
end;

3.С помощью формулы

var b: array [1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
b[i]:=i*2;
end;

t:=a[k1];
a[k1]:=a[k2];
a[k2]:=t.

s:=0;
for i:=1 to n do
if a[i]>0 then s:=s+a[i];

min:=a[1] ;
for i:=2 to n do
if a[i]<=min then min:=a[i];

7.23
6.19
5.42
8.91

7.23 6.19 5.42 8.91

7.23
6.19
5.42
8.91

program zadacha1;
var A: ARRAY[1.. …… ] OF …… ;
i, k: integer;
BEGIN
K:=……
FOR I:=1 TO …… DO READLN( ……);
FOR I:=1 TO…… DO……
IF A[I]>10 THEN K:=…… ;
WRITELN (‘K=‘,K);
READLN;
END.

program zadacha1;
var A: ARRAY[1.. …… ] OF …… ;
i, k: integer;
BEGIN
K:=……;
FOR I:=1 TO …… DO READLN( ……);
FOR I:=1 TO…… DO……
IF A[I]>10 THEN K:=…… ;
WRITELN (‘K=‘,K);
READLN;
END.

10, т.к. количество элементов в массиве равно 10

program zadacha1;
var A: ARRAY[1.. …… ] OF …… ;
i, k: integer;
BEGIN
K:=……;
FOR I:=1 TO …… DO READLN( ……);
FOR I:=1 TO…… DO……
IF A[I]>10 THEN K:=…… ;
WRITELN (‘K=‘,K);
READLN;
END.

В Паскале после OF пишется тип переменных. В нашем случае он целый-integer,т.к. все элементы массива целые числа

program zadacha1;
var A: ARRAY[1.. …… ] OF …… ;
i, k: integer;
BEGIN
K:=……;
FOR I:=1 TO …… DO READLN( ……);
FOR I:=1 TO…… DO……
IF A[I]>10 THEN K:=…… ;
WRITELN (‘K=‘,K);
READLN;
END.

К=0, переменная где накапливается количество чисел больших 10. Первоначальное ее значение равно 0

program zadacha1;
var A: ARRAY[1.. …… ] OF …… ;
i, k: integer;
BEGIN
K:=……;
FOR I:=1 TO …… DO READLN( ……);
FOR I:=1 TO…… DO……
IF A[I]>10 THEN K:=…… ;
WRITELN (‘K=‘,K);
READLN;
END.

10-цикл с параметром ввода элементов массива; всего 10 элементов

program zadacha1;
var A: ARRAY[1.. …… ] OF …… ;
i, k: integer;
BEGIN
K:=……;
FOR I:=1 TO …… DO READLN( ……);
FOR I:=1 TO…… DO……
IF A[I]>10 THEN K:=…… ;
WRITELN (‘K=‘,K);
READLN;
END.

Readln(оператор ввода), в скобках пишется (a[i]),где a[i]-элементы массива

program zadacha1;
var A: ARRAY[1.. …… ] OF …… ;
i, k: integer;
BEGIN
K:=……;
FOR I:=1 TO …… DO READLN( ……);
FOR I:=1 TO…… DO……
IF A[I]>10 THEN K:=…… ;
WRITELN (‘K=‘,K);
READLN;
END.

10-обработка массива т.е. поиск в цикле элементов больших 10

program zadacha1;
var A: ARRAY[1.. …… ] OF …… ;
i, k: integer;
BEGIN
K:=……;
FOR I:=1 TO …… DO READLN( ……);
FOR I:=1 TO…… DO……
IF A[I]>10 THEN K:=…… ;
WRITELN (‘K=‘,K);
READLN;
END.

Здесь писать ничего не нужно т.к продолжение этой строки программы ниже, на следующей строчке.

program zadacha1;
var A: ARRAY[1.. …… ] OF …… ;
i, k: integer;
BEGIN
K:=……;
FOR I:=1 TO …… DO READLN( ……);
FOR I:=1 TO…… DO……
IF A[I]>10 THEN K:=…… ;
WRITELN (‘K=‘,K);
READLN;
END.

Если найдены элементы больше 10 то их количество увеличивается на 1,т.е изменяется переменная К и в программе надо записать К:=К+1

program zadacha2;
var
С:ARRAY[1.. 8] OF …… ;
MAX: ......;
I: integer;
BEGIN
FOR I:=1 TO 8 DO READLN (c[i]);
MAX:=C[ …… ];
FOR I:= 2 TO …… DO
IF C[ I ] > …… THEN MAX:= …… ;
WRITELN ('MAX=',MAX); READLN;
END.

program zadacha2;
var
С:ARRAY[1.. 8] OF …… ;
MAX: ......;
I: integer;
BEGIN
FOR I:=1 TO 8 DO READLN(c[i]);
MAX:=C[ …… ];
FOR I:= 2 TO …… DO
IF C[ I ] > …… THEN MAX:= …… ;
WRITELN ('MAX=',MAX);
READLN;
END.

Тип –вещественный,т.е в Паскале он записывается как real

program zadacha2;
var
С:ARRAY[1.. 8] OF …… ;
MAX: ......;
I: integer;
BEGIN
FOR I:=1 TO 8 DO READLN(c[i]);
MAX:=C[ …… ];
FOR I:= 2 TO …… DO
IF C[ I ] > …… THEN MAX:= …… ;
WRITELN ('MAX=',MAX);
READLN;
END.

Max –так обозначен наибольший элемент массива и тип его тоже вещественный, т.е.real

program zadacha2;
var
С:ARRAY[1.. 8] OF …… ;
MAX: ......;
I: integer;
BEGIN
FOR I:=1 TO 8 DO READLN(c[i]);
MAX:=C[ …… ];
FOR I:= 2 TO …… DO
IF C[ I ] > …… THEN MAX:= …… ;
WRITELN ('MAX=',MAX);
READLN;
END.

В данной задач поиск наибольшего элемента основан на принципе сравнения. Поэтому предположим, что самый больший элемент в массиве –первый, т.е c[1]

program zadacha2;
var
С:ARRAY[1.. 8] OF …… ;
MAX: ......;
I: integer;
BEGIN
FOR I:=1 TO 8 DO READLN(c[i]);
MAX:=C[ …… ];
FOR I:= 2 TO …… DO
IF C[ I ] > …… THEN MAX:= …… ;
WRITELN ('MAX=',MAX);
READLN;
END.

Далее, начиная со 2-го элемента массива до 9 мы сравниваем 1-элемент, которому придали статус наибольшего со остальными, поэтом у здесь вместо многоточия пишем 9

program zadacha2;
var
С:ARRAY[1.. 8] OF …… ;
MAX: ......;
I: integer;
BEGIN
FOR I:=1 TO 8 DO READLN(c[i]);
MAX:=C[ …… ];
FOR I:= 2 TO …… DO
IF C[ I ] > …… THEN MAX:= …… ;
WRITELN ('MAX=',MAX);
READLN;
END.

Если в массиве находится элемент больше первого, тогда он будет наибольшем т.е. C[i]>max

program zadacha2;
var
С:ARRAY[1.. 8] OF …… ;
MAX: ......;
I: integer;
BEGIN
FOR I:=1 TO 8 DO READLN(c[i]);
MAX:=C[ …… ];
FOR I:= 2 TO …… DO
IF C[ I ] > …… THEN MAX:= …… ;
WRITELN ('MAX=',MAX);
READLN;
END.

Наибольшим становится найденный элемент т.е. Max:=c[i]

Задачи на обработку массивов
№3 В массиве В, состоящем из элементов {-3,5,2,0,-2.5,21,9,-8,-1.5,7}
найти сумму элементов массива, больших 0.
( допишите программу, заполнив все пропуски. При проверке данной
программы щелкните по многоточиям для получения правильного ответа

Задачи на обработку массивов
№3 В массиве В, состоящем из элементов {-3,5,2,0,-2.5,21,9,-8,-1.5,7}
найти сумму элементов массива, больших 0.
( допишите программу, заполнив все пропуски. При проверке данной
программы щелкните по многоточиям для получения правильного ответа

В Паскале после OF пишется
тип переменных.
В нашем случае он вещественный( в записи элементов массива есть 1.5 и 2.5) т.е.real,

Задачи на обработку массивов
№3 В массиве В, состоящем из элементов {-3,5,2,0,-2.5,21,9,-8,-1.5,7}
найти сумму элементов массива, больших 0.
( допишите программу, заполнив все пропуски. При проверке данной
программы щелкните по многоточиям для получения правильного ответа

В Паскале i- номер элемента
в данном массиве, который
имеет всегда целый тип т.е. integer

Задачи на обработку массивов
№3 В массиве В, состоящем из элементов {-3,5,2,0,-2.5,21,9,-8,-1.5,7}
найти сумму элементов массива, больших 0.
( допишите программу, заполнив все пропуски. При проверке данной
программы щелкните по многоточиям для получения правильного ответа

Сумма элементов в данном массиве
будет иметь тип real

Задачи на обработку массивов
№3 В массиве В, состоящем из элементов {-3,5,2,0,-2.5,21,9,-8,-1.5,7}
найти сумму элементов массива, больших 0.
( допишите программу, заполнив все пропуски. При проверке данной
программы щелкните по многоточиям для получения правильного ответа

Первоначальное значение S=0

Задачи на обработку массивов
№3 В массиве В, состоящем из элементов {-3,5,2,0,-2.5,21,9,-8,-1.5,7}
найти сумму элементов массива, больших 0.
( допишите программу, заполнив все пропуски. При проверке данной
программы щелкните по многоточиям для получения правильного ответа

После слова readln (оператор ввода)
вводятся элементы массива,
поэтом здесь пишем b[i]

Задачи на обработку массивов
№3 В массиве В, состоящем из элементов {-3,5,2,0,-2.5,21,9,-8,-1.5,7}
найти сумму элементов массива, больших 0.
( допишите программу, заполнив все пропуски. При проверке данной
программы щелкните по многоточиям для получения правильного ответа

А здесь писать ничего не надо
продолжение на следующей строчке

Задачи на обработку массивов
№3 В массиве В, состоящем из элементов {-3,5,2,0,-2.5,21,9,-8,-1.5,7}
найти сумму элементов массива, больших 0.
( допишите программу, заполнив все пропуски. При проверке данной
программы щелкните по многоточиям для получения правильного ответа

Т.к. надо найти сумму элементов
больших 0, то здесь происходит
поиск этих элементов в цикле и вместо
многоточия пишем b[i]>0

Задачи на обработку массивов
№3 В массиве В, состоящем из элементов {-3,5,2,0,-2.5,21,9,-8,-1.5,7}
найти сумму элементов массива, больших 0.
( допишите программу, заполнив все пропуски. При проверке данной
программы щелкните по многоточиям для получения правильного ответа

Если найден элемент больше 0,
то к сумме добавляется 1, т.е.
пишем:S=S+1;

А вот как выглядит вся программа целиком

Принципиальный момент в данном задании – второй цикл обработки массива.
Именно в нем значение нулевого элемента массива (единица) записывается в первый элемент, затем во второй и т.д. Следовательно, все элементы массива после выполнения фрагмента программы будут равны единице
Правильный ответ: В