КРАТКИЕ ТЕОРЕТИЧЕСКИЕ СВЕДЕНИЯ.
1. Метод «Пузырек»
Программа:
Program C;
uses crt; {пузырьковая сортировка}
var a:array [1..30] of integer;
i,d,l:integer;
begin
clrscr;
randomize;
writeln ('исходный массив');
for i:= 1 to 30 do
begin
a[i]:=random(10);
write (a[i],' ');
end;
writeln;
for l:=30 downto 2 do
for i:=1 to l-1 do
if a[i]>a[i+1] then
begin
d:=a[i];
a[i]:=a[i+1];
a[i+1]:=d;
end;
writeln('новый отсортированный массив');
for i:=1 to 30 do
write (a[i],' ');
readkey;
end.
2. Сортировка подсчетом
Программа:
Program C; {сортировка подсчетом}
uses crt;
var b,a:array [1..30] of integer;
i,h,l:integer;
begin
clrscr;
randomize;
writeln ('исходный массив');
for i:= 1 to 30 do
begin
a[i]:=random(10);
write (a[i],' ');
end;
writeln;
for l:= 1 to 30 do
begin
h:=0;
for i:= 1 to 30 do
if (a[i]<a[l]) and (i<>l) then h:=h+1;
b[h+1]:=a[l];
end;
for i:=2 to 30 do
if b[i]=0 then b[i]:=b[i-1];
writeln('новый массив');
for i:=1 to 30 do write (b[i],' ');
readkey;
end.
ЗАДАНИЕ.
Ввод элементов массива осуществлять с клавиатуры.
Вариант 1.
1. Дан массив из 10 элементов. Отсортировать массив по возрастанию методом «Подсчетом».
2. Дан массив из 30 элементов. Отсортировать массив по убыванию методом «Пузырек».
Вариант 2.
1. Дан массив из 20 элементов. Отсортировать массив по возрастанию методом «Пузырек».
2. Дан массив из 35 элементов. Отсортировать массив по убыванию методом «Подсчетом».
Вариант 3.
1. Дан массив из 15 элементов. Отсортировать массив по возрастанию методом «Пузырек»
2. Дан массив из 20 элементов. Отсортировать массив по убыванию методом «Подсчетом».
Вариант 4.
|
|
|
1. Дан массив из 20 элементов. Отсортировать массив по возрастанию методом «Пузырек».
2. Дан массив из 40 элементов. Отсортировать массив по убыванию методом «Подсчетом».
Вариант 5.
1. Дан массив из 15 элементов. Отсортировать массив по возрастанию методом «Пузырек».
2. Дан массив из 35 элементов. Отсортировать массив по убыванию методом «Подсчетом».
Вариант 6.
1. Дан массив из 15 элементов. Отсортировать массив по возрастанию методом «Пузырек».
2. Дан массив из 20 элементов. Отсортировать массив по убыванию методом «Подсчетом».
Вариант 7.
1. Дан массив из 20 элементов. Отсортировать массив по возрастанию методом «Подсчетом».
2. Дан массив из 30 элементов. Отсортировать массив по убыванию методом «Пузырек».
Вариант 8.
1. Дан массив из 20 элементов. Отсортировать массив по возрастанию методом «Пузырек»
2. Дан массив из 10 элементов. Отсортировать массив по убыванию методом «Подсчетом».
Вариант 9.
1. Дан массив из 15 элементов. Отсортировать массив по возрастанию методом «Подсчетом».
2. Дан массив из 30 элементов. Отсортировать массив по убыванию методом «Пузырек»
Вариант 10.
1. Дан массив из 30 элементов. Отсортировать массив по возрастанию методом «Подсчетом».
|
|
|
2. Дан массив из 30 элементов. Отсортировать массив по убыванию методом «Пузырек» .
Контрольные вопросы.
1. В чем заключается основная идея сортировки "Пузырьком"?
2. В чем заключается основная идея сортировки "Подсчетом"?
3. Что и где нужно поменять, чтобы сортировка была на убывание?
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ №12.
Тема: Сортировки массивов методом «Вставки» и «Выбора»
Цель занятия: Научиться пользоваться сортировками Уметь составлять программы сортировки.
КРАТКИЕ ТЕОРЕТИЧЕСКИЕ СВЕДЕНИЯ.
1. Метод выбора
Программа:
Program C; {сортировка выбором}
uses crt;
var b,a:array [1..30] of integer;
i,h,k,d,l:integer;
begin
clrscr;
randomize;
writeln ('исходный массив');
for i:= 1 to 30 do
begin
a[i]:=random(10);
write (a[i],' ');
end;
writeln;
for l:=1 to 29 do
begin
k:=30-l+1;
h:=k;
for i:=1 to 30-l do
if (a[i]>a[h]) then h:=i;
d:=a[k]; a[k]:=a[h]; a[h]:=d;
end;
writeln('новый отсортированный массив');
for i:=1 to 30 do
write (a[i],' ');
readkey;
end.
2. Сортировка вставками
Программа:
Program C; {сортировка вставками}
uses crt;
var a:array [1..30] of integer;
i,h,d,l:integer;
begin
clrscr;
randomize;
writeln ('исходный массив');
for i:= 1 to 30 do
begin
a[i]:=random(10);
write (a[i],' ');
end;
writeln;
for l:=2 to 30 do
|
|
|
begin
d:=a[l]; h:=1;
while d>a[h] do h:=h+1;
for i:=l downto h+1 do
a[i]:=a[i-1];
a[h]:=d;
end;
writeln('новый отсортированный массив');
for i:=1 to 30 do
write (a[i],' ');
readkey;
end.
ЗАДАНИЕ.
Ввод элементов массива осуществлять с клавиатуры.
Вариант 1.
1. Дан массив из 10 элементов. Отсортировать массив по возрастанию методом «Выбора».
2. Дан массив из 30 элементов. Отсортировать массив по убыванию методом «Вставка»
Вариант 2.
1. Дан массив из 20 элементов. Отсортировать массив по возрастанию методом «Выбора».
2. Дан массив из 35 элементов. Отсортировать массив по убыванию методом «Вставка».
Вариант 3.
1. Дан массив из 15 элементов. Отсортировать массив по возрастанию методом «Вставка».
2. Дан массив из 20 элементов. Отсортировать массив по убыванию методом «Выбора».
Вариант 4.
1. Дан массив из 20 элементов. Отсортировать массив по возрастанию методом «Вставка».
2. Дан массив из 40 элементов. Отсортировать массив по убыванию методом «Выбора».
Вариант 5.
1. Дан массив из 15 элементов. Отсортировать массив по возрастанию методом «Выбора».
2. Дан массив из 35 элементов. Отсортировать массив по убыванию методом «Вставка» .
Вариант 6.
1. Дан массив из 15 элементов. Отсортировать массив по возрастанию методом «Выбора».
|
|
|
2. Дан массив из 20 элементов. Отсортировать массив по убыванию методом «Вставка» .
Вариант 7.
1. Дан массив из 20 элементов. Отсортировать массив по возрастанию методом «Выбора».
2. Дан массив из 30 элементов. Отсортировать массив по убыванию методом «Вставка».
Вариант 8.
1. Дан массив из 20 элементов. Отсортировать массив по возрастанию методом «Вставка» .
2. Дан массив из 10 элементов. Отсортировать массив по убыванию методом «Выбора».
Вариант 9.
1. Дан массив из 15 элементов. Отсортировать массив по возрастанию методом «Выбора».
2. Дан массив из 30 элементов. Отсортировать массив по убыванию методом «Вставка».
Вариант 10.
1. Дан массив из 30 элементов. Отсортировать массив по возрастанию методом «Вставка».
2. Дан массив из 30 элементов. Отсортировать массив по убыванию методом «Выбора».
Контрольные вопросы.
1. В чем заключается основная идея сортировки "Вставки"?
2. В чем заключается основная идея сортировки "Выбора"?
3. Что и где нужно поменять, чтобы сортировка была на убывание?
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ №13.
Тема: Решение простейших задач, используя процедуры.
Цель занятия: Научиться правильно и грамотно оформлять процедуры и осуществлять их вызов. Уметь составлять простые программы с использованием процедур.
Дата добавления: 2019-11-16; просмотров: 221; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!