Конвертировать код на Паскаль

@ArlEkIn0 · Регистрация: 05.06.2015

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

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

C

#include<iostream>
#include<queue>
#include<cstdio>
using namespace std;
bool a[100][100];
queue <int> l,s;
int p,u[100],n,fr,o=0;
int main()
{
    scanf("%d",&n);
    for(int i=0;i<n;i++)
    {
        u[i]=0;
        for(int j=0;j<n;j++)
            a[i][j]=false;
    }
    for(int i=0;i<n;i++)
    {
        p=1;
        while(1==1)
        {
            scanf("%d",&p);
            if(p==0)
            break;
            a[i][p-1]=true;
            u[p-1]++;
        }
    }
    for(int i=0;i<n;i++)
    if(u[i]==0)
        s.push(i);
    while(!s.empty())
    {
        o++;
        fr=s.front();
        s.pop();
        for(int i=0;i<n;i++)
            if(a[fr][i])
            {
                u[i]--;
                if(u[i]==0)
                    s.push(i);
            }
        printf("%d",fr+1);
        if(o!=n)
            printf(" ");
    }
printf("\n");
    return 0;
}

@JokeR.BY · 26.11.2015, 11:09

у вас такой же сишный код, как я балерина...
но код ниже скомпилится не во всех паскалях (тупо лень писать реализацию очереди).

Pascal

var
    a: Array Of Array Of Boolean;
    u, l, s: Array Of Word;
    i, j, p, n, fr: Word;
    o: Word = 0;
begin
    Write('n='); ReadLn(n);
    SetLength(a, n, n); SetLength(u, n);
    SetLength(l, 0); SetLength(s, 0);
    for i := 0 to n - 1 do
    begin
        u[i] := 0;
        for j := 0 to n - 1 do
            a[i, j] := False;
    end;
    for i := 0 to n - 1 do
    begin
        Write('p(<', n, ')='); ReadLn(p);
        while (p <> 0) do
        begin
            a[i][p - 1] := True;
            Inc(u[p - 1]);
            Write('p(<', n, ')=');s ReadLn(p);
        end;
    end;
    for i := 0 to n - 1 do
        if (u[i] = 0)
        then
        begin
            SetLength(s, Length(s) + 1);
            s[Length(s) - 1] := i;
        end;
    while (Length(s) > 0) do
    begin
        Inc(o);
        fr := s[0];
        if (Length(s) > 1)
        then
            for i := 0 to Length(s) - 2 do
                s[i] := s[i + 1];
        SetLength(s, Length(s) - 1);
        
        for i := 0 to n - 1 do
            if (a[fr][i])
            then
            begin
                Dec(u[i]);
                if (u[i] = 0)
                then
                begin
                    SetLength(s, Length(s) + 1);
                    s[Length(s) - 1] := i;
                end;
            end;
        Write(' ', fr + 1);
    end;
end.

Опции темы

Конвертировать код на Паскаль

Решение