Здраствуйте. Есть файл 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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.