Главная Случайная страница


Полезное:

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


Категории:

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






Пример выполнения задания. Имеется массив A, содержащий n элементов





Имеется массив A, содержащий n элементов. Разместить элементы массивы в порядке возрастания их значений.

При решении этой задачи воспользуемся сортировкой по методу пузырька. Суть этого метода состоит в организации упорядоченного списка элементов, в который на соответствующие им места добавляются один за другим неотсортированные элементы. На рис. 3.1 представлена схема описания алгоритма сортировки методом пузырька.

 

Начало
Ввод исходных данных
i= 1, n-1
k = i, 1  
ak>ak+1
x=ak ak=ak+1 ak+1=x
Вывод результата
Конец
да
нет

Рис. 3.1. Схема алгоритма сортировки методом пузырька.

 

Текст программы имеет следующий вид:

{Цель: сортировка элементов одномерного массива в порядке }

{ возрастания их значений }

{Метод: сортировка методом пузырька. }

{Переменные:a-исходный массив }

{ n-количество элементов }

{ i,k-параметры циклов }

{ x-вспомогательная переменная }

Program Sort;

Const

Nmax=100;

var

a: array [1..Nmax] of real;

i, k, n: integer;

x: real;

Begin

writeln('Задайте количество элементов массива');

Read(n);

WriteLn('введите ', n, 'чисел');

for i:=1 to n do

Read(a[i]);

Writeln;

{печать массива}

Writeln('исходный массив:');

for i:=1 to n do

Write(a[i]:7:2);

Writeln;

{ сортировка массива}

for i:=1 to n-1 do

begin

for k:=i downto 1 do

if a[k]>a[k+1]

then

begin

x:=a[k];

a[k]:=a[k+1];

a[k+1]:=x;

end;

end;

{вывод результата}

Writeln('отсортированный массив');

for i:=1 to n do

Write(a[i]:7:2);

Writeln;

End.

 

ИСПОЛЬЗОВАНИЕ ПРОЦЕДУР ДЛЯ ОБРАБОТКИ МАССИВОВ

Подготовка к работе

По указанной литературе и методическим указаниям к данной работе изучить порядок работы. Ответить на контрольные вопросы.

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

1. Что называется подпрограммой? В чём состоит сходство и различие подпрограмм-процедур и подпрограмм-функций в языке Турбо Паскаль?

2. В чём различие между стандартными и определёнными пользователем подпрограммами?

3. Опишите последовательность событий при вызове процедуры, функции?

4. В каких случаях в программе указывается директива компилятору{$I}?

5. Что называется параметром, и каково его назначение? Формальные, фактические параметры, их взаимосвязь.

6. Каковы отличия параметров-значений от параметров-переменных? Особенности их описания и применения.

7. Чем отличаются локальные и глобальные параметры? Какова область их действия?

8. Что такое рекурсия?

Date: 2015-10-21; view: 675; Нарушение авторских прав; Помощь в написании работы --> СЮДА...



mydocx.ru - 2015-2024 year. (0.005 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию