Сделать анализ задачи!
Задача: Переделать так, чтобы числа от 10 до 6555 сортировались по убыванию и записывались в начало массива.
type mass=array[1..200] of integer;
//перестановка чисел от 10 до 6555 вперед
procedure Forvard(var b:mass;m:integer;var k:integer);
var i,j,x:integer;
begin
k:=0;
for i:=1 to m do
if (b[i]>=10)and(b[i]<=6555)then
begin
k:=k+1;
x:=b[i];
for j:=i downto k+1 do
b[j]:=b[j-1];
b[k]:=x;
end;
end;
//быстрая сортировка первых К чисел
procedure QuickSort(var b:mass; first, last: integer);
var f, l, mid, count: integer;
begin
f:=first;
l:=last;
mid:=b[(f+l) div 2]; {вычисление опорного элемента}
repeat
while b[f]>mid do inc(f);
while b[l] if f<=l then {перестановка элементов}
begin
count:=b[f];
b[f]:=b[l];
b[l]:=count;
inc(f);
dec(l);
end;
until f>l;
if first if f end;
var a:mass;
n,k,i:integer;
begin
randomize;
repeat
write('Введите размер массива от 10 до 200 n=');
readln(n);
until n in [10..200];
writeln('Исходный масссив');
for i:=1 to n do
begin
a[i]:=random(7000);
write(a[i]:5);
end;
writeln;
Forvard(a,n,k);
QuickSort(a,1,k);
writeln('Отсортированный массив');
for i:=1 to n do
write(a[i]:5);
end.
5355
Объяснение:
1. Редактор отдает приоритет комбинации 555, потому что она стоит сразу после ЕСЛИ. Потому сначала Редактор преобразует все 555 к 3.
Среди 62 пятерок комбинация 555 встретится 20 раз (62 делим нацело на 3, потому что в группе 3 цифры). Поэтому получим 20 троек и за ними 55 (62 - 60 = 2 пятерки останутся).
2. Теперь 555 больше нет и Редактор начнет заменяать каждые 333 на 5. Он так сделает три раза (заменит 9 троек на 555), потому что снова появится 555, которое более приоритетно. Поэтому 9 троек заменятся на 555, а 555 заменится на 3. Из 20 исходных троек обработали 9 и заменили их на одну троку, поэтому теперь будет строка из 12 троек (20 -9 + 1) и двух пятерок в конце.
3. Снова 9 из 12 троек заменятся на 555, а те потом заменятся на 3. Получим строку 333355. В ней 333 заменится на 5. И окончательно будет 5355.
Интерне́т-зави́симость (или интернет-адди́кция) — навязчивое стремление использовать Интернет и избыточное пользование им, проведение большого количества времени в сети
Программа это:
1. План деятельности, работ и т. п. 2. Изложение содержания и цели деятельности политической партии, организации или отдельного деятеля.
В функции операционной системы входит:
* — осуществление диалога с пользователем;
* — ввод-вывод и управление данными;
* — планирование и организация процесса обработки программ;
* — распределение ресурсов (оперативной памяти и кэша, процессора, внешних устройств);
* — запуск программ на выполнение;
* — всевозможные вс операции обслуживания;
* — передача информации между различными внутренними устройствами;
* — программная поддержка работы периферийных устройств (дисплея, клавиатуры, дисковых накопителей, принтера и др.).
* — организация среды взаимодействия и обмена информацией между работающими программами.