Код с Паскаля на C

[Green Gin]

Здравствуйте. Помогите пожалуйста кто шарит в Паскале перевести следующие кусочки кода на СИ.

1.

const
alphabet : string[26] = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
b : array [1..100] of byte ;
N,i,j,k : byte;
Procedure SwapB(i,k:byte);
var x : byte;
begin
x:=B[i]; B[i]:=B[k]; B[k]:=x;
end;
Procedure WriteB;
begin
for i:=1 to N do write({alphabet[b[i]]);
writeln;
end;
begin
readln(N);
for i:=1 to N do b[i]:=i;
WriteB;
while (true) do
begin
i:=N;
while (i>0) and (B[i]>=B[i+1]) do i:=i-1;
if i=0 then exit;
for j:=i+1 to N do
if (B[j]>B[i]) then K:=j;
SwapB(i,k);
for j:=i+1 to (i+ ((N+1-i) div 2))
do SwapB(j,N+i+1-j);
writeB;
end;
end.

2.

uses crt;
const
alphabet : string[26] = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
b : array [1..100] of byte;
N,M,i,j,k : byte;
Procedure WriteB;
begin
for i:=1 to M do write(alphabet[b[i]]);
writeln;
end;
begin
readln(N,M);
for i:=1 to M do b[i]:=i;
WriteB;
while (true) do
begin
i:=M;
while (i>0) and (b[i]=N-m+i) do Dec(i);
if i=0 then exit;
Inc(B[i]);
for j:=i+1 to M do B[j]:=B[j-1]+1;
WriteB;
end;
end.

3.

const
alphabet : string[26] = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
type
barray = array [1..100] of byte;
var
b : barray;
N,M,i,j,k : byte;
z : longint;
Procedure WriteB(B:barray);
begin
Inc(Z); Write (Z:3,' : ');
for i:=1 to M do write(alphabet[b[i]]);
writeln;
end;
Procedure SwapB(var B:barray;i,k:byte);
var x : byte;
begin
x:=B[i]; B[i]:=B[k]; B[k]:=x;
end;
Procedure PermuteAll(B:barray;N:byte);
var i,k,j : byte;
begin
WriteB(B);
while (true) do
begin
i:=N;
while (i>0) and (B[i]>=B[i+1]) do i:=i-1;
if i=0 then exit;
for j:=i+1 to N do
if (B[j]>B[i]) then K:=j;
SwapB(B,i,k);
for j:=i+1 to (i+ ((N+1-i) div 2)) do SwapB(B,j,N+i+1-j);
WriteB(B);
end;
end;
begin
readln(N,M);
for i:=1 to M do b[i]:=i;
PermuteAll(B,M);
while (true) do
begin
i:=M;
while (i>0) and (b[i]=N-m+i) do Dec(i);
if i=0 then exit;
Inc(B[i]);
for j:=i+1 to M do B[j]:=B[j-1]+1;
PermuteAll(B,M);
end;
readln;
end.

[Green Gin]

Денежное вознаграждение (wmr) помогшему, прилагается

[HAWK0044]

а CRT обязательно юзать? консольное приложение надо сделать?

напиши в ICQ 7-215-215 , обсудим.

[Green Gin]

тема закрыта...