Реферат: Массивы в языках Pascal и Basic

Министерство образования РФ

Средняя школа № 4

РЕФЕРАТ

по информатике

Тема: «Массивы в языках Pascalи Basic»

Выполнила:

ученица 10 «А» класса

Рудых Елена

Преподаватель:

Иркутск, 2002
С понятием «массив» приходится сталкиваться при решениинаучно-технических и экономических задач обработки совокупностей <span Arial CYR",«sans-serif»">большогоколичества значений.

<span Arial CYR",«sans-serif»">Массив — это множество однотипныхэлементов, объединённых общим

<span Arial CYR",«sans-serif»">именем и занимающих в компьютере определённую область памяти.

<span Arial CYR",«sans-serif»">Количество элементов в массиве всегда конечно.

<span Arial CYR",«sans-serif»;background:#A0FFFF">В

<span Arial CYR",«sans-serif»"> общемслучае массив — это структурированный тип данных, состоя-

<span Arial CYR",«sans-serif»">щий из фиксированного числаэлементов, имеющих один и тот же тип.

<span Arial CYR",«sans-serif»">Название регулярный тип (или ряды)массивы получили за то, что в

<span Arial CYR",«sans-serif»">них объединены однотипные(логически однородные) элементы, упоря-

<span Arial CYR",«sans-serif»">доченные (урегулированные) поиндексам, определяющим положение

<span Arial CYR",«sans-serif»">каждого элемента в массиве.

<span Arial CYR",«sans-serif»;background:#A0FFFF">В

<span Arial CYR",«sans-serif»">качестве элементов массива можно использовать любой тип дан-

<span Arial CYR",«sans-serif»">ных, поэтому вполне правомерносуществование массивов записей,

<span Arial CYR",«sans-serif»">массивов указателей, массивовстрок, массивов массивов и т.д.

<span Arial CYR",«sans-serif»">Элементами массива могут бытьданные любого типа, включая струк-

<span Arial CYR",«sans-serif»">турированные.

<span Arial CYR",«sans-serif»">Тип элементов массива называетсябазовым. Особенностью языка

<span Arial CYR",«sans-serif»">Паскаль является то, что числоэлементов массива фиксируется при

<span Arial CYR",«sans-serif»">описании и в процессе выполнения программы неменяется.

<span Arial CYR",«sans-serif»">Элементы, образующие массив,упорядочены таким образом, что каж-

<span Arial CYR",«sans-serif»">дому элементу соответствуетсовокупность номеров (индексов), оп-

<span Arial CYR",«sans-serif»">ределяющих его местоположение в общей последовательности. Доступ

<span Arial CYR",«sans-serif»">к каждому отдельному элементуосуществляется путем индексирования

<span Arial CYR",«sans-serif»">элементов массива. Индексыпредставляют собой выражения любого

<span Arial CYR",«sans-serif»">скалярного типа (чаще целого),кроме вещественного.

<span Arial CYR",«sans-serif»">Тип индекса определяет границыизменения значений индекса. Для

<span Arial CYR",«sans-serif»">описания массива предназначенословосочетание array of (массив из).

<span Arial CYR",«sans-serif»"> 

Одномерные массивы

<span Arial CYR",«sans-serif»">Массивом называется совокупностьданных, выполняющих аналогичные

<span Arial CYR",«sans-serif»">функции, и обозначаемая однимименем. Если за каждым элементом

<span Arial CYR",«sans-serif»">массива закреплен только один егопорядковый номер, то такой мас-

<span Arial CYR",«sans-serif»">сив называется линейным, илиодномерным.

<span Arial CYR",«sans-serif»"> 

Массив в Бейсике

<span Arial CYR",«sans-serif»">Описывать массив DIM A(N) — этозначит предоставить

<span Arial CYR",«sans-serif»">свободных ячеек в памяти ЭВМ для массива с именем А.

<span Arial CYR",«sans-serif»">Если описание массива отсутствует,то под одномерный

<span Arial CYR",«sans-serif»">массив выделяется 10 ячеек памяти.

<span Arial CYR",«sans-serif»">Каждый элемент массива в общем виде описывается как А(I), где

<span Arial CYR",«sans-serif»">А — имя массива,

<span Arial CYR",«sans-serif»">I — номер или индекс массива(0<=I<= N, но практически

<span Arial CYR",«sans-serif»">употребляется 1<=I<=N)

