freepascal.ru

Код: Выделить всё

program proba;
uses Crt;
var
  a,b,c:real;
 
begin
repeat
    write('Ввести число а: '); readln(a);
    write('Ввести число b: '); readln(b);
    write('Ввести число c: '); readln(c);
    .......         { тут что-нибудь делаем с этими переменными;
    .......           сейчас это неважно. }
    readkey;
until ...;
end.

Код: Выделить всё

write('Ввести число а: '); readln(a);

Код: Выделить всё

var
  ch : char;
begin
  writeln('Press Left/Right, Esc=Quit');
  repeat
    ch:=ReadKey;
    case ch of
     #0 : begin
            ch:=ReadKey; {Read ScanCode}
            case ch of
             #75 : WriteLn('Left');
             #77 : WriteLn('Right');
            end;
          end;
    #27 : WriteLn('ESC');
    end;
  until ch=#27 {Esc}
end.

Код: Выделить всё

program proba;
uses Crt;
var
  a,b,c:real;
 s:string;
begin
repeat
    write('Ввести число а: '); readln(s); if s = #27 then halt;//и close; не работает
    write('Ввести число b: '); readln(s); if s = #27 then halt;//и close; не работает
    write('Ввести число c: '); readln(s); if s = #27 then halt;//и close; не работает
    .......         { тут что-нибудь делаем с этими переменными;
    .......           сейчас это неважно. }
until ...;
end.

Код: Выделить всё

c:char;
s:string;
r:real;
code:integer;
...........
while (c<>#13) and (c<>#27) do
begin
c:=readkey;
if c in ['0'..'9','.'] then s:=s+c;
end;
if c=#27 then выход из программы, например halt;
val(s,r,code);
if code <> 0 then
             Writeln('Ошибка на позиции :', code); 
в r будет ваше дробное число

Код: Выделить всё

 {$I-};            // временно отключаю проверку корректности ввода
writeln('Введите данные маневра');
writeln('Для выхода из игры вместо данных введите любую букву');
write('Время маневра, сек       : ');  readln(dt);
{$I+};            // включаю проверку корректности ввода
   if IOResult<>0 then