Программирование на языке Pascal

На главную

Введение

Алгоритм

Язык Pascal

Переменные, константы, типы

Выражения языка Pascal

Условные операторы языка Pascal

Циклы языка Pascal

Массивы языка pascal

Записи в языке Pascal

Строковый тип данных в языке Pascal

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

Лабораторная работа № 1 «Алгоритмы ветвления»

Лабораторная работа № 2 «Циклические алгоритмы»

Лабораторная работа № 3 «Обработка массивов»

Лабораторная работа № 4 «Работа со строками и записями»

Список литературы

Лабораторная работа № 3 

«Обработка массивов»

Цель работы: научиться работать с одномерными и двумерными массивами средствами языка Pascal. Задание: По номеру в группе (N) определите номер задания в таблице (номер задания = N mod 10). Массивы заполнять случайными числами.

Номер задания Задание
1 Отсортируйте первую половину массива по убыванию, а вторую по возрастанию. Вывести полученный массив на экран. Размерность массива задается с клавиатуры (<20).
2 Реализовать алгоритм умножения матрицы (2-мерный массив) на вектор (1-мерный массив)
3 Для двумерного массива целых чисел (размерность задается с клавиатуры) найти дробную часть от результата деления произведения элементов главной диагонали на сумму элементов побочной диагонали
4 Отсортировать положительные элементы массива по возрастанию, пропуская отрицательные и нули. Вывести массив до и после сортировки
5 Отсортировать отрицательные элементы массива по убыванию, пропуская положительные и нули. Вывести массив до и после сортировки
6 Отсортировать отрицательные элементы массива по убыванию, а положительные элементы массива по возрастанию, пропуская нули. Вывести массив до и после сортировки
7 Посчитать сумму всех элементов массива, индекс которых кратен заданному с клавиатуры числу
8 Найти наибольшее отрицательное число в одномерном массиве
9 Отсортировать по возрастанию элементы в каждой строке двумерного массива, не меняя при этом элементы между строками
0 Найти модуль среднего арифметического отрицательных чисел матрицы случайных целых чисел размерностью 10 на 10