Определить, чего больше в символьном файле – цифр или букв ла-тинского алфавита.
Вод собствено такая не сложная задача, но чегото не как не получается, помогите...
program fail;
var f:file of char;
c:char;
a,b:integer;
Begin
Assign(f,'file1.sim');
Rewrite(f);
writeln('Введите символы, окончание точка');
readln©;
while c<>'.' do
begin
write(f,c); readln©;
end;
reset(f);
write('Получен файл');
while not eof(f) do
begin
read(f,c);
write©;
end;
writeln;
a:=0;
b:=0;
begin
assign (f,'file1.sim');
reset (f);
while not eof (f) do
read (f,c);
while not eof (f) do
if c in ['a'..'z', 'A'..'Z'] then
a:=a+1
else
b:=b+1;
end;
close (f);
begin
if a>=b then writeln ('больше букв');
if a<b then writeln ('больше цифр');
end;
end.
uses crt;
var
f: file of char;
ch: char;
a, b: Integer;
begin
clrscr;
assign(f, 'chars.ch');
rewrite(f);
repeat
readln(ch);
if ch <> '.' then write(f, ch);
until ch = '.';
reset(f);
a := 0; b := 0;
while not(eof(f)) do begin
read(f, ch);
if ch in ['a'..'z', 'A'..'Z'] then inc(a) else
if ch in ['0'..'9'] then inc(b);
end;
close(f);
if a > b then writeln('A') else
if b > a then writeln('B') else writeln('AB');
end.