Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

ЛАБОРАТОРНАЯ РАБОТА № 7




Тема: Обработка массивов в программе на TurboPascal 7.0

Цель работы:Изучение возможностей обработки одномерных массивов

Пояснения к работе

Массив, как и таблица, представляет собой совокупность пронумерованных однотипных значений, имеющих общее имя. Элементы массива обозначаются переменными с индексами. Массив, хранящий линейную таблицу, называется одномерным.

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

Var

<имя_массива> : ARRAY [<размер массива>] OF <тип массива>;

Пример:

Var

MAS : ARRAY [1..10] OF Integer;

Описание массива определяет, во-первых, размещение массива в памяти, во-вторых, правила его дальнейшего использования в программе.

Обращение к отдельному элементу массива производится при помощи указания имени массива и квадратных скобках индекса конкретного элемента. В качестве индекса может употребляться любое выражение соответствующего типа.

Например, MAS[5], MAS[i], MAS[m div 2].

 


Пример выполнения работы:

 

Условие   В массиве хранятся сведения о количестве осадков, выпавших за каждый день января. Определить общее количество осадков за месяц   Var I, S : Integer; Mas : Array[1..31] of Integer; Begin For I:=1 to 31 Do Readln(Mas[i]); S:=0; For I:=1 to 31 Do S:=S+Mas[i]; Writeln(S); End.
Условие:   Массив из 10 элементов заполнить случайными значениями. Определить максимальное значение Var I, max : Integer; Mas : Array[1..10] of Integer; Begin For I:=1 to 10 Do Mas[i]:=Random(100); Max:=mas[1]; For I:=2 to 10 Do If Mas[i]>Max Then Max:=Mas[i]; Writeln(‘max=’,Max); End.
Условие:   Массив из 8 элементов заполнить случайными значениями поменять местами значения первого и последнего элемента массива Массив вывести Var I, В : Integer; Mas : Array[1..8] of Integer; Begin For I:=1 to 8 Do Mas[i]:=Random(100); B:=Mas[1]; Mas[1]:=Mas[8]; Mas[8]:=B; For I:=1 to 8 Do Writeln( Mas[i]); End.

Контрольные вопросы

· Что такое массив?

· Какие массивы существуют?

· Как объявляется одномерный массив?

· Как обратится к элементу одномерного массива?


Варианты к лабораторной работе №7

(ваш номер по журналу соответствует номеру варианта)

 

  № Задание 1 Одномерный массив N элементов заполнить случайными значениями, вывести его на экран.