<span Arial CYR",«sans-serif»">A(I) — значение элемента массива.

<span Arial CYR",«sans-serif»">Массив в Паскале

<span Arial CYR",«sans-serif»"><имя массива>:= array<количество элементов> of <тип переменной>;

<span Arial CYR",«sans-serif»">Каждый элемент массива в общем виде описывается как А[I], где

<span Arial CYR",«sans-serif»">А — имя массива,

<span Arial CYR",«sans-serif»">I — номер или индекс массива(0<=I<=N, но практически

<span Arial CYR",«sans-serif»">употребляется 1<=I<=N)

<span Arial CYR",«sans-serif»">A[I] — значение элемента массива.

<span Arial CYR",«sans-serif»"> 

<span Arial CYR",«sans-serif»">Действия над массивами

<span Arial CYR",«sans-serif»">Для работы с массивом как единымцелым используется идентифика-

<span Arial CYR",«sans-serif»">тор массива без указания индекса в квадратных скобках. Массив мо-

<span Arial CYR",«sans-serif»">жет участвовать только в операциях отношения «равно»,«не равно»

<span Arial CYR",«sans-serif»">и воператоре присваивания. Массивы,участвующие в этих действи-

<span Arial CYR",«sans-serif»">ях, должны быть идентичны поструктуре, т. е. иметь одинаковые

<span Arial CYR",«sans-serif»">типы индексов и одинаковые типыкомпонентов.

<span Arial CYR",«sans-serif»">Например, если массивы А и В описаны как

<span Arial CYR",«sans-serif»">var А, В: array[1..20] of real; то применение к ним допустимых

<span Arial CYR",«sans-serif»">операций даст следующий результат:

<span Arial CYR",«sans-serif»"> 

<span Arial CYR",«sans-serif»">Выражение Результат

<span Arial CYR",«sans-serif»"> 

<span Arial CYR",«sans-serif»">А=ВTrue, если значение каждого элемента массива А равно

<span Arial CYR",«sans-serif»">соответствующему значению элементамассива В

<span Arial CYR",«sans-serif»"> 

<span Arial CYR",«sans-serif»">А<>В True, если хотя бы одно значениеэлемента массива А

<span Arial CYR",«sans-serif»">не равно значению соответствующегоэлемента массива В

<span Arial CYR",«sans-serif»"> 

<span Arial CYR",«sans-serif»">А:=В Все значения элементов массива В присваиваются соответ-

<span Arial CYR",«sans-serif»">ствующим элементам массива А.Значения элементов

<span Arial CYR",«sans-serif»">массива В остаются неизменны.

<span Arial CYR",«sans-serif»"> 

Действия над элементами массива

<span Arial CYR",«sans-serif»">После объявления массива каждыйего элемент можно обработать,

<span Arial CYR",«sans-serif»">указав идентификатор (имя) массиваи индекс элемента в квадратных

<span Arial CYR",«sans-serif»">скобках. Например, запись Mas[2],VectorZ[10] позволяет обратить-

<span Arial CYR",«sans-serif»">ся ко второму элементу массива Masи десятому элементу массива

<span Arial CYR",«sans-serif»">VectorZ.

<span Arial CYR",«sans-serif»">При работе с двумерным массивомуказываются два индекса, с

<span Arial CYR",«sans-serif»">n-мерным массивом — n индексов.Например, запись MatrU[4,4] дела-

<span Arial CYR",«sans-serif»">ет доступным для обработкизначение элемента, находящегося вчет-

<span Arial CYR",«sans-serif»">вертой строке четвертого столбцамассива MatrU.

<span Arial CYR",«sans-serif»">Индексированные элементы массиваназываются индексированными пе-

<span Arial CYR",«sans-serif»">ременными и могут бытьиспользованы так же, как и простые пере-

<span Arial CYR",«sans-serif»">менные. Например, они могутнаходиться в выражениях в качестве

<span Arial CYR",«sans-serif»">операндов, использоваться в операторах for, while, repeat, вхо-

<span Arial CYR",«sans-serif»">дить в качестве параметров воператоры Read, Readln, Write, Wri-

<span Arial CYR",«sans-serif»">teln; им можно присваивать любыезначения, соответствующие их ти-

<span Arial CYR",«sans-serif»">пу.

<span Arial CYR",«sans-serif»"> 

Алгоритмы сортировки одномерных массивов

