Преобразования Pascal в Delphi

[non1ka]

Добрый день господа Мастера ...
У меня есть проблемка которая требует решения...

Вобщем один мой знакомый попросил меня составить ему программу для решения "хода коня" на Delphi...

Я с этим языком не знаком и с помощью книжки смог написать листинг на Turbo Pascale... Я слышал что Delphi и Pascal вроде как бы родственные языке...

Задача заключается в слудеющем мне нужно "перекомпилировать" листинг в Delphi нужна ваша помощ.....

Заранее спасибо!!

[LLIypLLIyH]

Если как в паскале то нужно в делфи писать её в консоле

оставляешь не тронутой только
program

{$APPTYPE CONSOLE} (Эта штука нужна!)

uses
SysUtils; (И эта тож )

[master_root]

Импортируй *.pas файлы в Delphi проект(console application). Заменяй модули uses на Delphi совместимые. А лучше выкладывай код сюда и тебе его переведут в Delphi совместимый модуль. Delphi основан на pascal, но не является им. Некоторые поправки всё-равно нужны.

[Stilet]

А какая разница? Если слегка переводить то будет такая же консоль как и в обычном паскале.
Может автору нужна оконная Win прога...

[master_root]

да в принципе, разницы нет.Разве,что для win32 придётся основную программу представить ввиде функции или процедуры и реализовывать в каком-нить обработчике событий. Главное правильно раздел подключения модулей(uses) переконвертировать.Короче ждём уточнений автора топика.
>non1ka
Выложи код если не понял что да как. Проще будет

[non1ka]

Хорошо... спасибо зарранее... в ближайшее время выложу листинг...

Кстати по поводу оконной WIN программы... если это будет возможно то было бы вообще супер... Просто цель программы отобразить графически ход коня по шахматной доске... если это будет win приложением то это просто замечательно

[non1ka]

Вылаживаю листинг программы на Turbo Pascale...

Program HorseMoving;
Uses
  CRT;
Var
Field:  Array [1..20] of Array [1..20] of Integer;
N:  Integer;
MaxX, MaxY: Integer;
x, y:  Integer;
Procedure WritePosition;
Var
X, y:  Integer;
Begin
ClrScr;
For y:=1 to MaxY do
  For x:=1 to MaxX do
  Begin
  GotoXY (x*4, y*2);
  Write (Field[x, y]);
  End;
End;

Procedure  Move(x, y: Integer);
Begin
N :=  N+1;
Field [x,y] := N;
If N = MaxX * MaxY Then
  Begin
  WriteLN (‘ Есть Решение!!!‘);
  WritePosition;
  ReadKey;
  Halt;
  End;
If (x+2<=MaxX) and (y+1<=MaxY) Then
  If Field[x+2, y+1]=0 Then move (x+2, y+1);
If (x+1<=MaxX) and (y+2<=MaxY) Then
  If Field[x+1, y+2]=0 Then move (x+1, y+2);
If (x-1>0) and (y+2<=MaxY) Then
  If Field[x-1, y+2]=0 Then move (x-1, y+2);
If (x-2>0) and (y+1<=MaxY) Then
  If Field[x-2, y+1]=0 Then move (x-2, y+1);
If (x-2>0) and (y-1>0) Then
  If Field [x-2, y-1]=0 Then move (x-2, y-1);
If (x-1>0) and (y-2>0) Then
  If Field [x-1, y-2]=0 Then move (x-1, y-2);
If (x+1<=MaxX) and (y-2>0) Then
  If Field [x+1, y-2]=0 Then move (x+1, y-2);
If (x+2<=MaxX)and (y-1>0) Then
  If Field[x+2, y-1] = 0 Then move (x+2, y-1);
N := N - 1;
Field[x, y]:=0;
End;

Begin
ClrScr;
N := 0;
Write (‘ Введите ширину поля (от 1 до 20): ’);
ReadLn (MaxX);
Write (‘Введите высоту поля (от 1 до 20):’);
ReadLn(MaxY);
For x:=1 To MaxX Do
  For y:=1 To MaxY Do Field[x,y]:=0;
ClrScr;
Move (1,1);
WriteLn (‘Решение не найдено…’);
End.

Жду Конвертации

From Stilet: Правильно оформление поста, Я натякаю на тег кода, дает вероятную гарантию успешного решения

[non1ka]

И кстати если не затруднит скиньте ссылочку на Delphi просто не кайф лить верссии 2007 или 7.. я на работе а трафик платный.. такую самую урезанную версию что бы эта программа запустилась и сделала свое дело

[non1ka]

^^^ Извените за флуд ^^^ Просто не отвечают на топ. Хотел его в списке поднять....

[non1ka]

Очень нужна помощь... Я как бы с помощью знакомых попробывал переделать.. проверьте пожалуйста не в чем не ошибся...

Program HorseMoving;
{$APPTYPE CONSOLE}
uses
 Windows;
Var
 Field: Array [1..20] of Array [1..20] of Integer;
 N: Integer;
 MaxX, MaxY: Integer;
 x, y: Integer;
 Con: integer;

procedure GotoXY(X,Y:integer);
var
 Coord: TCoord;
begin
 Coord.x:=X;
 Coord.y:=Y;
 SetConsoleCursorPosition(Con,Coord);
end;

Procedure WritePosition;
Var
 X, y: Integer;
Begin
 For y:=1 to MaxY do
  For x:=1 to MaxX do
  Begin
    GotoXY (x*4, y*2);
    Write (Field[x, y]);
  End;
End;

Procedure Move(x, y: Integer);
Begin
 N := N+1;
 Field [x,y] := N;
 If N = MaxX * MaxY
  Then Begin
         GotoXY(3,3);
         WritePosition;
         writeln;
         WriteLN (' Есть Решение!!!');
         Readln;
         Halt;
       End;
 If (x+2<=MaxX) and (y+1<=MaxY)
  Then If Field[x+2, y+1]=0
        Then move (x+2, y+1);
 If (x+1<=MaxX) and (y+2<=MaxY)
  Then If Field[x+1, y+2]=0
        Then move (x+1, y+2);
 If (x-1>0) and (y+2<=MaxY)
  Then If Field[x-1, y+2]=0
        Then move (x-1, y+2);
 If (x-2>0) and (y+1<=MaxY)
  Then If Field[x-2, y+1]=0
        Then move (x-2, y+1);
 If (x-2>0) and (y-1>0)
  Then If Field [x-2, y-1]=0
        Then move (x-2, y-1);
 If (x-1>0) and (y-2>0)
  Then If Field [x-1, y-2]=0
        Then move (x-1, y-2);
 If (x+1<=MaxX) and (y-2>0)
  Then If Field [x+1, y-2]=0
        Then move (x+1, y-2);
 If (x+2<=MaxX)and (y-1>0)
  Then If Field[x+2, y-1] = 0
        Then move (x+2, y-1);
 N := N - 1;
 Field[x, y]:=0;
End;

Begin
 Con := GetStdHandle(STD_OUTPUT_HANDLE);
 N := 0;
 Write ('Введите высоту поля (от 1 до 20):');
 ReadLn (MaxX);
 Write ('Введите высоту поля (от 1 до 20):');
 ReadLn(MaxY);
 For x:=1 To MaxX Do
  For y:=1 To MaxY Do Field[x,y]:=0;
 Move (1,1);
 GotoXY(3,3);
 WriteLn ('Решение не найдено');
 readln;
End.