Распознавание. Опции

[mihas]

??? Help Me !!! Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше - русских букв или цифр.

[mihas]

дык я вроде эту задачу еще в обед того... ;). см. тему про "обрезание" массива

Да огромное спасибо тебе!!! Программа заработала, только видимо из=за того что ты торопился небольшие ошибочки допустил ( например строки-константы не могут быть массивами) , вот рабочий код программы:

Код

program readfile;
var
nr,nb,i:longint;rus,num:string;
f:file of byte;b:byte;
s:string;
begin
rus:='АБВГДЕЁЖЗИКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯабвгдежзиймлкнопрстуфхцчшщьыъэюя';
num:='123456789';
nr:=0;nb:=0;
assign(f,'text.txt');reset(f);
repeat
read(f,B);
for i:=1 to length(rus) do if chr(B)=rus[i] then nr:=nr+1;
for i:=1 to length(num) do if chr(B)=num[i] then nb:=nb+1;
until eof(f);
close(f);
s:='Букв больше';
if nb=nr then s:='Равное количество';
if nb>nr then s:='Цифр больше';
writeln(s);
readln;
end.

Сообщение отредактировано: volvo - 17.12.2004 13:49