Помощь - Поиск - Пользователи - Календарь
Полная версия: Задачи с использованием файлов
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Tupoi_Proger
Помогите пожалуйста решить три несложненьких задачек:
1. Переписать компоненты символьного файла F в файл G в обратном порядке.
2. В файле содержится сведения о сдачи студентами сессии: фамилия, имя, группа, оценки, по 4 предметам. подсчитать качественную и абсолютную успеваемость данной группы.
3. Дан текстовый файл F. удалить один из наболее часто встречающихся символов текста, результат занести в файл G.

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

FAQ : Файлы
DimaD
Цитата(Tupoi_Proger @ 28.12.2005 22:25) *

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.
yes2.gif
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
Цитата(Tupoi Proger @ 8.01.2006 14:44)
Вопрос: у меня не получается удалить часто встречающиеся символ.Чепуха одна.

Знаешь, почему? Вот причина:
Цитата(Tupoi_Proger @ 28.12.2005 19:55)
Дан текстовый файл F. удалить один из наболее часто встречающихся символов текста, результат занести в файл G.
Это по-твоему, задание? То есть, если у меня есть файл, содержащий строку
"аааааабббббвввв ку-ку", то я могу удалить "а", могу удалить "б", а могу "в"? Что значит "один из"? Ты это компьютеру хочешь сказать? Искусственный интеллект пишешь? Ты задание правильно поставь сначала, а потом пробуй делать...
Tupoi Proger
Вопрос:Как удалить часто встречающиеся символ.Я это не нашел.
Вас прошу помогите.
Tupoi Proger
Как удалить часто встречающиеся символ?Я это не нашел.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.