Тип Char и функция Val Опции

[TBVlad]

Как бы так избавиться от досадной помехи?..
При преобразовании типа char в тип integer получаются не те цифры, которые нужны. Вместо 4 - 10, вместо 75 - 215... это какая-то особенность? Если да, то как её обмануть и получить нормальные цифры?

[volvo]

Пример, КАК ты это делаешь, приведи...

[Altair]

При преобразовании типа char в тип integer получаются не те цифры, которые нужны. Вместо 4 - 10, вместо 75 - 215..

пардон ми, как ты 75 в char запихнул ?

[Lapp]

Корректно было бы переводить char в byte - они имеют одинаковый размер в памяти. Тогда результат будет в точности соответствовать номеру символа. Например:
byte('2') даст 50
byte('A') даст 65
Ты все же напиши конкретно, что именно ты делаешь. Способов много. Ошибочных способов - еще больше
И про 75 - тоже очень интересно.. Может, это #75 был? Но как получил 215 - неясно..

[K Y S K A]

зачем все так сложно?
I:=ord(ch)-ord('0')
и вам это было сложно написать?

[Altair]

K Y S K A, так тебе придется циклом обрабатывать каждый символ и потом все полученные цифры записывать в число. Это 2 цикла... зачем, когда есть процедура val ?
ну и кто сложне прелагает ?

[K Y S K A]

ну например в стринг запихнуть иэто юзить

[Altair]

Я уже объяснил почему твой метод неприемлим.

[TBVlad]

Оставил я затею с char, сделал текстовый файл. Текст посимвольно переводится в числа (записываясь в числовой файл) и суммируется. В файле сум.тхт спрятаны числа, которые в сумме дают именно 75 Но получается почему-то 215. Ошибок вроде бы нет, значит какая-то хитрость.

Program File1;
Var sum : text;
sum1 : file of integer;
s,t : string;
i,c,m,n : integer;

Begin
Assign(sum,'sum.txt');
Assign(sum1,'sum1.dat');
{$I-}
Reset(sum);
Rewrite(sum1);
{$I+}
If IOResult<>0 then
Begin
Writeln('The file is absent.');
Halt;
End;
i:=1;
n:=0;
While not eoln(sum) do
Read(sum,s);
For i:=1 to length(s) do
Begin
If s[i]<>' ' then
Begin
t:=s[i];
Val(t,m,c);
Write(sum1,m);
n:=n+m;
End;
End;
Close(sum);
Close(sum1);
Writeln(n);
End.

[volvo]

Ошибок вроде бы нет, значит какая-то хитрость.

А складывать числа, а не цифры не пробовал?

Program File1;
Var
  sum : text;
  sum1 : file of integer;
  s,t : string;
  i,c,m,n : integer;

Begin
  Assign(sum,'sum.txt');
  Assign(sum1,'sum1.dat');
  {$I-}
    Reset(sum);
    Rewrite(sum1);
  {$I+}

  if IOResult <> 0 then begin
    Writeln('The file is absent.'); Halt;
  end;

  n := 0;
  while not eoln(sum) do read(sum, s); { Зачем вот это - я так и не понял }

  T := '';
  For i := 1 to length(s) do begin
    if s[i] <> ' ' then T := T + s[i]
    else begin
      Val(t, m, c);
      Write(sum1, m);
      n := n + m;
      T := '';
    End;
  End;

  { Ну, и последнее число в строке }
  if T <> '' then begin
    Val(t, m, c);
    Write(sum1,m);
    n := n + m;
  end;

Close(sum);
Close(sum1);
Writeln(n);
End.