Помощь - Поиск - Пользователи - Календарь
Полная версия: Задачи с использованием файлов
Форум «Всё о Паскале» > 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
Как удалить часто встречающиеся символ?Я это не нашел.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.