Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

If 4 in C then


Else

Else

Begin

Begin

Var

Var

Пример

Var

Type

Begin

Begin

Begin

Var

Type

Uses

Begin

Var

Пример 4.

Begin

Var

mA, mB: array ofinteger; // Динамические массивы

mC, mD: array[0..0]ofinteger; // Статические массивы

mC[0] := 2; mD[0] := 2;

writeln(mC = mD); // True. Содержимое массивов одинаково.

 

SetLength(mA, 1); SetLength(mB, 1);

mA[0] := 2; mB[0] := 2;

writeln(mA = mB); // False. Содержимое массивов одинаково,

// а вот указатели на массивы НЕ равны.

writeln(mA[0] = mB[0]); // True. Эти элементы массивов равны.

end;


 

i, n: integer;

mA: array ofinteger;

n:=7; SetLength(mA, n); fori:=0 ton-1 domA[i]:=i;

 

fori:=0 ton-1 dowrite(mA[i]:3); // 0 1 2 3 4 5 6

 

n:=4; SetLength(mA, n);

fori:=0 ton-1 dowrite(mA[i]:3); // 0 1 2 3

// Массив «подрезан» до 4 элементов. Эти элементы сохранили свои значения.

 

n:=8; SetLength(mA, n);

fori:=0 ton-1 dowrite(mA[i]:3); // 0 1 2 3 0 0 0 0

// Массив расширен до 8 элементов.

// Но нет гарантии, что новым элементам придается значение 0.

// Эти значения, вообще говоря, непредсказуемы.

 

readln;

 

writeln(Length(mA)); // 8

writeln(High(mA)); // 7

writeln(Low(mA)); // 0

 

Finalize(mA);

 

writeln(Length(mA)); // 0

writeln(High(mA)); // -1

writeln(Low(mA)); // 0

 

readln;

end.


Пример 5.Двумерные массивы (точнее, массивы массивов)

 

programProject1;

{$APPTYPE CONSOLE}

 

SysUtils;

 

MyRowType = array ofinteger;

// MyRowType – указатель на массив элементов типа integer.

 

i, j: integer;

mA: array ofMyRowType;

// mA – указатель на массив указателей (на массив элементов типа integer)


SetLength(mA, 3); // Размещен в памяти массив указателей на строки матрицы.

// Сами строки пока в памяти не размещены.

fori := 0 to2 do

SetLength(mA[i], 4);

// Размещены в памяти строки матрицы. Длина каждой строки – 4 числа.

 

fori := 0 to2 do

forj := 0 to3 do

mA[i][j] := 10 * (i + 1) + (j + 1);

// Допускается обращение mA[i, j]

 

fori := 0 to2 do

forj := 0 to3 do

write(mA[i][j]:5);

writeln;

end;

 

fori := 0 to2 do

Finalize(mA[i]);

// Память освобождена из-под строк матрицы.

// Указатели на строки пока доступны.

 

writeln;

 

fori := 0 to2 do

SetLength(mA[i], i+4);

// Размещены в памяти новые строки «матрицы». Длины строки неодинаковы.

// Таким образом, «матрица» - не совсем верное определение.

// Правильнее говорить, что mA есть «Jagged Array» (зазубренный массив).



 

 

fori := 0 to2 do

forj := 0 toi+3 do

mA[i][j] := 10*(i+1)+(j+1);

 

fori := 0 to2 do

forj := 0 toi+3 do write(mA[i][j]:5);

writeln;

end;

 

fori := 0 to2 do Finalize(mA[i]);

// Память освобождена из-под строк матрицы.

 

Finalize(mA);

// Память освобождена и из-под указателей на строки.

 

readln;

end.


Тип «Множество»

 

 

<Объявление типа «Множество»> :: =

<Имя типа «Множество»> =

Set Of <Список (перечисление) или диапазон значений>;

 

<Объявление переменной типа «Множество»> :: =

<Имя переменной> : Set Of <Список (перечисление) или диапазон значений>;

//или

<Имя переменной> :<Имя типа «Множество»>;

 


Операции над множествами:

+ Объединение

- Вычитание

* Пересечение

 

Проверка отношения двух множеств:

= Равно

<> Не равно

<= Левое множество содержится в правом

>= Левое множество содержит в себе правое

 

Проверка принадлежности элемента множеству:

inЛевый элемент принадлежит правому множеству

 


 

 

type

EnglishLetterType = 'A' .. 'z'; // Все английские буквы

EnglishLettersSetType = set ofEnglishLetterType;

SetOfDigitsType = set of0 .. 9; // Все десятичные цифры

MonthesType = (June, July, August); // Все летние месяцы

EnglishLetters: EnglishLettersSetType;

P: SetOfDigitsType;

A, B, C: set of0 .. 9;

M: MonthesType;

 


// procedureShowElementsOfSet(Tittle: string; z: set of0..9);

procedureShowElementsOfSet(sTittle: string; z: SetOfDigitsType);

i: integer;

Write('Set "', sTittle,'" Containes: ');

fori := 0 to9 do

ifi in z thenWrite(i:2);

 

writeln;

end;

 

if EnglishLetters = [] then

writeln('EnglishLetters Is Empty')

writeln('EnglishLetters Is Not Empty');

 

A := [2,4,5,6,7,8];

B := [1,3,5,7];

C := A * B;

 

ifC = [] then

writeln('c Is Empty')

writeln('c Is Not Empty');

 

writeln(' 4 Is inC')

<== предыдущая лекция | следующая лекция ==>
Пример 3 | Метод динамического программирования

Дата добавления: 2014-01-04; Просмотров: 172; Нарушение авторских прав?


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



ПОИСК ПО САЙТУ:


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

studopedia.su - Студопедия (2013 - 2020) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление
Генерация страницы за: 0.013 сек.