сервис вопросов и ответовпомогите пожалуйста составить программу
5-9 класс|
|
Заполнить массив из 500 элементов случайными числами в интервале [0..100]. Отсортировать его по возрастанию двумя способами – методом «пузырька» и методом «быстрой сортировки» . Вывести на экран число перестановок элементов массива в том и в другом случае. Массив выводить на экран не нужно.
Salivond
29 янв. 2014 г., 18:30:15 (10 лет назад)
Viktoria20006
29 янв. 2014 г., 21:03:47 (10 лет назад)
var a,i,j,b,p,p1:longint;
m:array[0..501] of longint;
procedure qsort(l,r:longint);
var q,w,i,j,p:longint;
begin
q:=m[(l+r) div 2];
repeat
while m[i]<q do inc(i);
while m[j]>q do dec(j);
if i<j then
begin
w:=m[i];
m[i]:=m[j];
m[j]:=w;
inc(i); dec(j);inc(p);
end;
if i=j then
begin
inc(i);dec(j);
end;
until i>j;
if i<r then qsort(i,r);
if j<l then qsort(l,j);
p1:=p;
end;
begin
for i:=1 to 500 do
m[i]:=random(100);
for i:=1 to 500 do
for j:=500 downto i+1 do
if m[j]<m[i] then
begin
a:=m[j];
m[j]:=m[i];
m[i]:=a;
inc(p);
end;
writeln(p);
qsort(1,500);
writeln(p1);
end.
Ответить
Другие вопросы из категории
пользователь вводит целое число. если оно является четным и при этом не находиться между 10 и 20, то вывести на экран его квадрат. в противном случае
напечатать исходное число
Срочно, завтра сдавать! Восстановить айпи адрес по фрагментам Для справки: айпи состоит из четырех частей, разделенных точками. Числовое значение
каждой части от 0 до 255 А)5 Б)5.254 в)5.20 г)9.2 д)25
Три друга: Алеша, Боря и Витя учатся в одном
классе. Один из них ездит домой из школы на троллейбусе, другой – на трамвае,
третий – на автобусе. Однажды после уроков Алеша пошел проводить своего друга
до остановки автобуса. Когда мимо них проходил автобус, третий друг крикнул из
окна: «Боря, ты забыл в школе тетрадку!». Кто на чем ездит домой?
Читайте также
Помогите,пожалуйста,написать программу по информатике.Вот такое условие:
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
ПОЖАЛУЙСТА Составьте программу, запрашивающую 4-х значное число. И выходящую на экран сообщение :"Тысяч_, сотен_, десятков_, единиц_".Применяя функции
деления (Div и Mod)
2.Составьте программу делящую переменную А=100 на 3. Деление прекратить когда остаток А будет меньше 3. Подсчитать количество вариантов деления и вынести значение на экран.
помогите пожалуйста составить программу для этой задачи в паскале... уличный продавец газет получает a рублей с продажи каждой из первых 50 газет. С
продаж каждой из остальных газет он получает на 20% больше. разработайте программу,которая вычислит заработок продавца,если он продает за день 200 газет.
Вы находитесь на странице вопроса "помогите пожалуйста составить программу", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.