Практикум по решению задач на ЭВМ. Тарова И.Н - 69 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Практикум по решению задач на ЭВМ
Лабораторная работа № 19
Сортировка массивов
1) Написать программы, реализующие алгоритмы сортировки одномерно-
го массива выбором, обменами, простыми вставками.
2) Даны действительные числа а
1
, а
2
, …, а
n
,p, натуральное число k<=n.
Удалить из а
1
, а
2
, …, а
n
элемент с номером k и вставить элемент p так,
чтобы не нарушилась упорядоченность.
3)Даны целые числа а
1
, а
2
, …, а
n
. Получить в порядке возрастания все раз-
личные числа, входящие в а
1
, а
2
, …, а
n
.
4) Дан массив а
1
, а
2
, …, а
n
. Требуется переставить элементы так, чтобы
вначале шла группа элементов, больших первого элемента исходного мас-
сива, затем – сам этот элемент, затем – группа элементов меньших или
равных ему.
5) Даны натуральное число n, действительные числа а
1
, а
2
, …, а
n
. Требу-
ется найти наибольший и наименьший элементы массива, и поменять их
местами.
6) Дан массив действительных чисел a
1
, a
2
,…a
n
. Упорядочить данный мас-
сив по неубыванию.
program sortmassiv(input,output);
uses CRT;
const
N=33;
var n1,l,i,j:integer;c:real; a:array[1..N] of real;
begin
clrscr;
write('Введите количество элементов массива: ');
readln(n1);
writeln('Введите элементы массива: ');
for i:=1 to n1 do
begin
write('a[',i,']->');
readln(a[i]);
end;
for i:=1 to n1-1 do
begin
l:=i;
for j:=i+1 to n1 do
69
                    Практикум по решению задач на ЭВМ


   Лабораторная работа № 19
                         Сортировка массивов
1) Написать программы, реализующие алгоритмы сортировки одномерно-
го массива выбором, обменами, простыми вставками.

2) Даны действительные числа а1, а2, …, аn,p, натуральное число k<=n.
Удалить из а1, а2, …, аn элемент с номером k и вставить элемент p так,
чтобы не нарушилась упорядоченность.

3)Даны целые числа а1, а2, …, аn. Получить в порядке возрастания все раз-
личные числа, входящие в а1, а2, …, аn.

4) Дан массив а1, а2, …, аn. Требуется переставить элементы так, чтобы
вначале шла группа элементов, больших первого элемента исходного мас-
сива, затем – сам этот элемент, затем – группа элементов меньших или
равных ему.

5) Даны натуральное число n, действительные числа а1, а2, …, аn. Требу-
ется найти наибольший и наименьший элементы массива, и поменять их
местами.

6) Дан массив действительных чисел a1, a2,…an. Упорядочить данный мас-
сив по неубыванию.

  program sortmassiv(input,output);
  uses CRT;
  const
  N=33;
  var n1,l,i,j:integer;c:real; a:array[1..N] of real;
  begin
    clrscr;
    write('Введите количество элементов массива: ');
    readln(n1);
    writeln('Введите элементы массива: ');
    for i:=1 to n1 do
       begin
          write('a[',i,']->');
          readln(a[i]);
       end;
    for i:=1 to n1-1 do
       begin
          l:=i;
          for j:=i+1 to n1 do


                                    69

Страницы