Задание 2 Одномерный массив 8 элементов заполнить значениями с клавиатуры.
Задание 3 Одномерный массив 12 элементов заполнить случайными положительными и отрицательными значениями.
N=8. Ввести К. Подсчитать и вывести количество элементов массива, равных К.
Сформировать второй массив из положительных элементов первого массива.
Определить, является ли массив унимодальным, (т.е. содержит ли он элементы только одного знака).
N=10 Все отрицательные элементы массива заменить нулем.
Определить какая сумма элементов больше, расположенная до максимального элемента или после.
От каждого элемента массива вычесть среднее арифметическое всех элементов массива.
N=12 Все элементы массива, значения которых кратны 5, увеличить в 2 раза. Массив вывести
Определить, образуют ли элементы массива неубывающую последовательность.
Определить произведение четных по значению элементов, стоящих на нечетных номерах.
N=7 Определить сумму положительных элементов массива.
Вывести два самых минимальных элемента массива.
Переставить местами первый положительный элемент с последним отрицательным.
N=12 Подсчитать и вывести количество нулевых элементов массива.
Определить в какой половине массива находится максимальный элемент.
Сформировать второй массив, разместив в нем элементы первого массива, значения которых оканчиваются на 7.
N=15 Определить количество элементов, значения которых больше суммы соседних элементов (предыдущего и последующего).
Определить количество простых чисел в массиве.  
Найти элемент, наиболее близкий к среднему значению всех элементов массива.
N=8 Определить количество элементов массива, значения которых = первому элементу.
Найти сумму минимального и максимального элементов.  
Сформировать второй массив, разместив в нем элементы первого массива со сдвигом на 2 позиции вправо.
N=12 Найти среднее арифметическое значение отрицательных элементов массива.
Сдвинуть элементы массива на одну позицию влево, первый элемент переместить на последнее место.
Каждый третий элемент массива заменить полусуммой двух предыдущих элементов.
N=14 Ввести К. Вывести номера элементов массива, равных К.
Определить содержит ли массив элементы, равные минимальному элементу.
Вывести номера локальных максимумов, т.е. таких Ai, что A i-1 < Ai >A i+1
N=10 Определить сколько раз в массиве меняется знак.
Определить наибольший общий делитель для всех элементов массива.
Определить, какой элемент, максимальный или минимальный, расположен ближе к первому элементу.
N=12 Ввести число К Определить количество элементов массива, значения которых больше K.
Все элементы массива увеличить в 3 раза. Массив вывести.
Определить максимальное значение сред положительных элементов массива.
N=15 Определить количество нечетных значений в массиве.
Поменять местами минимальный и максимальный элементы массива.
Даны два одномерных массива одинаковой размерности. Найти их скалярное произведение.
N=20 Каждый элемент массива заменить его квадратом. Массив вывести.
Вывести первый и второй максимум.
Пусть первый массив А. сформировать массив В по следующему правилу В[1]=A=[1], B[2]=A[12], B[3]=A[2], B[4]=A[11]…
N=15 Первый отрицательный элемент заменить нулем. Массив вывести
Найти среднее арифметическое первых подряд идущих положительных элементов
Поменять местами первый элемент массива с минимальным элементом
N=18 Все отрицательные элементы массива заменить значением первого элемента.
Исходный массив упорядочен по убыванию Ввести число К и вставить его в массив, не нарушая упорядоченности.
Найти номера первого и последнего нулевого элемента.
N=20 Определить сумму отрицательных элементов массива.
Сдвинуть элементы массива на одну позицию вправо, последний элемент переместить на первое место.
Все положительные элементы исходного массива записать во второй массив, все отрицательные элементы – в третий массив
N=15 Определить, каких элементов больше положительных или отрицательных элементов массива
В массиве хранятся оценки, выставленные спортсмену судьями. Определить балл, идущий спортсмену в зачет по олимпийской системе (средний балл без учета максимального и минимального).
Определить, образуют ли элементы, стоящие на нечетных номерах, убывающую последовательность.
N=8 Все отрицательные элементы массива заменить его абсолютным значением.
Определить количество элементов массива, которые равны первому элементу
Определить в какой половине массива находится минимум.
N=10 Определить количество элементов массива, значения которых = последнему элементу.
Определить среднее арифметическое четных значений.
Сформировать второй массив из отрицательных элементов первого массива.
N=12 Подсчитать и вывести количество отрицательных элементов массива.
Определить образуют ли элементы массива геометрическую прогрессию.
Вывести номер минимального элемента.
N=18 Все элементы с нечетными номерами заменить их квадратами.
Определить содержит ли массив элементы, равные максимальному элементу.
Найти номер первого и последнего положительного элемента.
N=20 Все положительные элементы увеличить на 1.
Определить образуют ли элементы массива арифметическую прогрессию.
Определить, является ли массив пилообразным, т.е. выполняется ли условие A1 < A2 > A3 < A4 > A5…
N=16 Каждый элемент, значение которого меньше 10, заменить его квадратом.
Поменять местами две половинки массива (1-5, 2-6, 3-7, 4-8)
Определить произведение нечетных по значению элементов, стоящих на четных номерах.
N=14 Ввести число К. Все положительные элементы массива увеличить на К.
Определить упорядочены ли элементы массива вывести одно из сообщений «по возрастанию», «по убыванию», «не упорядочен».
Вычислить сумму тех элементов массива, чьи значения совпадают с их порядковым номером
N=12 Определить среднее арифметическое значение элементов массива.
Определить, содержит ли массив два соседних четных элемента
Из элементов первого массива сформировать второй массив по правилу: B[I]=A[1]+A[2]+…+A[I]
N=12 Найти сумму четных элементов.
Определить, сколько раз в массиве меняется знак.
Определить минимальное значение сред отрицательных элементов массива.
N=8 Все отрицательные элементы уменьшить на 1. Массив вывести.
Поменять местами значения соседние элементы (1-2, 3-4, …)
Определить, образуют ли элементы, стоящие на четных номерах, возрастающую последовательность.
N=9 Выполнить симметричное отображение массива.
Исходный массив упорядочен по возрастанию Ввести число К и вставить его в массив, не нарушая упорядоченности.
Определить количество различных элементов в массиве (например, дано 2 4 3 2 4 7 4 6 , результат 5).
N=20 Определить количество четных значений в массиве.
Определить, образуют ли элементы массива убывающую последовательность.
Поменять местами второй элемент массива с максимальным элементом.
N=22 Все элементы с нечетными номерами увеличить в 2 раза. Измененный массив вывести.
В массиве хранятся оценки студента. Определить количество 4 и 5
Сформировать второй массив, разместив в нем элементы первого массива, значения которых оканчиваются на 0.
N=12 Ввести число К Определить количество элементов массива, значения которых меньше K .
Вывести элементы массива, расположенные после максимального элемента.
Все элементы с нечетными номерами разделить нацело на первый элемент.
N=10 Все элементы с четными номерами заменить нулем. Измененный массив вывести.
В массиве хранятся оценки студента. Определить количество неудовлетворительных оценок.
Определить среднее арифметическое значение элементов, которые кратны 5.







Дата добавления: 2014-11-10; просмотров: 1637. Нарушение авторских прав; Мы поможем в написании вашей работы!


Рекомендуемые страницы:


Studopedia.info - Студопедия - 2014-2022 год . (0.003 сек.) русская версия | украинская версия