Текстовые файлы

[Milashka_zp]

Помогите разобраться!
Условие:
Дан файл, содержащий произвольный текст. Выясните, чего в нем больше: букв или цифр.
Мой код:
FT: text;
C: char;
M: set of '0'..'9';
N: set of 'a'..'z';
Begin
Assign(FT,'Text.txt');
Reset(FT);
While not Eof(FT)
begin
ReadLn(FT,C);
end;
close(FT);
end.
Вопросы:
1.Как можно обратиться к каждому элементу файла, для того чтоб подсчитать чего больше букв или цифр.
2.Должен ли паскаль выводить содержимое файла при получении результата?

[Sazary]

1.Как можно обратиться к каждому элементу файла, для того чтоб подсчитать чего больше букв или цифр.

Объявите файл как file of char.
И считывайте файл посимвольно:

while not eof(FT) do
 begin
 read(FT,c);
 { тут проверяете, цифра или буква }
 end;

2.Должен ли паскаль выводить содержимое файла при получении результата?

Думаю, не нужно.

[Milashka_zp]

Я переделала программу:

FT: file of char;
C: char;
N: set of 'a'..'z';
k,m: integer;
Begin
Assign(FT, 'text.txt');
Reset(FT);
k:=0;
m:=0;
While not Eof(FT)
Read(FT,C);
if (C in N) then
m:=m+1
else
k:=k+1;
if m>k then writeln('Букв больше')
else writeln('Цифр больше');
close(FT);
end.

Программа постоянно выбивает, "Цифр больше"!
Не могу найти ошибку, помогите!
Я первый раз сталкиваюсь с файлами в паскале, поэтому подозреваю, что проблема в строке "if (C in N) then".
Повторяюсь что я впервые сталкиваюсь с файлами, поэтому я не могу понять что копируется в переменную "С"!

[Sazary]

Повторяюсь что я впервые сталкиваюсь с файлами, поэтому я не могу понять что копируется в переменную "С"!

Read(FT,C);

читает очередной (один!) символ из файла.
Не забывайте, что в файле, кроме цифр и букв, есть пробелы и символы перевода строки.

Программа постоянно выбивает, "Цифр больше"!

Эта программа вообще не скомпилируется. Вы ее запускали?

uses crt;
var
FT: file of char;
C: char;
k,m: integer;

Begin
clrscr;
Assign(FT, 'test.txt');
Reset(FT);
k:=0;
m:=0;
While not Eof(FT) do
 begin
 Read(FT,c);
 if c in ['a'..'z','A'..'Z'] then inc(m)
 else if c in ['0'..'9'] then inc(k);
 end;

if m>k then writeln('Bukv bolshe')
else writeln('cifr bolshe');

close(FT);
readln;
end.

------------
Код заключайте в теги CODE!

[Milashka_zp]

Большое спасибо, я поняла свою ошибку!
А та программа запускалась, но содержимое переменной N принемало за число, поэтому и выбивало "цифр больше"

[Sazary]

Сообщение от Milashka_zp

но содержимое переменной N принемало за число, поэтому и выбивало "цифр больше"

"Цифр больше" выбивало потому что у вас любой символ, не являющийся буквой, принимался за цифру.
Хотя сложно судить, т.к. вы, похоже, выложили измененный (не рабочий) код.