<span Arial CYR",«sans-serif»">Сортировка — один из наиболеераспространённых процессов совре-

<span Arial CYR",«sans-serif»">менной обработки данных. Сортировкойназывается распределение

<span Arial CYR",«sans-serif»">элементов массива в соответствии с определёнными правилами.Нап-

<span Arial CYR",«sans-serif»">ример, сортировка массива повозрастанию или убыванию его элемен-

<span Arial CYR",«sans-serif»">тов.

Обменная сортировка (метод «пузырька»).

<span Arial CYR",«sans-serif»">Алгоритм начинается со сравнения1-го и 2-го элементов массива.

<span Arial CYR",«sans-serif»">Если 2-й элемент меньше 1-го, тоони меняются местами. Этот про-

<span Arial CYR",«sans-serif»">цесс повторяется для каждой парысоседних элементов массива, пока

<span Arial CYR",«sans-serif»">все N элементов не будутобработаны. За один «проход» массива са-

<span Arial CYR",«sans-serif»">мый большой элемент встанет настаршее (N-е) место. Далее алго-

<span Arial CYR",«sans-serif»">ритм повторяется, причем на р-м«проходе» первые (N-p) элементов

<span Arial CYR",«sans-serif»">сравниваются со своими правымисоседями. Если на очередном «про-

<span Arial CYR»,«sans-serif»">ходе" перестановок не было,то алгоритм свою работу закончил. Та-

<span Arial CYR",«sans-serif»">ким образом, самые«легкие» элементы впроцессе исполнения алго-

<span Arial CYR",«sans-serif»">ритма постепенно«всплывают».

<span Arial CYR",«sans-serif»"> 

Сортировка вставками.

<span Arial CYR",«sans-serif»">Вначале упорядочиваются два первыхэлемента массива. Они образу-

<span Arial CYR",«sans-serif»">ют начальное упорядоченноемножество S. Далее на каждом шаге бе-

<span Arial CYR",«sans-serif»">рется следующий по порядку элементи вставляется в уже упорядо-

<span Arial CYR",«sans-serif»">ченное множество S так, чтобыслева от него все элементы были не

<span Arial CYR",«sans-serif»">больше, а справа — не меньшеобрабатываемого. Место для вставки

<span Arial CYR",«sans-serif»">текущего элемента в упорядоченное множество S ищетсяметодом де-

<span Arial CYR",«sans-serif»">ления пополам. Алгоритм сортировкизаканчивает свою работу, когда

<span Arial CYR",«sans-serif»">элемент, стоящий на N-м месте,будет обработан. (Именно таким об-

<span Arial CYR",«sans-serif»">разом игроки в бридж обычно упорядочивают свои карты).

<span Arial CYR",«sans-serif»"> 

Сортировка выбором.

<span Arial CYR",«sans-serif»">Находится наибольший элемент в массиве из N элементов (пусть он

<span Arial CYR",«sans-serif»">имеет номер р) и меняется местамис элементом, стоящим на N-м

<span Arial CYR",«sans-serif»">месте, при условии, чтоN<>p. Из оставшихся (N-1) элементов снова

<span Arial CYR",«sans-serif»">выделяется наибольший и меняетсяместами с элементом, стоящим на

<span Arial CYR",«sans-serif»">(N-1)-м месте и т. д. Алгоритмзаканчивает свою работу, когда

<span Arial CYR",«sans-serif»">элементы, стоящие на 1-м и 2-мместах в массиве, будутупорядоче-

<span Arial CYR",«sans-serif»">ны (для этого понадобится N-1«проход» алгоритма). Аналогично

<span Arial CYR",«sans-serif»">данный алгоритм можно применять ик наименьшим элементам.

<span Arial CYR",«sans-serif»"> 

Двумерные массивы

<span Arial CYR",«sans-serif»">Двумерным называется массив,элемент которого зависит от его

<span Arial CYR",«sans-serif»">местоположения в строке и в столбце. Вобщем виде элемент матрицы

<span Arial CYR",«sans-serif»">обозначается как A(I,J), где А — имя массива,

<span Arial CYR",«sans-serif»">I — индекс (номер) строки,

<span Arial CYR",«sans-serif»">J — индекс (номер) столбца.

<span Arial CYR",«sans-serif»"> 

Описание матрицы на языке Бейсик

<span Arial CYR",«sans-serif»">DIM A(I,J) — описать матрицу(двумерный массив) это значит пре-

