Перевод с Pascal на С++

@Tihon18 · Регистрация: 17.05.2020

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

Добрый день. Помогите перевести код с Pascal на С++:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const MaxN=100;
var
  m: array [1..MaxN,1..MaxN] of ShortInt;
  n, i, j, k: ShortInt;
begin
  ReadLn(n);
  for i:=1 to n do begin
    Read(k);
    for k:=1 to k do begin
      Read(j); m[i,j]:=1;
    end; ReadLn;
  end;
  for i:=1 to n do begin
    for j:=1 to n do Write(m[i,j]:2); WriteLn;
  end;
end.

@Volga_ · 23.04.2021, 16:18

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

for k:=1 to k do begin

Не понял эту линию кода ? Что такое k ? Вы уверены, что все код работает нормально ?

@Tihon18 · 23.04.2021, 16:21 **[ТС]**

Да, уверен, проверял много раз.

@Volga_ · 23.04.2021, 16:36

Tihon18, не понял. Но можно попробовать:

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
#include <iostream>
using namespace std;
 
int main()
{
    const int MaxN = 100;
    short int m[MaxN][MaxN];
    short int n, i, j, k;
    cin >> n;
    for (i = 0; i < n; i++)
    {
        cin >> k;
        short int t;
        for (t = 0; t < k; t++)
        {
            cin >> j;
            m[i][j] = 1;
        }
    }
    for (i = 0; i < n; i++)
    {
        for (j = 0; j < n; j++)
            cout << m[i][j];
        cout << endl;
    }
 
    system("pause");
    return 0;
}

@Tihon18 · 23.04.2021, 16:54 **[ТС]**

Не совсем так...

Добавлено через 10 минут
Нужно чтобы при вводе:
3
2 2 3
0
1 2
был результат такой:
0 1 1
0 0 0
0 1 0

А при запуске этого кода выводит:
0 0 1
0 0 0
0 0 1

@Volga_ · 23.04.2021, 16:59

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

Не совсем так...

Не понял логичность в вашем коде (Паскаль).

@Tihon18 · 23.04.2021, 17:57 **[ТС]**

Я так понимаю не получается ?

@Volga_ · 23.04.2021, 18:06

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

Я так понимаю не получается ?

Да. Как я понимаю, ваш код неправильно.
Напишите условие задачи.

@Tihon18 · 23.04.2021, 18:08 **[ТС]**

Простой ориентированный граф задан в виде списков смежности.
Вывести его представление в виде матрицы смежности.
Входные данные:
3
2 2 3
0
1 2
В первой строке содержится количество вершин n (1 ≤ n ≤ 100). Далее идут n строк. В i-ой строке содержится описание всех рёбер, исходящих из i-ой вершины. Описание начинается количеством исходящих рёбер. Далее следуют номера вершин, в которые эти рёбра идут. Все вершины нумеруются натуральными числами от 1 до n.

@Volga_ · 23.04.2021, 18:21

Tihon18, мне кажется не смогу еще больше помочь вам, невозможность у меня. Извините. Я не знаю, почему ваш код Паскаля работает хорошо ! Странно....

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@Tihon18 6 / 6 / 0 Регистрация: 17.05.2020 Сообщений: 81
	23.04.2021, 16:21 [ТС]
	Да, уверен, проверял много раз. 0

@Tihon18 6 / 6 / 0 Регистрация: 17.05.2020 Сообщений: 81
	23.04.2021, 16:54 [ТС]
	Не совсем так... Добавлено через 10 минут Нужно чтобы при вводе: 3 2 2 3 0 1 2 был результат такой: 0 1 1 0 0 0 0 1 0 А при запуске этого кода выводит: 0 0 1 0 0 0 0 0 1 0

@Tihon18 6 / 6 / 0 Регистрация: 17.05.2020 Сообщений: 81
	23.04.2021, 17:57 [ТС]
	Я так понимаю не получается ? 0

@Tihon18 6 / 6 / 0 Регистрация: 17.05.2020 Сообщений: 81
	23.04.2021, 18:08 [ТС]
	Простой ориентированный граф задан в виде списков смежности. Вывести его представление в виде матрицы смежности. Входные данные: 3 2 2 3 0 1 2 В первой строке содержится количество вершин n (1 ≤ n ≤ 100). Далее идут n строк. В i-ой строке содержится описание всех рёбер, исходящих из i-ой вершины. Описание начинается количеством исходящих рёбер. Далее следуют номера вершин, в которые эти рёбра идут. Все вершины нумеруются натуральными числами от 1 до n. 0

@Volga_ Модератор 5209 / 2926 / 1509 Регистрация: 14.12.2018 Сообщений: 5,266 Записей в блоге: 1
	23.04.2021, 18:21
	Tihon18, мне кажется не смогу еще больше помочь вам, невозможность у меня. Извините. Я не знаю, почему ваш код Паскаля работает хорошо ! Странно.... 0