литеры...я не проходил...а вы?, integer, real, boolean, литеры. Опции

[Archie]

integer, real, boolean, литеры.
Литеры в операторах ветвления, цикла. Ввод/вывод литерных дан-
ных.Ребят...помогите плиз - я эти литеры не проходил и не знаю даж что это...
Используя только литерный ввод, ввести задан-
ное вещественное число (за ним - пробел), записанное по
правилам языка Паскаль, и присвоить его вещественной
переменной X.

[Айра]

Что-то не так..

Я даже знаю что

x:=x/d;

надо заменить на

if f then  x:=x/d;

Исправила))

А что, ReadKey тоже нельзя использовать? Некрасиво выходит...

Если б я знала, что это и с чем его едят не проходили мы ето еще, у нас символов вообще еще нет))

Сообщение отредактировано: Айра - 20.10.2007 20:55

[Lapp]

Если б я знала, что это и с чем его едят

Это совсем нетрудно. Посмотри, я немного модифицировал твою программку.. До кучи, ввел простенькую диагностику ошибок.
Обрати внимание на использование CRT

uses
  CRT;

var
  ch: char;
  x,d: real;
  e,f,g: boolean;

begin
  x:=0;
  e:=false;
  f:=false;
  g:=false;
  d:=10;
  repeat
    ch:=ReadKey;
    Write(ch);
    case ch of
      '0'..'9': x:=x*10+Ord(ch)-48;
      '.': if f then e:=true else f:=true;
      '-': if g then e:=true else d:=-d;
      ' ': break;
      else e:=true
    end;
    if f then d:=d*0.1;
    g:=true;
  until false;
  if f then x:=x*d;
  if e then WriteLn('Error') else WriteLn(x:6:4);
  ReadLn
end.