Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
3 / 3 / 0
Регистрация: 25.09.2016
Сообщений: 52

После переписывания кода с Pascal на C++ он перестал работать

21.02.2017, 15:06. Показов 918. Ответов 9
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем привет!
Имеется код написанный на языке Паскаль
Кликните здесь для просмотра всего текста
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
68
program lb9;
uses crt;
type arr=array [1..5,1..5] of integer;
const
aa:arr= ((2,9,0,1,8),
         (2,9,5,3,6),
         (3,7,2,8,10),
         (1,9,4,7,4),
         (4,8,2,3,5));
var
b:arr;
i,j,x,y:integer;
procedure write_matr(x:arr);
var
i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(x[i,j]:5);
writeln;
end;
end;
function min(x:arr):integer;
var
i,j,m:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
if x[i,j]>0 then
m:=x[i,j];
for i:=1 to 5 do
for j:=1 to 5 do
if (x[i,j]>0) and (x[i,j]>m) then
m:=x[i,j];
min:=m
end;
procedure symm(const x:arr;var s1,s2:integer);
var
i,j:integer;
begin
s1:=0;
s2:=0;
for i:=1 to 5 do
begin
s1:=s1+x[i,i];
s2:=s2+x[i,5-i+1];
end;
end;
begin
clrscr;
write_matr(aa);
writeln;
randomize;
for i:=1 to 5 do
for j:=1 to 5 do
b[i,j]:=random(20)-10;
writeln(min(aa));
write_matr(b);
writeln;
symm(b,x,y);
writeln('Glavna=',x);
writeln('Pob.=',y);
 symm(aa,i,j);
 writeln('Glavna=',i);
writeln('Pob.=',j);
readln;
end.


Работает он вот так
Кликните здесь для просмотра всего текста


Мне нужно его переписать на язык с++ (вот мой код)
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
#include <stdio.h>
#include <iostream>
#include <math.h>
#include <string>
using namespace std;
void write_matr(int x[5][5])
{
    int i, j;
    for (i = 0; i < 5; i++)
        for (j = 0; j < 5; j++)
            cout << x[i][j];
}
int min(int x[5][5])
{
    int i, j, m;
    for (i = 0; i < 5; i++)
        for (j = 0; j < 5; j++)
            if (x[i][j]>0) m = x[i][j];
    if ((x[i][j]>0) && (x[i][j]>m))
        m = x[i][j];
    return m;
}
void symm(int x[5][5], int &s1,int &s2)
{
    int i, j;
    s1 = 0, s2 = 0;
    for (i = 0; i < 5; i++)
    {
        s1 += x[i][i];
        s2 += x[i][5 - i + 1];
    }
}
int main()
{
    setlocale(LC_ALL, "Russian");
    int arr[5][5], aa[5][5] = { 2, 9, 0, 1, 8, 2, 9, 5, 3, 6, 3, 7, 2, 8, 10, 1, 9, 4, 7, 4, 4, 8, 2, 3, 5 };
    int b[5][5];
    int i, j, x, y;
    write_matr(aa);
    for (i = 0; i < 5; i++)
        for (j = 0; j < 5; j++)
            b[i][j] = rand() - 10;
    cout <<"\t"<<min(aa);
    write_matr(b);
    cout << endl;
    symm(b, x, y);
    cout << "Главная = \t" << x << endl;
    cout << "Побочная = \t" << y << endl;
    symm(aa, i, j);
    cout << "Главная = \t" << i << endl;
    cout << "Побочная = \t" << j << endl;
    system("pause");
    return 0;
}
Но что-то пошло не так
Помогите разобраться пожалуйста
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
21.02.2017, 15:06
Ответы с готовыми решениями:

Dell latitude e6410; Кулер перестал работать после чистки, но включается на 2 секунды после выключения
Добрый вечер. Dell latitude e6410. После чистки ноута изнутри (не первый раз чищу, ничего лишнего не трогал, лишних движений не...

Перестал работать IntelliSense для javascript кода
Привет всем. Такая проблема: Проект ASP.NET MVC5, VS 2015 Community. Вдруг перестал работать IntellySense, причем только для javascript...

После чистки ПК перестал работать
Я свой комп чистил, некоторые комплектующие снимал, а после это он не врубается. Куллера все крутятся которые есть, тоесть с мамкой все ок,...

9
nd2
3438 / 2817 / 1249
Регистрация: 29.01.2016
Сообщений: 9,427
21.02.2017, 15:40
Цитата Сообщение от aktuv4egg Посмотреть сообщение
C++
1
s2 += x[i][5 - i + 1];
Тут, при i равном 0 и 1, будет выход за границу массива.
0
3 / 3 / 0
Регистрация: 25.09.2016
Сообщений: 52
21.02.2017, 15:59  [ТС]
а почему в паскале не выходит?
0
Эксперт CЭксперт С++
 Аватар для liv
5120 / 4574 / 855
Регистрация: 07.10.2015
Сообщений: 9,462
21.02.2017, 16:06
Цитата Сообщение от aktuv4egg Посмотреть сообщение
а почему в паскале не выходит?
В Паскале счет индексов идет с 1, в С/С++ - с 0
0
nd2
3438 / 2817 / 1249
Регистрация: 29.01.2016
Сообщений: 9,427
21.02.2017, 16:08
Цитата Сообщение от aktuv4egg Посмотреть сообщение
а почему в паскале не выходит?
Потому что там i начинается с 1, и последний допустимый индекс 5. Значит: 5 - i + 1, при i == 1, будет равно 5 (последний допустимый индекс в Паскале). В С++, индексы начинаются с 0, последний допустимый, для массива размером 5, будет 4. Дальше сам посчтитай, какие у тебя индексы здесь получаются.
0
3 / 3 / 0
Регистрация: 25.09.2016
Сообщений: 52
21.02.2017, 16:10  [ТС]
т.е. получается надо 5 заменить на 4 что ли? Или я опять не так понял?
0
Эксперт CЭксперт С++
 Аватар для liv
5120 / 4574 / 855
Регистрация: 07.10.2015
Сообщений: 9,462
21.02.2017, 16:13
aktuv4egg,
C++
1
s2 += x[i][4 - i];
0
nd2
3438 / 2817 / 1249
Регистрация: 29.01.2016
Сообщений: 9,427
21.02.2017, 16:13
4 - i там сделай.
0
3 / 3 / 0
Регистрация: 25.09.2016
Сообщений: 52
21.02.2017, 16:16  [ТС]
так ведь мне надо посчитать сумму элементов побочной диагонали матрицы, там разве не s2+=x[i][4-i-1] ?
0
Эксперт CЭксперт С++
 Аватар для liv
5120 / 4574 / 855
Регистрация: 07.10.2015
Сообщений: 9,462
21.02.2017, 16:40
aktuv4egg, нужны индексы: [0,4],[1,3],[2,2],[3,1],[4,0]
4-i-1 даст вторые индексы: 3, 2, 1, 0, -1 (с вылетом!)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
21.02.2017, 16:40
Помогаю со студенческими работами здесь

Перестал работать интернет после Linux
Здравствуйте, случилась такая проблема. У меня установлена Windows 7 . Для своих целей нужно было записать загрузочную флешку с linux mint...

Интернет перестал работать после обновления
Здравствуйте. Возникла проблема с подключением на Windows, не могу решить уже третий день. Кабель интернета (МТС), который входит в...

После перестановки ос перестал работать интернет
После перестановки винды перестал работать интернет.В управлении не видно сетевой карты и драйвера никакие не устанавливаются.До...

Перестал работать интернет после установки 8.1
Поставил на ноутбук и на стационарный 8.1. Сначала обе машины летали и всё было хорошо. Сначала на стационарном пропал интернет. Пишет...

Перестал работать OnMouseDown() после компиляции
Всем привет! Возникла проблема. Перед компиляцией, в самой Юнити, все работает прекрасно. Но после создания билда, перестал работать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере 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. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru