ПОМОГИТЕ ПЕРЕДЕЛАТЬ ПРОГРАММУ ИЗ PASCAL В DELPHI

[Solny6ko YasnoE]

Суть моей программки: осуществить все возможные перестановки от 1 до N(т.е. введенного пользователем числа)!!!
В принципе я написала ее на Паскале, начала переделывать на Дельфи и ничего не получается....... Результат не вводится...... Может быть вы мне поможете???

uses crt;
var
a:array [1..9] of integer;
b:array [1..9] of integer;
j,i,n: integer;
procedure per (j:integer);
var
i,k: integer;
begin
for i:=1 to n do
if b[i]=0
then begin a[j]:= i;
b[i]:=1;
if j=n
then begin
for k:=1 to n do write (a[k]);
for k:=n+1 to 10 do write (' ');
end
else per(j+1);
b[i]:=0;
end;
end;
begin
writeln ('Vvedite kol-vo elementov ==>');
readln(n);
if (n>9) or (n<1) then exit;
writeln ('Perestanovki ==>');
for i:=1 to n do
b[i]:=0;
per (1);
writeln;
readkey;
end.

[mutabor]

Для ввода используй Edit. Например:

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToIntDef(Edit1.Text,0); // 0 присвоится в случае ввода буквы
end;

Для вывода можно много чего испльзовать: Edit, Memo, Label и т.д.

[Viteef]

И writeln замени на ShowMessage('');

[Solny6ko YasnoE]

Cпасибки..... Попробую!!...

[zetrix]

Хм... В делфи тоже можно консольки писать, не проще туда вставить? Или именно с формой и кнопочками надо?

[Solny6ko YasnoE]

Препод докапался.... Объясните каждую строчку!!!!!!! ПЛЗЗЗЗЗЗЗЗЗЗЗЗЗ
uses crt;
var
a:array [1..9] of integer;
b:array [1..9] of integer;
j,i,n: integer;
procedure per (j:integer);
var
i,k: integer;
begin
for i:=1 to n do
if b[i]=0
then begin a[j]:= i;
b[i]:=1;
if j=n
then begin
for k:=1 to n do write (a[k]);
for k:=n+1 to 10 do write (' ');
end
else per(j+1);
b[i]:=0;
end;
end;
begin
writeln ('Vvedite kol-vo elementov ==>');
readln(n);
if (n>9) or (n<1) then exit;
writeln ('Perestanovki ==>');
for i:=1 to n do
b[i]:=0;
per (1);
writeln;
readkey;
end.

[Siber_Dec]

А что разве не самостоятельная это работа?
В смысле кто автор?

[KORT]

uses crt; // объявляем модули
var // раздел переменных
a:array [1..9] of integer; // глобальные переменные
b:array [1..9] of integer;
j,i,n: integer;
procedure per (j:integer); // начало процедуры per
var // локальные ппеременные
i,k: integer;
begin
for i:=1 to n do // цикл от 1 до n
if b[i]=0 // если массив b = 0
then begin a[j]:= i; // то массив а присваиваем значение i
b[i]:=1; // массив b = 1
if j=n // если переменная j = n
then begin // то
for k:=1 to n do write (a[k]); // выводим на экран массив а
for k:=n+1 to 10 do write (' '); // выводим на экран пустоту
end
else per(j+1); // иначе процедуру начинаем сначала
b[i]:=0; // массив в=0
end;
end;
begin // начало основной программы
writeln ('Vvedite kol-vo elementov ==>');
readln(n); // вводим количество элементов
if (n>9) or (n<1) then exit; // если n>9 или n<1 то программа прекращает свою работу
writeln ('Perestanovki ==>');
for i:=1 to n do
b[i]:=0;
per (1); // выполняется перестановка
writeln;
readkey;
end.

[still_alive]

Написана прога конечно не ахти. Что касается перевода на Delphi, то просто создать консольное приложение, вставить туда этот код и убрать uses crt и вместо readkey поставить readln

[Siber_Dec]

А если попробовать в форму запихать