<span Arial CYR",«sans-serif»">доставить свободные ячейки в памяти ЭВМ для элементов данной мат-

<span Arial CYR",«sans-serif»">рицы. В памяти ЭВМ элементы матрицы располагаются по строкам, по-

<span Arial CYR",«sans-serif»">этому индекс строки изменяетсямедленнее, чем индекс столбца.

<span Arial CYR",«sans-serif»">Прямоугольной называется матрица, в которой количество строк не

<span Arial CYR",«sans-serif»">равно количеству столбцов.

<span Arial CYR",«sans-serif»">Квадратной называется матрица, в которой количество строк равно

<span Arial CYR",«sans-serif»">количеству столбцов.

<span Arial CYR",«sans-serif»"> 

Описание матрицы на языке Паскаль

<span Arial CYR",«sans-serif»">Матрицу можно задать двумяспособами:

<span Arial CYR",«sans-serif»"> 

<span Arial CYR",«sans-serif»">I. <имя матрицы>: array<количество строк> of array <количество

столбцов> of <типпеременной>;

<span Arial CYR",«sans-serif»"> 

<span Arial CYR",«sans-serif»">II. <имя матрицы>: array<количество строк >,<количество столб-

цов> оf <типпеременной>].

<span Arial CYR",«sans-serif»"> 

Соотношение индексов вквадратной матрице

<span Arial CYR",«sans-serif»">I=J элементы матрицы расположенына главной

<span Arial CYR",«sans-serif»">диагонали

<span Arial CYR",«sans-serif»">I<J элементы матрицырасположены над главной

<span Arial CYR",«sans-serif»">диагональю

<span Arial CYR",«sans-serif»">I>J элементы матрицырасположены под главной

<span Arial CYR",«sans-serif»">диагональю

<span Arial CYR",«sans-serif»">I+J=N+I элементы матрицырасположены на побочной

<span Arial CYR",«sans-serif»">диагонали (N — количество строкили

<span Arial CYR",«sans-serif»">столбцов в квадратной матрице)

<span Arial CYR",«sans-serif»">I+J<N+I элементы матрицырасположены над побочной

<span Arial CYR",«sans-serif»">диагональю

<span Arial CYR",«sans-serif»">I+J>N+I элементы матрицырасположены под побочной

<span Arial CYR",«sans-serif»">диагональю.

<span Arial CYR",«sans-serif»"> 

<span Arial CYR",«sans-serif»">Ниже приведены примеры задач смассивами на языке Turbo Pascal.

<span Arial CYR",«sans-serif»"> 

<span Arial CYR",«sans-serif»">Пример 1. Ввод значений элементовмассива с помощью генератора

<span Arial CYR",«sans-serif»">случайных чисел и вывод их в строчку.

<span Arial CYR",«sans-serif»"> 

<span Arial CYR",«sans-serif»">Примечание:

<span Arial CYR",«sans-serif»">Для использования случайных чисел в TP используются операторы

<span Arial CYR",«sans-serif»">random:real — генерирует случайныечисла в диапазоне 0...0.99.

<span Arial CYR",«sans-serif»">random(i:word):word — генерируетслучайные числа в диапазоне

<span Arial CYR",«sans-serif»">0...1.

<span Arial CYR",«sans-serif»">randomize — изменение базыгенератора случайных чисел.

<span Arial CYR",«sans-serif»"> 

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">programmas1;

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">var

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">a: array[1..10] of integer;

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">i:integer;

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">begin

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">randomize;

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">for i:=1to 10 do

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">begin

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">a[i]:=random(20);

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">write('a(',i, ')=', a[i], ' ')

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">end;

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">readln

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">end.

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US"> 

<span Arial CYR",«sans-serif»">Пример 2. Составить программузаполнения одномерного массива, так

<span Arial CYR",«sans-serif»">чтобы

<span Arial CYR",«sans-serif»; mso-ansi-language:EN-US"> <span Arial CYR",«sans-serif»">его<span Arial CYR",«sans-serif»; mso-ansi-language:EN-US"> i-<span Arial CYR",«sans-serif»">ый<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US"> <span Arial CYR",«sans-serif»">элемент<span Arial CYR",«sans-serif»; mso-ansi-language:EN-US"> <span Arial CYR",«sans-serif»">был<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US"> <span Arial CYR",«sans-serif»">равен<span Arial CYR",«sans-serif»; mso-ansi-language:EN-US"> a[i]=(i*i+1)/sin(i).

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US"> 

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">programmas2;

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">var a:array [1..10] of real;

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">i:integer;

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">begin

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">for i:=1to 10 do

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">begin

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">a[i]:=(i*i+1)/sin(i);

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">writeln('a(',i, ')=', a[i], ' ');

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">end;

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">readln

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">end.

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US"> 

