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

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

Program Sort;






Const

M = 200; { Максимальный размер массива }

Type

MasReal = Array [1..M] Of Real;

Var

A, B: MasReal;

I, N: Integer;

Procedure SortY (L: Integer; Var Y: MasReal);

{ Сортировка вещественных чисел методом " пузырька" }

{ L – размер массива; Y – массив вещественных чисел}

Var

i, k: Integer;

Z: Real;

Begin

For k: =1 To L-1 Do

For i: =1 To L-k Do

If Y[i]> Y[i+1]Then

Begin

Z: = Y[i];

Y[i]: = Y[i+1];

Y[i+1]: = Z

End;

End; { SortY }

 

Begin {Основная программа}

Writeln(’ Введите размер массивов’);

ReadLn(n);

Writeln(’Введите первый массив’);

For i: =1 To n Do

ReadLn(A[i]);

Writeln (’Введите второй массив’);

For i: = 1 To n Do

ReadLn(B[i]);

SortY (n, A); { Сортировка массива А }

SortY (n, B); { Сортировка массива В }

Writeln (’Первый массив’);

For i: = 1 To n Do

Write (A[i]: 8: 3);

Writeln;

Writeln (’Второй массив’);

For i: = 1 To n Do

Write(B[i]: 8: 3);

Readln; { Ожидание нажатия клавиши ENTER }

End.

 

Расположение процедур в программе

 
 

Процедуры могут быть вложенными друг в друга (см. рис. 2.10, а).

 

P1 и P3 - внешние процедуры, Р1, P2 и P3 - внешние

Р2 – внутренняя процедуры

 

Рис. 2.10. Расположение процедур в программе

При таком расположении обращение к внутренней процедуре P2 возможно только из охватывающей ее процедуры P1, а из внешних (на рис. – Р3) - невозможно. Более предпочтительным является расположение процедур в виде рис. 2.10, б, на котором все процедуры являются внешними по отношению друг к другу.

При таком расположении:

1) любая процедура имеет доступ к любой другой (в том числе и к самой себе);

2) облегчается отладка процедур, т.к. они могут быть написаны и отлажены независимо друг от друга.

 







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



Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...

Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...

ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...

Теория усилителей. Схема Основная масса современных аналоговых и аналого-цифровых электронных устройств выполняется на специализированных микросхемах...

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

Ганглиоблокаторы. Классификация. Механизм действия. Фармакодинамика. Применение.Побочные эфффекты Никотинчувствительные холинорецепторы (н-холинорецепторы) в основном локализованы на постсинаптических мембранах в синапсах скелетной мускулатуры...

Шов первичный, первично отсроченный, вторичный (показания) В зависимости от времени и условий наложения выделяют швы: 1) первичные...

Седалищно-прямокишечная ямка Седалищно-прямокишечная (анальная) ямка, fossa ischiorectalis (ischioanalis) – это парное углубление в области промежности, находящееся по бокам от конечного отдела прямой кишки и седалищных бугров, заполненное жировой клетчаткой, сосудами, нервами и...

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

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

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