Перекодировать из Паскаля в с++

@alexbec-2011 · Регистрация: 01.12.2011

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

Pascal

Var a           : Array [1..100] Of LongInt; // массив для хранения двоичной записи
    k           : Array [1..100,1..2] Of LongInt; // двухмерный массив, первый элемент число, второй элемент количество единиц
    N,i,j,p,kol : longint;
 
Begin
readln(N);
For i:=1 To n Do read(k[i,1]);
For i:=1 To n Do
  Begin             
    j:=0;
    p:=k[i,1];
    While p <> 0 Do    
      Begin
        inc(j);
        a[j]:=p Mod 2;
        p:=p Div 2;
      End;
    p:=j;
    kol:=0;
    For j:=1 To p Do If a[j] = 1 Then inc(kol); 
    k[i,2]:=kol;
  end;
For i:=1 To N Do                   
  For j:=1 To N-1 Do             
    If k[j,2] < k[j+1,2] Then
      Begin
        p:=k[j,2]; k[j,2]:=k[j+1,2]; k[j+1,2]:=p;
        p:=k[j,1]; k[j,1]:=k[j+1,1]; k[j+1,1]:=p;
      End;
writeln('Ответ: ');
For i:=N DownTo 1 Do write(k[i,1],' ');
end.

@dalay_lama · 11.01.2013, 09:36

Проверяй, так должно работать?

И ещё, вот здесь у тебя ошибка, либо я чего то не понял:

Pascal

1 2	For i:=1 To n Do read(k[i,1]); For i:=1 To n Do

здесь наверное имелось введу не "n", а "N"? Или паскаль не чувствителен к регистру? я уже не помню если честно

C++

#include <iostream>
using namespace std;
 
int main()
{
    long int a[100];// массив для хранения двоичной записи
    long int k[100][2];// двухмерный массив, первый элемент число, второй элемент количество единиц
    long int N,i,j,p,kol;
    
    cin >>N;
    for (i=0;i<N;i++)
        cin >>k[i][1];
    for (i=0;i<N;i++)
    {
        j=0;
        p=k[i][1];
        while (p != 0)
        {
            j++;
            a[j] = p%2;
            p = p/2;
        };
        p=j;
        kol=0;
        for (j=0;j<p;j++)
            if (a[j] == 1)
                kol++;
        k[i][2]=kol;
    };
    for (i=0;i<N;i++)
        for (j=0;j<N-1;j++)
            if (k[j][2] < k[j+1][2])
            {
                p=k[j][2]; k[j][2]=k[j+1][2]; k[j+1][2]=p;
                p=k[j][1]; k[j][1]=k[j+1][1]; k[j+1][1]=p;
            };
    cout <<"Answer: ";
    for(i=N;i>0;i--)
        cout <<k[i][1] <<" ";
}

@alexbec-2011 · 11.01.2013, 12:33 **[ТС]**

Спасибо да Паскаль не важен регистр)

@alexbec-2011 22 / 22 / 14 Регистрация: 01.12.2011 Сообщений: 159
	11.01.2013, 12:33 [ТС]	3
	Спасибо да Паскаль не важен регистр) 0

Перекодировать из Паскаля в с++

Решение