Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Считать 10 цифр из файла

Автор: Эмиль 1.11.2003 22:26

Здраствуйте. Есть файл a.in в нем записано 10 цифр подряд, без пробелов, к примеру 1234567890 как их считать, к примеру в массив, чтобы b[1]=1 b[2]=2 и т.д. b[10]=0?

Автор: Эмиль 2.11.2003 11:55

Решил, причем сам:

Код
var f_in:text;
        b:array[0..9] of byte;
        k:byte;
       ch:char;
begin
  Assign(f_in, a.in');
  Reset(f_in);
  summa:=0;
  for k:=0 to 9 do
  begin
     read(f_in,ch);
     b[k]:=ord(ch)-48;{ord() возвращает ASCII код символа. ord(0)=48,...,ord(9)=57}
  end;
end.

Автор: GLuk 2.11.2003 21:55

Вот все бы так  :)

Автор: Fire_Rage 4.11.2003 18:34

Зачем так сложно? Не легче ли с val'ом:

Код
var
cc:char;
i,g:integer;
b:array[1..10]of integer;
begin
assign(input,a.in);
reset(input);
i:=0;
while not eof(input) do begin
                                       read(cc);
                                       i:=i+1;
                                       val(cc,b[i],g);
                                      end;
end.