Frez
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: program open_file;
uses crt;
var
f:text;
st,cr:string;
lin,sim,i,sum,x,tmp:integer;
begin
clrscr;
assign(f,'d:\work.ex'); reset(f);
while not eof(f) do
begin
readln(f,st);
for i:=1 to length(st) do
begin
cr:=copy(st,i,1); val(cr,x,tmp);
sum:=sum+ord(x);
end;
sim:=sim+length(st); inc(lin);
end;
close(f);
writeln(sim,' simbols');
writeln(lin,' lines');
writeln(sum,' crc');
end. |
Вот такая трабла парни ! Тут ещё оказалось, что она СRС текстового файла считает не верно...Слишком мало, на мой взгляд , получается...А с ехе файлами она вообще работать отказывается...
Подскажите, плиз, как заставить ёё правильно считать CRC любого файла.
Добавлено
Цитата: program open_file;
uses crt;
var
f:text;
st,cr:string;
lin,sim,i,sum,x,tmp:integer;
begin
clrscr;
assign(f,'d:\work.ex'); reset(f);
while not eof(f) do
begin
readln(f,st);
for i:=1 to length(st) do
begin
cr:=copy(st,i,1); val(cr,x,tmp);
sum:=sum+ord(x);
end;
sim:=sim+length(st); inc(lin);
end;
close(f);
writeln(sim,' simbols');
writeln(lin,' lines');
writeln(sum,' crc');
end. |
Вот такая трабла парни ! Тут ещё оказалось, что она СRС текстового файла считает не верно...Слишком мало, на мой взгляд , получается...А с ехе файлами она вообще работать отказывается...
Подскажите, плиз, как заставить ёё правильно считать CRC любого файла.
|
