Перевести код c++ на паскаль

@Aleks54321 · Регистрация: 24.03.2015

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

Помогите перевести прогрммму из c++ на паскаль

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
61
62
63
64
65
#include <iostream>
#include <algorithm>
using namespace std;
int b[260][260], n;
char s[260][260], a[260][260];
int main()
{
 //   freopen("in.txt", "r", stdin);
    int i , j, sum = 0, sum1 = 0,  k = 0, x, y;
    cin >> n;
     for(i = 1; i <= n; i++)
        for(j = 1; j <= n; j++)
            s[i][j] = '.';
 
s[n][n] ='#';
 
    for(i = 1; i <= n; i++)
        cin >> a[i]+1;
 
    for(i = 1; i <= n; i++)
    {
        sum += (int)(a[1][i]-'0');
        b[1][i] = sum;
        sum1 += (int)(a[i][1]-'0');
        b[i][1] = sum1;
    }
 
for(i = 2; i <= n; i++)
    for(j = 2; j <= n; j++)
            b[i][j] = min(b[i][j - 1], b[i - 1][j]) + (int)(a[i][j]-'0');
x = n;
y = n;
while (x != 0 && y != 0)
{
    if (b[x][y - 1] <= b[x - 1][y] && x > 1 && y > 1)
    {
        s[x][y - 1] ='#';
        y--;
    }
    else if (b[x - 1][y] < b[x][y - 1] && x > 1 && y > 1)
    {
        s[x - 1][y] ='#';
        x--;
    }
    else if (x == 1)
    {
        s[x][y - 1] ='#';
        y--;
    }
    else if (y == 1)
    {
        s[x - 1][y] = '#';
        x--;
    }
    if (x == 0 && y == 0)
        break;
}
    for(i = 1; i <= n; i++)
    {
        for(j = 1; j <= n; j++)
            cout << s[i][j] ;
     cout << endl;
    }
     return 0;
}

@bormant · 04.03.2016, 09:11

Приведите текст задания.

@Aleks54321 · 04.03.2016, 18:50 **[ТС]**

В таблице из N строк и N столбцов клетки заполнены цифрами от 0 до 9. Требуется найти такой путь из клетки (1, 1) в клетку (N, N), чтобы сумма цифр в клетках, через которые он пролегает, была минимальной; из любой клетки ходить можно только вниз или вправо.

Входные данные

В первой строке находится число N (2 ≤ N ≤ 250). В следующих N строках содержатся по N цифр без пробелов.

Выходные данные

Выводятся N строк по N символов. Символ решётка показывает, что маршрут проходит через эту клетку, а точка - что не проходит. Если путей с минимальной суммой цифр несколько, вывести любой.

Входные данные
3
943
216
091

Выходные данные
#..
###
..#

Добавлено через 3 часа 22 минуты
помогите, плиз

