Задачи с использованием файлов Опции

[Tupoi_Proger]

Помогите пожалуйста решить три несложненьких задачек:
1. Переписать компоненты символьного файла F в файл G в обратном порядке.
2. В файле содержится сведения о сдачи студентами сессии: фамилия, имя, группа, оценки, по 4 предметам. подсчитать качественную и абсолютную успеваемость данной группы.
3. Дан текстовый файл F. удалить один из наболее часто встречающихся символов текста, результат занести в файл G.

Заранее спасибо.

[klem4]

В чем проблема ? Что конкретно не получается ? ТОлько не надо говорить что все не получается ...Выложи что ты сделал, исправим ошибки

FAQ : Файлы

Сообщение отредактировано: klem4 - 29.12.2005 1:47

[DimaD]

1. Переписать компоненты символьного файла F в файл G в обратном порядке.

var
 f,f1: TextFile;
 i: Byte;
 St: Char;
 S: String;
begin
 AssignFile(f,'F.txt');
 Reset(f);
 AssignFile(f1,'G.txt');
 Rewrite(f1);
 while not EOF(f) do
  begin
   Readln(f,S);
    for i:=1 to Length(S) div 2 do
     begin
      St:=S[i];
      S[i]:=s[Length(s)-i+1];
      S[Length(s)-i+1]:=St;
     end;
    Writeln(f1,S);
  end;
 CloseFile(f1);
 CloseFile(f);
end.

[Bokul]

Код

var
f,f1: Text;
i:byte;
St: Char;
S: String;
begin
Assign(f,'D:\files.txt');
reset(f);
while (not eof(f)) do
  begin
    read(f,st);
    s:=s+st;
  end;
Assign(f1,'d:\G.txt');
Rewrite(f1);
for i:=length(s) downto 1 do
write(f1,s[i]);
close(f);
close(f1);
end.

Сообщение отредактировано: Bokul - 29.12.2005 7:07

[Tupoi Proger]

Помогите со 2 задачей, третью я уже сделал.В поиске я ничего не нашел.

[klem4]

1. Переписать компоненты символьного файла F в файл G в обратном порядке.

Может имеется в виду что файл типизированный ?

тошда все поще :

 size := FileSize(f);

   for i := size - 1 downto 0 do begin
      seek(f,i);
      read(f,ch);
      write(g,ch);
   end;

[Tupoi Proger]

Помогите пожалуйста со 2 задачей 1 я понял.
В файле содержится сведения о сдачи студентами сессии: фамилия, имя, группа, оценки, по 4 предметам. подсчитать качественную и абсолютную успеваемость данной группы.
Эту задачу в поиске я уже смотрел-нету.Я просто даже не понял что такое качественная и абсолютная успеваемость.

[klem4]

Так вот и я не знаю что это такое ... а задача у тебя стандартная, ищи в поиске "типизированный файл","задача записи"

[Tupoi Proger]

2 задачу частично я понял хотя в поиске я нашел такие же только супер замороченные проги.
Вопрос: у меня не получается удалить часто встречающиеся символ.Чепуха одна.
Помогите пожалуйста.Если удаляет то-почему то все которые встречаются бболее 1 раз.
Я эти файлы не понимаю и на FAQ файлы заходил но не нашел как удалить часто встречающиеся
символ.И в поиске нет.
Помогите пожалуйста,а то по файлам мне крышка будет.

[volvo]

Вопрос: у меня не получается удалить часто встречающиеся символ.Чепуха одна.

Знаешь, почему? Вот причина:

Дан текстовый файл F. удалить один из наболее часто встречающихся символов текста, результат занести в файл G.

Это по-твоему, задание? То есть, если у меня есть файл, содержащий строку
"аааааабббббвввв ку-ку", то я могу удалить "а", могу удалить "б", а могу "в"? Что значит "один из"? Ты это компьютеру хочешь сказать? Искусственный интеллект пишешь? Ты задание правильно поставь сначала, а потом пробуй делать...

[Tupoi Proger]

Вопрос:Как удалить часто встречающиеся символ.Я это не нашел.
Вас прошу помогите.

[Tupoi Proger]

Как удалить часто встречающиеся символ?Я это не нашел.