Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Free Pascal Нужен пример Программы http://www.cyberforum.ru/free-pascal/thread688510.html
Не могу написать программу с помощью, которой можно в графическом режиме управлять фигурой с помощью стрелок. Может, поможет кто:)
Высокоточная арифметика для Deep-zooming'а множества Мандельброта Free Pascal
Я хочу её использовать для Deep-zooming'а множества Мандельброта. Как её реализовать кратчайшим путём? Она должна подерживать функции сложения, вычитания, умножения и деления. Хотя бы. Объясните...
Free Pascal Если массив А не равен массиву В, то сформировать массив С, где ci=ai+bi
Заданы два одномерных массива A и B. Если массив А не равен массиву В, то сформировать массив С, где ci=ai+bi. Если массивы А и В равны, то переписать массив А в массив С.
Free Pascal Поиск в графе с учетом направлений Дан граф с учетом направлений --123456 --______ 1|-00011 2|1-0000 3|00-000 4|001-00 5|0100-0 6|00110- http://www.cyberforum.ru/free-pascal/thread687996.html
Free Pascal Дана матрица А(5х3). Найти сумму для элементов 4 строки по формуле http://www.cyberforum.ru/free-pascal/thread687769.html
1)найти сумму для элементов четвертой строки по формуле S=5+2jA4j/10. 2)заменить а11 на значение вычисленной суммы Правила форума п. 5.5: Запрещено размещать тему в нескольких разделах...
Free Pascal Записи: Даны рост и пол 20 человек. Найти средний рост всех мужчин
Помогите решить задачу на паскале,используя списки(record).Даны рост и пол 20 человек.Найти средний рост всех мужчин.
Free Pascal Генерация кода сериала
Есть такая задача: "Задача D . Нумера ция серий Ограничение по времени: 1 секунда Ограничение по памяти: 64 мегабайта Создатели мультсериала Футурама при разработке серий используют нумерацию,...
Free Pascal Перевод из десятичной системы счисления в двоичную var v,i:integer; mas:array of integer; procedure perevod(v:integer; var vyx:array of integer); var i:integer; begin i:=0; while v>0 do begin vyx:=v mod 2; inc(i); http://www.cyberforum.ru/free-pascal/thread687373.html
Free Pascal Дано целое число n. Правда ли, что все цифры числа чётные http://www.cyberforum.ru/free-pascal/thread687230.html
Дано целое число n. Правда ли, что все цифры числа чётные.
Free Pascal для каждого предмета определить его уникальный номер по информации, выведенной системой. Дело в том, что каждый артифакт имеет свой уникальный номер (ID). Клаудия хочет узнать уникальные номера для N предметов Хранилища. Но из-за неполадок системы, названия всех артифактов начали... http://www.cyberforum.ru/free-pascal/thread687197.html
zMeFz
2 / 2 / 4
Регистрация: 05.11.2012
Сообщений: 14
05.11.2012, 21:57 0

Получить упорядоченную по убыванию последовательность, состоящую из всех различных членов исходной

05.11.2012, 21:57. Просмотров 772. Ответов 2
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
var i,n:integer;
a,b:array[1..1000] of integer;
 
procedure sort(l,r: longint);
      var
         i,j,x,y: longint;
      begin
         i:=l;
         j:=r;
         x:=a[(l+r) div 2];
         repeat
           while a[i]<x do
            inc(i);
           while x<a[j] do
            dec(j);
           if not(i>j) then
             begin
                y:=a[i];
                a[i]:=a[j];
                a[j]:=y;
                inc(i);
                j:=j-1;
             end;
         until i>j;
         if l<j then
           sort(l,j);
         if i<r then
           sort(i,r);
      end;
      
      begin
       readln(n); //читаем колво элиментов
        for i:=1 to n do
         read(a[i]);//читаем элименты
        sort(1,n);//сортим массив а
        for i:=1 to n do
         b[i]:=a[n-i+1];//переписываем из а в b наоборот
        for i:=1 to n do
         write(b[i],' '); //выводим элементы
      end.
Всё сделан ооочень просто ... (сортировку спёр с фри паскаля:FPC/demo/text/qsort - обычная быстрая сортирока).

Вернуться к обсуждению:
Получить упорядоченную по убыванию последовательность, состоящую из всех различных членов исходной
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.11.2012, 21:57

Используя метод Aggregate, получить строку, состоящую из начальных символов всех строк исходной последовательности
Ребят здесь такой вопрос... точнее задачи, кто может помочь мне решить их? Самостоятельно немогу...

Получить сумму членов исходной последовательности если преобразованная последовательность неубывающая
Помогите!!! Дана последовательность действительных чисел A(n). Если в результате замены...

Получить новую последовательность удалением из исходной тех членов, порядковые номера которых кратны трем
Даны действительные числа a1,.. a30. Получить новую последовательность удалением из исходной тех...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru