Рабочие листы
к вашим урокам
Скачать
1 слайд
ОДНОМЕРНЫЕ МАССИВЫ
2 слайд
Цель
– познакомиться с одномерными массивами,
– научиться задавать (описывать),
заполнять разными способами,
– уметь обрабатывать.
– подружиться с массивами!
3 слайд
Массив – совокупность однотипных данных, хранящихся в последовательных ячейках
и имеющих общее имя.
4 слайд
Массивы бывают
Одномерные
А
А[2]
Двумерные
А
А[2,3]
5 слайд
Описание массива
A
а[1] a[2] a[3] a[4] a[5] a[6] a[7]
a:array[1..1000] of integer;
6 слайд
Заполнение массива
1) с клавиатуры
readln(a[i]);
2) случайным образом (автоматически)
a[i]:=random(21)-10;
-10 0 10
7 слайд
Задача
Задать массив, заполнить его случайными числами из интервала
[-10;10] и найти
- количество положительных,
отрицательных и нулевых элементов;
- суммы положительных и
отрицательных элементов.
8 слайд
program zadacha;
var n, i, kp, ko, kn, sp, so: integer;
a:array[1..1000] of integer;
begin
kp:=0; ko:=0; kn:=0; sp:=0; so:=0;
write('Введите количество элементов n=');
readln(n);
9 слайд
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i]:5);
end;
writeln;
10 слайд
for i:=1 to n do
begin
if a[i]>0 then begin kp:=kp+1;
sp:=sp+a[i]; end;
if a[i]<0 then begin ko:=ko+1;
so:=so+a[i]; end;
if a[i]=0 then kn:=kn+1;
end;
11 слайд
writeln ('Количество положительных
элементов =', kp);
writeln ('Количество отрицательных
элементов =', ko);
writeln ('Количество нулей =', kn);
writeln ('Сумма положительных
элементов =', sp);
writeln ('Сумма отрицательных
элементов =', so);
end.
12 слайд
for i:=1 to n do
begin
a[i]:=random(21)-10; - удалить
write (a[i]:5);
write (' a[ ', i , ' ]= '); - вставить
readln (a[i]);
end;
writeln;
13 слайд
Что еще можно было
найти (вычислить) ?
среднее арифметическое,
минимальный элемент,
максимальный элемент
и т. д.
выполнить?
сортировку,
перестановку,
- замену
и т. д.
14 слайд
В заключение
Я узнал(а) …
Я умею …
15 слайд
С П А С И Б О
З А
В Н И М А Н И Е !
Рабочие листы
к вашим урокам
Скачать
6 662 874 материала в базе
Настоящий материал опубликован пользователем Никонорова Татьяна Александровна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материалВаша скидка на курсы
40%Курс профессиональной переподготовки
500/1000 ч.
Курс профессиональной переподготовки
500/1000 ч.
Курс повышения квалификации
36 ч. — 180 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.