Задача по теме файлов + оператор Case Of + меню, Упорядочить по + и по - & определить сколько компонентов файла пре Опции

[Myasnik]

Вообщем дали мне вот такую задачу, я как всегда в ауте из-за срока в 2 дня...

Программа запрашивает имя файла и предоставляет пользователю меню из 3-х пунктов:
a) упорядочить по возрастанию
б) упорядочить по убыванию
в) определить, сколько компонентов файла представляют собой цифры, сколько - не заглавные буквы латинского алфавита, сколько являются восклицательными знаками.

[volvo]

получилось только цифры... а как буквы и цифры?

Буквы и цифры при использовании

Type ff=file of integer;

?
Никак...
Я же говорил, используй File Of Char...

К тому же, у тебя в программе есть несколько недочетов:

reset(f1);
seek(f1,0); { <-- Зачем это? Указатель и так в начале файла... }

Assign(f1,Name);
{$i-}
Rewrite(f1);
{$i+}
If ioresult<>0 then rewrite(f1);
{ А с чего это, если была ошибка в первый раз, то во второй она НЕ должна произойти? }

2 такой же, поменять-то знак

А если без Copy/Paste?

[Myasnik]

Сделал задачу! Всё ништяк работает!
Пасиб тебе Вольво за подсказки!

Program chegevAra;

uses Crt;
Type ff=file of char;

Var
f:ff;
a1,a2,a3,c,i,j:integer;
Name:string;
s,a,b:char;

Begin
ClrScr;
Randomize;
Writeln('Vvedite imya faila:');
readln(name);
assign(f,name);
Rewrite(f);
Writeln('Zapolnite file');
For i:=1 to 10 do
  begin
  Readln(a);
  Write(f,a);
end;
Seek(f,0);

writeln('Veberite interesuyushiy vas punkt:');
writeln('1)Yporyadochitb po Bozrastaniy.');
writeln('2)Yporyadochitb po yBbIvaniy.');
writeln('3)Opredelitb, skolbko komponentov...');
reset(f);
read©;
case c of

1:begin
For i:=FILESIZE(F)-1 downto 1 do
For j:=0 to i-1 do
begin
seek(f,j);
read(f,a,b);
if a>b then
begin
seek(f,j);
write(f,b,a);
end;

end;
close(f);
reset(f);
write('Otsortirivanniy file:');
for i:=1 to Filesize(f) do
begin
read(f,a);
write(a:4);
end;
close(f);
end;

2:begin
For i:=FILESIZE(F)-1 downto 1 do
For j:=0 to i-1 do
begin
seek(f,j);
read(f,a,b);
if a<b then
begin
seek(f,j);
write(f,b,a);
end;

end;
close(f);
reset(f);
write('Otsortirivanniy file:');
for i:=1 to Filesize(f) do
begin
read(f,a);
write(a:3);
end;
close(f);
end;

3: Begin
   a1:=0;
   a2:=0;
   a3:=0;
   while not Eof(f) do begin

   read(f,s);
   case s of
'!':Inc(a1);
'0'..'9':Inc(a2);
'a'..'z':Inc (a3);
end;
end;
   Writeln('In file');
   Writeln('skolko cifr: ',a2);
   Writeln('skolko bukvy alfavita:', a3);
   Writeln('skolko !: ',a1);
close(f);
end;
end;
READKEY;
END.