Из Turbo Pascal в Delphi Console App.

@SlashX6 · Регистрация: 16.03.2012

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

Добрый день!

Проблема следующая, надо перевести программу из Turbo Pascal в Delphi 7 Console App. У меня не получается следующее: мне надо сохранить модуль Crt(чтобы экран был чистый) но спрятав модуль в комментарии у меня затем появляется сообщение, что "a:=ReadKey" undeclared identifier. Как это чудо заставить работать?

Delphi

program radius;
 
{$APPTYPE CONSOLE}
 
//uses
  //crt;
 
var i: integer;
    r,v,res: real;
    a: char;
 
function shar (r:real):real;
begin
 shar:=3.14/3*4*(r*r*r);
end;
 
begin
repeat
//clrscr;
  writeln('Vvesti radius shara cm');
    write ('r=');
      readln (r);
        res:= shar(r);
         writeln ('Objom shara=',res:0:2, ' cm3');
        WriteLn ('Vijti, nazmite  "X"!');
      a:= ReadKey; //здесь ошибка
   until a=#88;
end.

@pobedinsky · 10.04.2012, 14:39

Delphi

program radius;
 
{$APPTYPE CONSOLE}
 
//uses
  //crt;
 
var i: integer;
    r,v,res: real;
    a: char;
 
function shar (r:real):real;
begin
 shar:=3.14/3*4*(r*r*r);
end;
 
begin
repeat
//clrscr;
  writeln('Vvesti radius shara cm');
    write ('r=');
      readln (r);
        res:= shar(r);
         writeln ('Objom shara=',res:0:2, ' cm3');
        WriteLn ('Vijti, nazmite  "X"!');
      Read(a);
   until a=#88;
end.

@SlashX6 · 10.04.2012, 16:10 **[ТС]**

Благодарю за помощь! С проблемой всё таки разобрался сам, но немного по другому. Вижу, что изменения только в 26-й строчке.

Ещё раз спасибо!

@SlashX6 16 / 16 / 9 Регистрация: 16.03.2012 Сообщений: 437
	10.04.2012, 16:10 [ТС]	3
	Благодарю за помощь! С проблемой всё таки разобрался сам, но немного по другому. Вижу, что изменения только в 26-й строчке. Ещё раз спасибо! 0