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

[Archie]

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

[Айра]

Можно приблизительно так:

var ch: char;
    x,d: real;
    f: boolean;
begin
  x:=0;
  f:=false;
  d:=0.1;
  while ch<>' ' do
    begin
      readln(ch);
      if ch='-' then d:=d*(-1);
        case ch of
          '0': x:=x*10+0;
          '1': x:=x*10+1;
          '2': x:=x*10+2;
          '3': x:=x*10+3;
          '4': x:=x*10+4;
          '5': x:=x*10+5;
          '6': x:=x*10+6;
          '7': x:=x*10+7;
          '8': x:=x*10+8;
          '9': x:=x*10+9;
        end;
      if f then d:=d*10;
      if (ch='.') or (ch=',') then f:=true;
    end;
  if f then  x:=x/d;  //исправлено
  writeln(x:6:4);
end.

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