Перевести код 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.

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 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

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

Решение

Решение