@bormant · 04.03.2016, 19: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>
#include <algorithm>
using namespace std;
int b[260][260], n;
char s[260][260], a[260][260];
int main()
{
 //   freopen("in.txt", "r", stdin);
    int i, j, sum = 0, sum1 = 0, x, y;
    cin >> n;
    for (i = 0; i < n; ++i) cin >> a[i];
    for (i = 0; i < n; ++i) for (j = 1; j < n; ++j) s[i][j] = '.';
    s[n-1][n-1] ='#';
    for (i = 0; i < n; ++i)
    {
        sum  += a[0][i]-'0'; b[0][i] = sum;
        sum1 += a[i][0]-'0'; b[i][0] = sum1;
    }
    for (i = 1; i < n; ++i)
        for (j = 1; j < n; ++j)
            b[i][j] = min(b[i][j - 1], b[i - 1][j]) + a[i][j]-'0';
    x = n-1; y = n-1;
    while (x >= 0 && y >= 0)
    {
        if (x > 0 && y > 0) 
            if      (b[x][y - 1] <= b[x - 1][y]) s[x][--y] ='#';
            else if (b[x - 1][y] <  b[x][y - 1]) s[--x][y] ='#';
            else ;
        else if (x == 1) s[x][--y] = '#';
        else if (y == 1) s[--x][y] = '#';
    }
    for (i = 0; i < n; ++i) for (j = 0; j < n; ++j) cout << s[i][j];
    cout << endl;
    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
function Min(a, b: Integer): Integer; begin if a<b then Min:=a else Min:=b; end;
var
  b: array [0..250,0..250] of Integer;
  a, s: array [0..250,0..250] of Char;
  n, i, j, sum, sum1, x, y: Integer;
begin
  ReadLn(n);
  for i:=0 to n-1 do for j:=0 to n-1 do s[i,j]:='.';
  s[n-1,n-1]:='#';
  for i:=0 to n-1 do ReadLn(a[i]);
  for i:=0 to n-1 do begin
    Inc(sum, Ord(a[0,i])-Ord('0')); b[0,i]:=sum;
    Inc(sum1,Ord(a[i,0])-Ord('0')); b[1,0]:=sum;
  end;
  for i:=1 to n-1 do for j:=1 to n-1 do
    b[i,j]:=Min(b[i,j-1],b[i-1,j]) + Ord(a[i,j]) - Ord('0');
  x:=n-1; y:=n-1;
  while (x>=0) and (y>=0) do begin
    if (x>0) and (y>0) then 
      if      (b[x,y-1]<=b[x-1,y]) then Dec(y)
      else if (b[x-1,y]< b[x,y-1]) then Dec(x)
      else
    else if x=0 then Dec(y)
    else if y=0 then Dec(x);
    s[x,y]:='#';
  end;
  for i:=0 to n-1 do WriteLn(s[i]);
end.

@Aleks54321 · 04.03.2016, 19:24 **[ТС]**

Что-то в конце программа глючит

Pascal
1
2
3
4
5
6
7
8
9
 while (x>=0) or (y>=0) do begin
    if (x>0) and (y>0) then 
      if      (b[x,y-1]<=b[x-1,y]) then Dec(y)
      else if (b[x-1,y]< b[x,y-1]) then Dec(x)
      else
    else if x=0 then Dec(y)
    else if y=0 then Dec(x);
    s[x,y]:='#';
  end;

Пишет, что инедкс находится вне границ массива

@bormant · 04.03.2016, 19:34

Угу, есть опечаточка...

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
#include <iostream>
#include <algorithm>
using namespace std;
int b[260][260], n;
char s[260][260], a[260][260];
int main()
{
 //   freopen("in.txt", "r", stdin);
    int i, j, sum = 0, sum1 = 0, x, y;
    cin >> n;
    for (i = 0; i < n; ++i) cin >> a[i];
    for (i = 0; i < n; ++i) for (j = 0; j < n; ++j) s[i][j] = '.';
    s[n-1][n-1] ='#';
    for (i = 0; i < n; ++i)
    {
        sum  += a[0][i]-'0'; b[0][i] = sum;
        sum1 += a[i][0]-'0'; b[i][0] = sum1;
    }
    for (i = 1; i < n; ++i)
        for (j = 1; j < n; ++j)
            b[i][j] = min(b[i][j - 1], b[i - 1][j]) + a[i][j]-'0';
    x = n-1; y = n-1;
    while (x >= 0 || y >= 0)
    {
        if (x > 0 && y > 0) 
            if      (b[x][y - 1] <= b[x - 1][y]) s[x][--y] ='#';
            else if (b[x - 1][y] <  b[x][y - 1]) s[--x][y] ='#';
            else ;
        else if (x == 0) s[x][--y] = '#';
        else if (y == 0) s[--x][y] = '#';
    }
    for (i = 0; i < n; ++i) cout << s[i] << endl;
    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
function Min(a, b: Integer): Integer; begin if a<b then Min:=a else Min:=b; end;
var
  b: array [0..250,0..250] of Integer;
  a, s: array [0..250,0..250] of Char;
  n, i, j, sum, sum1, x, y: Integer;
begin
  ReadLn(n);
  for i:=0 to n-1 do for j:=0 to n-1 do s[i,j]:='.';
  s[n-1,n-1]:='#';
  for i:=0 to n-1 do ReadLn(a[i]);
  for i:=0 to n-1 do begin
    Inc(sum, Ord(a[0,i])-Ord('0')); b[0,i]:=sum;
    Inc(sum1,Ord(a[i,0])-Ord('0')); b[i,0]:=sum;
  end;
  for i:=1 to n-1 do for j:=1 to n-1 do
    b[i,j]:=Min(b[i,j-1],b[i-1,j]) + Ord(a[i,j]) - Ord('0');
  x:=n-1; y:=n-1;
  while (x>0) or (y>0) do begin
    if (x>0) and (y>0) then 
      if      (b[x,y-1]<=b[x-1,y]) then Dec(y)
      else if (b[x-1,y]< b[x,y-1]) then Dec(x)
      else
    else if x=0 then Dec(y)
    else if y=0 then Dec(x);
    s[x,y]:='#';
  end;
  for i:=0 to n-1 do WriteLn(s[i]);
end.

@Aleks54321 · 04.03.2016, 19:44 **[ТС]**

Pascal
1
for i:=0 to n-1 do ReadLn(a[i]);

Паскаль ругается, что нельзя считывать данные этого типа, что делать

@bormant · 04.03.2016, 19:55

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

Паскаль ругается, что нельзя считывать данные этого типа, что делать

Размещать вопрос в теме, соответствующей вашему Паскалю ABC (TP и FPC с подобным проблем не имеют).

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
function Min(a, b: Integer): Integer; begin if a<b then Min:=a else Min:=b; end;
var
  b: array [0..250,0..250] of Integer;
  a, s: array [0..250,0..250] of Char;
  n, i, j, sum, sum1, x, y: Integer;
begin
  ReadLn(n);
  for i:=0 to n-1 do begin for j:=1 to n-1 do Read(a[i,j]); ReadLn; end;
  for i:=0 to n-1 do for j:=0 to n-1 do s[i,j]:='.';
  s[n-1,n-1]:='#';
  for i:=0 to n-1 do begin
    Inc(sum, Ord(a[0,i])-Ord('0')); b[0,i]:=sum;
    Inc(sum1,Ord(a[i,0])-Ord('0')); b[i,0]:=sum;
  end;
  for i:=1 to n-1 do for j:=1 to n-1 do
    b[i,j]:=Min(b[i,j-1],b[i-1,j]) + Ord(a[i,j]) - Ord('0');
  x:=n-1; y:=n-1;
  while (x>0) or (y>0) do begin
    if (x>0) and (y>0) then 
      if      (b[x,y-1]<=b[x-1,y]) then Dec(y)
      else if (b[x-1,y]< b[x,y-1]) then Dec(x)
      else
    else if x=0 then Dec(y)
    else if y=0 then Dec(x);
    s[x,y]:='#';
  end;
  for i:=0 to n-1 do begin for j:=0 to n-1 do Write(s[i,j]); WriteLn; end;
end.

@Aleks54321 · 04.03.2016, 19:59 **[ТС]**

Почему-то выводит неверный ответ
#..
##.
.##
вместо
#..
###
..#

@bormant · 04.03.2016, 20:23

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

Почему-то

Опечатка в строке 8, должно быть:

Pascal
8
  for i:=0 to n-1 do begin for j:=0 to n-1 do Read(a[i,j]); ReadLn; end;

Добавлено через 8 минут
То есть, в конечном итоге:

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
function Min(a, b: Integer): Integer; begin if a<b then Min:=a else Min:=b; end;
var
  b: array [0..250,0..250] of Integer;
  a, s: array [0..250,0..250] of Char;
  n, i, j, sum, sum1, x, y: Integer;
begin
  ReadLn(n);
  for i:=0 to n-1 do begin for j:=0 to n-1 do Read(a[i,j]); ReadLn; end;
  for i:=0 to n-1 do for j:=0 to n-1 do s[i,j]:='.';
  s[n-1,n-1]:='#';
  for i:=0 to n-1 do begin
    Inc(sum, Ord(a[0,i])-Ord('0')); b[0,i]:=sum;
    Inc(sum1,Ord(a[i,0])-Ord('0')); b[i,0]:=sum;
  end;
  for i:=1 to n-1 do for j:=1 to n-1 do
    b[i,j]:=Min(b[i,j-1],b[i-1,j]) + Ord(a[i,j]) - Ord('0');
  x:=n-1; y:=n-1;
  while (x>0) or (y>0) do begin
    if (x>0) and (y>0) then 
      if      (b[x,y-1]<=b[x-1,y]) then Dec(y)
      else if (b[x-1,y]< b[x,y-1]) then Dec(x)
      else
    else if x=0 then Dec(y)
    else if y=0 then Dec(x);
    s[x,y]:='#';
  end;
  for i:=0 to n-1 do begin for j:=0 to n-1 do Write(s[i,j]); WriteLn; end;
end.

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

Перевести код c++ на паскаль

Решение

Решение

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,158 Записей в блоге: 1
	04.03.2016, 09:11
	Приведите текст задания. 0

@Aleks54321 1 / 1 / 0 Регистрация: 24.03.2015 Сообщений: 50
	04.03.2016, 18:50 [ТС]
	В таблице из N строк и N столбцов клетки заполнены цифрами от 0 до 9. Требуется найти такой путь из клетки (1, 1) в клетку (N, N), чтобы сумма цифр в клетках, через которые он пролегает, была минимальной; из любой клетки ходить можно только вниз или вправо. Входные данные В первой строке находится число N (2 ≤ N ≤ 250). В следующих N строках содержатся по N цифр без пробелов. Выходные данные Выводятся N строк по N символов. Символ решётка показывает, что маршрут проходит через эту клетку, а точка - что не проходит. Если путей с минимальной суммой цифр несколько, вывести любой. Входные данные 3 943 216 091 Выходные данные #.. ### ..# Добавлено через 3 часа 22 минуты помогите, плиз 0

@Aleks54321 1 / 1 / 0 Регистрация: 24.03.2015 Сообщений: 50
	04.03.2016, 19:59 [ТС]
	Почему-то выводит неверный ответ #.. ##. .## вместо #.. ### ..# 0