Нужно поправить синтаксис! С++

@EdHaker · Регистрация: 23.09.2015

Студворк — интернет-сервис помощи студентам

C++
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
#include <iostream>
#include <math.h>
using namespace std;
 const int maxN= 111111;    
long a[maxN];
void swap(long w1, long w2)
        {
            long temp;
                temp=w1; w1=w2; w2=temp;
        }
void qsort(long left, long right){
               long i,j,key;
                i=left; j=right;
                key=a[(i + j)>>1];
                do{
                        while (a[i] < key) ++i;
                        while (a[j] > key) --j;
                        if (i<=j) {
                                swap(a[i],a[j]);
                                ++i; --j;}
                        }
                while (i>j);
                if (i<right) qsort(i,right);
                if (j>left)  qsort(left,j);
        }
 
int main(){
     long i,n,c,j,count,cur;
        long l,r,m;
        long ans;
        cin>>n>>c;
        for (i=0;i<n;i++){
                cin>>a[i];
                if (a[i]>r) r=a[i];}
        
        qsort(1,n);
        while (l<r) {
                m=(l+r+1)>>1;
                count= 1;
                cur= a[1];
                for (i=0;i<n;i++) {
                        if (a[i]-cur<m);
                                else {
                                        cur=a[i];
                                       ++count;
                                }
                if (count>=c)
                        {
                                l=m;
                                if (count>=c)
                                        {
                                                ans=m;
                        }
                        else {
                                r=m-1;
                        }
        }}}
 
  cout<<ans;
  return 0;}

- код.

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
const maxN= 111111;
var     i,n,c,j,count,cur: longint;
        a: array [1..maxN] of longint;
        l,r,m: longint;
        ans: longint;
procedure swap(var w1,w2 : longint);
        var
                temp : longint;
        begin
                temp := w1; w1 := w2; w2 := temp;
        end;
 
procedure qsort(left,right : longint);
        var
                i,j,key : longint;
        begin
                i := left; j := right;
                key := a[(i + j) shr 1];
                repeat
                        while (a[i] < key) do inc(i);
                        while (a[j] > key) do dec(j);
                        if (i <= j) then begin
                                swap(a[i],a[j]);
                                inc(i); dec(j);
                        end;
                until i>j;
                if (i < right) then qsort(i,right);
                if (j > left)  then qsort(left,j);
        end;
 
begin
        readln(n,c);
        for i := 1 to n do begin
                read(a[i]);
                if a[i] > r then r := a[i];
        end;
 
        qsort(1,n);
 
        while l < r do begin
                m := (l + r + 1) shr 1;
 
                count := 1;
                cur := a[1];
                for i := 2 to n do
                        if a[i] - cur < m
                                then
                                        continue
                                else begin
                                        cur := a[i];
                                        inc(count);
                                end;
 
                if count >= c
                        then begin
                                l := m;
                                if count >= c
                                        then
                                                ans := m;
                        end
                        else begin
                                r := m-1;
                        end;
        end;
 
        writeln(ans);
end.

- КОД В ПАСКАЛЕ
УСЛОВИЕ : На прямой расположены стойла, в которые необходимо расставить свиней так, чтобы минимальное растояние между свиньями было как можно больше.
Входные данные
В первой строке вводятся числа n (2 < n < 10001) - количество стойл и k (1 < k < n) - количество свиней. Во второй строке задаются n натуральных чисел в порядке возрастания координаты стойл (координаты не превосходят 109).
Выходные данные
Выведите одно число - наибольшее возможное допустимое расстояние между свиньями.
Подскажите что не так?

@Fallenworld · 13.11.2015, 19:47

Сообщение от EdHaker

минимальное растояние между свиньями было как можно больше

Сообщение от EdHaker

Выведите одно число - наибольшее возможное допустимое расстояние между свиньями

так чего ж тебе надобно?

@EdHaker · 13.11.2015, 19:48 **[ТС]**

Fallenworld, не важно, просто смотрите код, а вообще это одно и тоже, подскажите как сделать чтобы работало . считайте это выводом : Выведите одно число - наибольшее возможное допустимое расстояние между свиньями

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@EdHaker 1 / 1 / 0 Регистрация: 23.09.2015 Сообщений: 101
	13.11.2015, 19:48 [ТС]
	Fallenworld, не важно, просто смотрите код, а вообще это одно и тоже, подскажите как сделать чтобы работало . считайте это выводом : Выведите одно число - наибольшее возможное допустимое расстояние между свиньями 0