78208

Особенности использования массивов в качестве параметров

Лекция

Информатика, кибернетика и программирование

Открытый массив представляет собой формальный параметр подпрограммы описывающий базовый тип элементов массива но не определяющий его размерности и границы: Procedure MyProcOpenrry: rry of Integer; Внутри подпрограммы такой параметр трактуется как одномерный массив с нулевой нижней границей. Используя минимальный индекс как ноль и значение возвращаемое функцией HIGH как максимальный индекс подпрограмма может обрабатывать...

Русский

2015-02-07

57.5 KB

5 чел.

екция: Особенности использования массивов в качестве параметров      Страница  2 из 2

Оглавление

[1] Оглавление

[2] Параметры-массивы и параметры-строки

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

Комбинированный урок №10

Тема: Метод пошаговой детализации. Особенности использования массивов в качестве параметров.

Цель: изучить приемы составления программ с использованием массивов в качестве параметров на примерах.

Параметры-массивы и параметры-строки 

Может сложиться впечатление, что объявление переменных в списке формальных параметров подпрограммы ничем не отличается от объявления их в разделе описания переменных. Действительно, в обоих случаях много общего, но есть одно существенное различие: типом любого параметра в списке формальных параметров может быть только стандартный или ранее объявленный тип. Поэтому нельзя, например, объявить следующую процедуру:

Procedure S (a: array [1..10] of Real);

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

Если необходимо передать какой-то элемент массива, то проблем, как правило, не возникает, но если в подпрограмму передается весь массив, то следует первоначально описать его тип. Например:

type atype = array [1..10]of Real; 

Procedure S(a: atype);

....... 

Поскольку строка является фактически своеобразным массивом, ее передача в подпрограмму осуществляется аналогичным образом:

type  intype = String [15] ;

outype = String [30] ; 

Function St (s : intype): outype;

.......

Открытый массив представляет собой формальный параметр подпрограммы, описывающий базовый тип элементов массива, но не определяющий его размерности и границы:

Procedure MyProc(OpenArray: array of Integer);

Внутри подпрограммы такой параметр трактуется как одномерный массив с нулевой нижней границей. Верхняя граница открытого массива возвращается функцией HIGH. Используя минимальный индекс как «ноль», и значение, возвращаемое функцией HIGH, как максимальный индекс, подпрограмма может обрабатывать одномерные массивы произвольной длины:

Пример 1: Иллюстрация использования открытых массивов: программа выводит на экран содержимое двух одномерных массивов разной длины с помощью одной процедуры ArrayPrint .

Procedure  ArrayPrint(aArray: array of Integer); 

var  k: Integer; 

begin

for k := 0 to High(aArray) do  Write(aArray[k]:8);

WriteLn 

end;

const A:array [-1..2] of Integer = (0,1,2,3); 

B: array [5..7] of Integer = (4,5,6); 

begin

 ArrayPrint(A);

 ArrayPrint(B) 

end.

Как видно из этого примера, фактические границы массивов А и В, передаваемых в качестве параметров вызова процедуре ArrayPrint, не имеют значения. Однако размерность открытых массивов (количество индексов) всегда равна 1. За этим следит компилятор. Если бы, например, добавить в программу двумерный массив С

var

С: array [1..3,1..5] of Integer;

то обращение

ArrayPrint(С);

вызывало бы сообщение об ошибке

Error26: Type mismatch. 

(Ошибка 26: Несоответствие типов.)

Пример 2: Программа вводит фамилию и выводит на экран фамилию с прописной буквы

uses crt;

type intype =string[15];

    outype = string[25];

var s : intype;

   i : integer;

function st(w: intype):outype;

begin

    w[1]:=upcase(s[1]); { изменение первого символа со строчного на прописной }

    st:=w+' TBiP''2009';{ склеивание символов }

end;

begin

    write('Vvedite famely: ');

    readln(s);

    writeln(st(s));

    readkey;

end.

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

1. Как оформляются параметры-массивы и параметры-строки? Приведите примеры.

2. Дайте определение понятию «открытый массив».


 

А также другие работы, которые могут Вас заинтересовать

17735. Понятие и сущность перестрахования 44.5 KB
  Тема 9 Перестрахование Понятие и сущность перестрахования Виды перестрахования Понятие и сущность перестрахования Перестрахование является необходимым условием обеспечения финансовой устойчивости страховых операций и нормальной деятельности .В больш...
17736. Сетевые адаптеры. Драйверы сетевых адаптеров 40 KB
  Лабораторная работа №8 Сетевые адаптеры. Драйверы сетевых адаптеров. Цель работы: изучить оборудование предназначенное для передачи данных; научиться устанавливать драйверы плат сетевых адаптеров в среде операционной системы Windows NT Server; научиться наст...
17738. ПРИНЦИПЫ ФУНКЦИОНИРОВАНИЯ ЛОКАЛЬНЫХ ВЫЧИСЛИТЕЛЬНЫХ СЕТЕЙ 124.87 KB
  Лабораторная работа №1 ПРИНЦИПЫ ФУНКЦИОНИРОВАНИЯ ЛОКАЛЬНЫХ ВЫЧИСЛИТЕЛЬНЫХ СЕТЕЙ Цель работы : ознакомиться с основными принципами функционирования локальных вычислительных сетей Основные компоненты и типы ЛВС ЛВС на базе ПК получили в настоящее время
17739. Компоновка локальных вычислительных сетей 103.5 KB
  Лабораторная работа №2. Компоновка локальных вычислительных сетей Цель работы: изучить варианты компоновки локальных вычислительных сетей Понятие топологии сети и базовые топологии Существует большое число способов которыми можно соединить компьютеры
17740. ФИЗИЧЕСКАЯ СРЕДА ПЕРЕДАЧИ ДАННЫХ 205.5 KB
  Лабораторная работа №3 Физическая среда передачи данных Цель работы: изучить оборудование предназначенное для передачи данных Основные типы кабельных и беспроводных сред передачи данных На сегодня большая часть компьютерных сетей используют для соединен...
17741. РАСШИРЕНИЕ ЛОКАЛЬНЫХ СЕТЕЙ 230.5 KB
  Лабораторная работа № 6 РАСШИРЕНИЕ ЛОКАЛЬНЫХ СЕТЕЙ Цель занятия: Изучить причины расширения ЛВС и используемые для этого устройства Краткие сведения из теории ЛВС имеют свойство перерастать начальные проекты. С ростом компаний растут и ЛВС. Изменение профи...
17742. СЕТЕВЫЕ АРХИТЕКТУРЫ 219.5 KB
  Лабораторная работа №5. СЕТЕВЫЕ АРХИТЕКТУРЫ Цель работы : Ознакомиться со стандартами топологией и протоколами сети. Краткие сведения из теории Сетевая архитектура это комбинация стандартов топологий и протоколов необходимых для создания работоспособной с
17743. Основы протокола TCP/IP 180 KB
  Лабораторная работа №7 Основы протокола TCP/IP Цель работы: Изучить уровни TCP/IP протокола. И IP адресацию. Краткие сведения из теории Термин TCP/IP обычно обозначает все что связано с протоколами TCP и IP. Он охватывает целое семейство протоколов прикладные программы и д...