Bash.org.ru IT Happens Истории ## 7601 – 7700

#7652: Смотрите все: я знаю алфавит!

12:00 31.10.2011, IT happens

Сижу на одном программистском форуме, помогаю студентам решать задачи на Паскале. Я честно не знаю, что бы я делал без этих дорогих индусов. Наверное, умер бы от скуки. Вот последняя жемчужина.

Необходимо создать текстовый файл, содержащий исходную программу, а также подсчитать длину созданного файла. С созданием файла вопросов не возникает, а вот как подсчитать длину? На ум пришло только:

{Podschet dlini}

Reset(f1);

kol:=0;

while not eof(f1) do begin

readln(f1,l);

For i1:=1 to length(l) do if (l[i]='a')or(l[i]='A') or (l[i]='b')or(l[i]='B')

or(l[i]='c')or(l[i]='C')or(l[i]=' ')or(l[i]='d')or(l[i]='D')

or(l[i]='e')or (l[i]='E') or(l[i]='f') or(l[i]='F')

or (l[i]='g')or (l[i]='G') or (l[i]='h')or(l[i]='H')

or(l[i]='i')or(l[i]='I')or(l[i]='J')or(l[i]='j')

or(l[i]='k')or(l[i]='K')or(l[i]='l')or(l[i]='L')

or (l[i]='m')or (l[i]='M')or(l[i]='n')or(l[i]='N')

or (l[i]='o')or(l[i]='O')or(l[i]='p')or(l[i]='P')

or(l[i]='q')or(l[i]='Q')or (l[i]='r')or (l[i]='R')

or(l[i]='S')or(l[i]='s')or(l[i]='t')or(l[i]='T')

or(l[i]='v')or(l[i]='V') or(l[i]='w')or(l[i]='W')

or(l[i]='u')or(l[i]='U')or(l[i]='x')or(l[i]='X')

or(l[i]='y')or(l[i]='Y')or (l[i]='z')or(l[i]='Z') then

kol:=kol+1;

end;

WriteLn('kol=',kol);

Правильно ли? И каким ещё образом можно подсчитать длину?