Содержание
-
ОДНОМЕРНЫЕ МАССИВЫ
-
Массивы
Один из самых распространенных способов организации данных – табличный. Таблицы могут состоять из 1 строки (линейная): а1а2 а3 а4 и из нескольких строк и столбцов (прямоугольная): а11а12 а13 а14 а21а22 а23 а24 а31а32 а33 а34 Массив – совокупность данных одного типа.
-
МассивыОдномерные массивы
Обозначаются массивы латинскими буквами, строки нумеруются сверху вниз, столбцы слева направо. Элемент, расположенных на i – том месте линейной таблицы обозначается A[ i ] Название массива Номер элемента
-
Прежде чем использовать массив в программе необходимо зарезервировать в памяти место под него. Для этого используется зарезервированное слово array – массив: Vara:array[1..n] of integer; Число элементов массива
-
Алгоритм решения задач с использованием массивов:
Описание массива Заполнение массива Вывод массива (распечатка) Выполнение условий задачи Вывод результата
-
Способы задания элементов массива:
Ввод с клавиатуры. Write(‘Введите число элементов’); Read(n); For i:=1 to n do Read(a[i]); Writeln; For i:=1 to n do Write(a[i]:4); Ввод элементов массива Вывод элементов массива
-
2. С помощью генератора случайных чисел. Randomize; Write(‘Введите число элементов’); Read(n); For i:=1 to n do begin a[i]:=random(10); Write(a[i]:4); End; Ввод элементов массива Вывод элементов массива
-
Пример 1В одномерном массиве посчитать сумму положительных элементов
program sum; uses crt; var a:array[1..10] of integer; i,n,s:integer; begin clrscr; write('Введите число элементов'); read(n); for i:=1 to n do read(a[i]); for i:=1 to n do begin write(a[i]:4); S:=0; if a[i]>0 then s:=s+a[i]; end; write('s= ',s); readkey; end.
-
Пример 2. В одномерном массиве вычислить минимальный элемент
program minimum; uses crt; var a:array[1..10] of integer; i,n,min:integer; begin clrscr; write('Введите число элементов'); read(n); for i:=1 to n do read(a[i]);writeln; for i:=1 to n do write(a[i]:4); min:=a[1]; for i:=2 to n do if a[i]
-
Пример 3Дан массив целых чисел. Записать его наоборот
program massiv; uses crt; var a:array[1..10] of integer;{описаниемассива} i,n:integer; begin clrscr; randomize; {генератор случайных чисел} write('Введите число элементов'); read(n); for i:=1 to n do begin a[i]:=random(10); {заполнение массива} write(a[i]:4); {выводмассива} end; writeln;{переход на след. строку} for i:=n downto 1 do write(a[i]:4); {вывод массива наоборот} readkey end.
-
Пример 4Определить, сколько пар одинаковых соседних элементов содержится в массиве.
program massiv; uses crt; var a:array[1..10] of integer;{описаниемассива} i,n,s:integer; begin clrscr; randomize; {генератор случайных чисел} write('Введите число элементов'); read(n); for i:=1 to n do begin a[i]:=random(10); {заполнение массива} write(a[i]:4); {выводмассива} end; writeln;{переход на след. строку} for i:=1 to n do if a[i]=a[i+1] then s:=s+1; write('s=',s); {вывод массива наоборот} readkey end.
-
Пример 5. В одномерном массиве заменить все нулевые элементы на 10
program massiv; uses crt; var a:array[1..10] of integer;{описаниемассива} i,n,s:integer; begin clrscr; randomize; {генератор случайных чисел} write('Введите число элементов'); read(n); for i:=1 to n do begin a[i]:=random(10); {заполнение массива} write(a[i]:4); {выводмассива} end; writeln;{переход на след. строку} for i:=1 to n do begin if a[i]=0 then a[i]:=10; write(a[i]:4); {вывод массива наоборот} end; readkey end.
-
Самостоятельно:
В одномерном массиве найти разность наибольшего и наименьшего элементов. Дан одномерный массив. Вывести на экран числа > 5. В одномерном массиве найти произведение ненулевых элементов.
-
Самостоятельная работа. Генератор случайных чисел
В-1 Создать и напечатать одномерный массив случайными числами от 0 до 15 и вывести на экран те из них, которые больше 10. Создать и напечатать одномерный массив случайными числами от 0 до 10 и вывести на экран те из них, которые больше последнего элемента массива. Создать и напечатать одномерный массив случайными числами от 0 до 9. Если есть в нем элементы, равные 3, то заменить их последующими числами. В-2 Создать и напечатать одномерный массив случайными числами от 0 до 12 и вывести на экран те из них, которые меньше 7. Создать и напечатать одномерный массив случайными числами от 0 до 15 и вывести на экран те из них, которые больше первого элемента массива. Создать и напечатать одномерный массив случайными числами от 0 до 9. Если есть в нем элементы, равные 8, то заменить их первыми числами.
Нет комментариев для данной презентации
Помогите другим пользователям — будьте первым, кто поделится своим мнением об этой презентации.