<span Arial CYR",«sans-serif»">Пример 3. Составить программуопределения количества элементов

<span Arial CYR",«sans-serif»">одномерного массива, значениеэлементов которых меньше

<span Arial CYR",«sans-serif»">заданного действительного числа t.

<span Arial CYR",«sans-serif»"> 

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">programmas3;

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">var a:array [1..10] of real;

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">i,k:integer; t:real;

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">begin

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">write('

<span Arial CYR",«sans-serif»">Введите<span Arial CYR",«sans-serif»; mso-ansi-language:EN-US"> <span Arial CYR",«sans-serif»">число<span Arial CYR",«sans-serif»; mso-ansi-language:EN-US"> t=');

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">read(t);

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">k:=0;

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">for i:=1to 10 do

<span Arial CYR",«sans-serif»">begin

<span Arial CYR",«sans-serif»">write('Введите значение элементаa(', i, ') = ');

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">readln(a[i]);

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">ifa[i]<t then k:=k+1

<span Arial CYR",«sans-serif»">end;

<span Arial CYR",«sans-serif»">writeln('Ответ: Количествоэлементов, меньших заданного числа t,');

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">writeln('

<span Arial CYR",«sans-serif»">равно<span Arial CYR",«sans-serif»; mso-ansi-language:EN-US"> k=',k);

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">readln

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">end.

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US"> 

<span Arial CYR",«sans-serif»">Пример 4. Нахождение средизначений элементов, находящихся на

<span Arial CYR",«sans-serif»">главной диагонали матрицы,наибольшего и наименьшего.

<span Arial CYR",«sans-serif»"> 

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">programmas4;

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">var

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">a:array[1..10,1..10] of integer;

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">i,j,max,min:integer;

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">begin

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">for i:=1to 10 do

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">for j:=1to 10 do

<span Arial CYR",«sans-serif»">begin

<span Arial CYR",«sans-serif»">write('Введите значение элементаматрицы = ');

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">readln(a[i,j])

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">end;

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">max:=a[1,1];

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">min:=a[1,1];

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">for i:=1to 10 do

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">begin

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">ifa[i,i]>max

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">then

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">max:=a[i,i];

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">ifa[i,i]<min

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">then

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">min:=a[i,i]

<span Arial CYR",«sans-serif»">end;

<span Arial CYR",«sans-serif»">writeln('Наибольшее значение = ', max);

<span Arial CYR",«sans-serif»">writeln('Наименьшее значение = ',min);

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">readln

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">end

<span Arial CYR",«sans-serif»">.

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US"> 

<span Arial CYR",«sans-serif»">Пример 5. Сортировка массива повозрастанию.

<span Arial CYR",«sans-serif»"> 

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">programSortingMax;

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">vari,j:integer;

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">r,q:real;

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">x:array[1..20] of real;

<span Arial CYR",«sans-serif»">begin

<span Arial CYR",«sans-serif»">writeln('Ведите массив, cостоящийиз 20 чисел:');

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">for i:=1to 20 do read(x[i]);

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">for i:=1to 19 do

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">for j:=i+1to 20 do

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">ifx[i]>=x[j] then

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">begin

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">r:=x[i];x[i]:=x[j]; x[j]:=r

<span Arial CYR",«sans-serif»">end;

<span Arial CYR",«sans-serif»">writeln('Сортировка массива повозрастанию произведена:');

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">for i:=1to 20 do writeln(x[i]);

<span Arial CYR",«sans-serif»">writeln('Для выхода введите любоечисло.');

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">readln(q);

<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">end.

<span Arial CYR",«sans-serif»">

<span Arial CYR",«sans-serif»">

<span Arial CYR",«sans-serif»">

<span Arial Black",«sans-serif»">Источник:

Львовский М.Б. Методическое пособие «BOOK» по информатике для 9-11 классов.Адрес:

http://markbook.chat.ru/book/

еще рефераты
Еще работы по программированию, базе данных