Перевод из Pascal в C++

@ыфвыфекуфекфа · Регистрация: 24.12.2018

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

Здравствуйте, помогите пожалуйста с переводом.

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
program Korovi;
var
n, k, i, j: integer;
l, r, m, g: longint;
x: array[1..10001] of longint;
begin
readln(n, k);
for i := 1 to n do
read(x[i]);
readln;
if (n = 3) and (k = 2) then begin
writeln(x[n] - x[1]);
exit;
end;
l := 0; r := x[n] - x[1];
while l <> r do
begin
m := (l + r) div 2; 
g := 1; 
j := 1; 
for i := 2 to n do 
if x[i] - x[j] >= m then begin j := i; inc(g); end;
if g >= k then l := m + 1 else r := m; 
end;
writeln(l - 1);
end.

@AndryS1 · 14.01.2020, 21:01

Сообщение от ыфвыфекуфекфа

x: array[1..10001] of longint;

А можно вопрос, на паскале это нормально компилится? Нет никаких проблем со стеком и т.п.?

@ыфвыфекуфекфа · 14.01.2020, 21:09 **[ТС]**

Да ,все компилируеться.

Добавлено через 4 минуты
Простите не тот когд дал(вот правильный)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var n, i, j: byte;
    a: array [1..100, 1..100] of word;
    f: text;
begin
  assign(f, 'c:\INPUT.TXT');
  reset(f);
  readln(f, n);
  for i := 1 to n do
    begin
      for j := 1 to i do read(f, a[i, j]);
      readln(f)
    end;
  close(f);
  for i := n - 1 downto 1 do
    for j := 1 to i do
      if a[i + 1, j] > a[i + 1, j + 1]
        then a[i, j] := a[i, j] + a[i + 1, j]
        else a[i, j] := a[i, j] + a[i + 1, j + 1];
  assign(f, 'c:\OUTPUT.TXT');
  rewrite(f);
  writeln(f, a[1, 1]);
  close(f)
end.

Добавлено через 45 секунд
вот правильный код,он компилируеться

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var n, i, j: byte;
    a: array [1..100, 1..100] of word;
    f: text;
begin
  assign(f, 'c:\INPUT.TXT');
  reset(f);
  readln(f, n);
  for i := 1 to n do
    begin
      for j := 1 to i do read(f, a[i, j]);
      readln(f)
    end;
  close(f);
  for i := n - 1 downto 1 do
    for j := 1 to i do
      if a[i + 1, j] > a[i + 1, j + 1]
        then a[i, j] := a[i, j] + a[i + 1, j]
        else a[i, j] := a[i, j] + a[i + 1, j + 1];
  assign(f, 'c:\OUTPUT.TXT');
  rewrite(f);
  writeln(f, a[1, 1]);
  close(f)
end.

@AndryS1 · 14.01.2020, 21:10

блин, серьёзно?)
Эх, пусть пока полежит тут (это первое)

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
#include <iostream>
int main()
{
    int n, k, i, j;
    long int l, r, m, g;
    long int* x = new long int[10000];
    std::cin >> n >> k;
    --x; // чтобы числение было от 1, а не 0 
    for (i = 1; i <= n; i++)
        std::cin >> x[i];
    std::cin.ignore();
    std::cin.get();
    if (n == 3 && k == 2)
    {
        std::cout << x[n] - x[1] << std::endl;
        exit(0);
    }
    l = 0;
    r = x[n] - x[1];
    while (l != r)
    {
        m = (l + r) / 2;
        g = 1;
        j = 1;
        for (i = 2; i <= n; i++)
            if (x[i] - x[j] >= m)
            {
                j = i;
                g++;
            }
        if (g >= k) l = m + 1; else r = m;
 
    }
    std::cout << l - 1 << std::endl; 
}

@ыфвыфекуфекфа · 14.01.2020, 21:19 **[ТС]**

Прости)

Добавлено через 8 минут
задание так звучит .
Составить программы, решающие следующие задачи. Входные данные находятся в
текстовом файле input.txt. В первой строке файла указаны через пробел размеры
массива. В последующих строках перечислены элементы массива - целые числа. Результатом работы программы
должны быть оптимальное значение целевой функции и путь, при котором оно
достигается.

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

@AndryS1 · 14.01.2020, 21:26

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
#include <fstream>
#include <iostream>
#include <string>
 
int main()
{
    char a[100][100];
    size_t n;
    std::ifstream f("C:\\INPUT.TXT");
    std::cin >> n;
    for (size_t i = 0; i < n; i++)
    {
        for (size_t j = 0; j < n; j++)
        {
            f.get(a[i][j]);
        }   
        f.ignore();
    }
    f.close();
    for (size_t i = n - 2; i >= 0; i--)
    {
        for (size_t j = 0; j <= i; j++)
        {
            if (a[i + 1][j] > a[i + 1][j + 1])
            {
                a[i][j] = a[i][j] + a[i + 1][j];
            }
            else
            {
                a[i][j] = a[i][j] + a[i + 1][j + 1];
            }
        }
    }
    std::ofstream f2("c:\\OUTPUT.TXT", std::ofstream::trunc);
    f2 << a[0][0];
    
}

как то так, но очень сомневаюсь, эти хрени с индексацией от 1 очень плохо совмещаются с Си/С++

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 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? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@ыфвыфекуфекфа 0 / 0 / 0 Регистрация: 24.12.2018 Сообщений: 8
	14.01.2020, 21:19 [ТС]
	Прости) Добавлено через 8 минут задание так звучит . Составить программы, решающие следующие задачи. Входные данные находятся в текстовом файле input.txt. В первой строке файла указаны через пробел размеры массива. В последующих строках перечислены элементы массива - целые числа. Результатом работы программы должны быть оптимальное значение целевой функции и путь, при котором оно достигается. На рисунке изображен треугольник из чисел. Напишите программу, которая вычисляет наибольшую сумму чисел, расположенных на пути, начинающемся в верхней точке треугольника и заканчивающемся на основании треугольника. 0