Как запустить в делфи программу паскаля?

[orange girl]

ситуация такая, программа написанная в самом Паскале, работает, НО когда её запускаешь в делфи, то он выдаёт ошибку.
запускаю в консольном приложении.

[Карась]

Какую ошибку? Где код?

В Делфи нет модуля CRT. А в паскале он чутли не всегда прописан...

[GE076]

Схожий вопрос. Завтра лабораторная по паскалю, но на компьютерах в аудитории он не стоит. Сказано запускать эту программу в Делфи. Дома писал в программу в TP, но как заставить ее работать в делфи (а я пытался) представляю плохо, хотя дома делфи есть.

[orange girl]

вот собственно сама программа. (в паскале работает)

нажимаю запуск, выскакивает сообщение :"Error. Runtime error 105 at 00404083"

А внизу под программой написано [Предупреждение] Project2.dpr(18): Text after final 'END.' - ignored by compiler

Program Kontrol2;
Const x=1.25;
      y=-2.14;
Var z:real;
Begin
z:=(exp(y*ln(exp(x)))+2.73*(sqr(y)*y*exp((1/3)*ln(x))+1.78*exp(1.4*ln(abs(x)))))/(abs(x+y)+(sin((pi/2)*y)/cos((pi/2)*y)))
;

Writeln('   gruppa - dtpp 1-2');
Writeln('   variant - 11');
Writeln(#218,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#191);
Writeln(#179,'  x = 1.25        ',#179);
Writeln(#179,'  y = -2.14       ',#179);
Writeln(#179,'  Z = ',Z:9,'   ',#179);
Writeln(#192,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#217);
Readln;
End.
');
Readln;
End.

[Карась]

96,#196,#196,#196,#196,#196,#196,#196,#196,#196,#1 96,#217);
Readln;
End.
');
Readln;
End.

Вот ээто явно не отсюда.... убрать

');
Readln;
End.

Также всякие ClsCrt, uses crt, readkey и похожее.....

[_Dmitry]

Не надо удалять строки, которые пишет за вас Delphi.
Добавьте после заголовка программы: {$APPTYPE CONSOLE}

[deluxe87]

у меня та же ситуация. А когда я прописал "uses wincrt" , то в сообщении появилось - не найден wincrt.dcu

Где его взять?

[Serge_Bliznykov]

у меня та же ситуация. А когда я прописал "uses wincrt" , то в сообщении появилось - не найден wincrt.dcu

Где его взять?

ну найдёте Вы его и что?

WinCrt - модуль для 16-битных программ на паскале...

всё равно он Вам не поможет...

Был самодельный порт CRT -> CRT32.PAS

модуль CRT32, в нем процедуры и функции, аналогичные CRT,
но для консоли в Delphi.

но, это такое глючилово, что не дай Боже...
Если хотите, Вы его легко найдёте, но я крайне не рекомендую его к использованию.

Или пользуйтесь TurboPascal/ PascalABC
либо убирайте все красивости и пользуйтесь обычной консолью win32, либо переписывайте под Windows GUI (с помощью форм, VCL, рисования на канве и прочее, прочее)...

[Sparkman]

Сообщение от orange girl

ситуация такая, программа написанная в самом Паскале, работает, НО когда её запускаешь в делфи, то он выдаёт ошибку.
запускаю в консольном приложении.

1) запускаете Delphi;
2) жмете File->New->Other...;
3) в появившемся окне, во вкладке New ищете Console Application;
4) выделяете и жмете кнопку OK;
5) появится окно со следующим кодом:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
  { TODO -oUser -cConsole Main : Insert code here }
end.

6) удаляете весь код;
7) вставляете это (ваш код т.е.):

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Const x=1.25;
      y=-2.14;
Var z:real;
Begin
     z:=(exp(y*ln(exp(x)))+2.73*(sqr(y)* y*exp((1/3)*ln(x))+1.78*exp(1.4*ln(abs(x)))) )/(abs(x+y)+(sin((pi/2)*y)/cos((pi/2)*y)));
     Writeln(' gruppa - dtpp 1-2');
     Writeln(' variant - 11');
     Writeln(#218,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#191);
     Writeln(#179,' x = 1.25         ',#179);
     Writeln(#179,' y = -2.14        ',#179);
     Writeln(#179,' Z = ',Z:9,'   ',#179);
     Writeln(#192,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#196,#217);
     Readln;
End.

8) жмете F9;
9) радуетесь

ПС: кстати паскаль даже на дискетку залезает , не легче его с собой принести?

[Serge_Bliznykov]

Sparkman, Вы не тому человеку отвечали... )
orange girl не была здесь с 2007 года...

и не на тот вопрос..

Сообщение от deluxe87

wincrt.dcu где взять?