Паскаль ,задача, не работает зараза , весь день мучался :'( Поделиться Опции

[Skyriver]

Люди , плз , больше некуда обращаться ...
Задача по Паскудному
Создать файл символов , переписать из первого файла во второй строчные букавы латинского алфавита
Компилятор FreePascal 2.2.4

Код

program Alfv1;
var
f1,f2:file of char;
i,n:integer;
c:char;
begin
   assign(f1,'c:\file1.dat');
    rewrite(f1);
        writeln('Введите символы');
      readln(с );
  while not eof(f1) do
      begin
         write(f1,c);
         readln(c );
      end;
      writeln('Вывод файла');
      reset(f1);
    while not eof(f1) do
     begin
         read(f1,c);
         write(c );
     end;
      close(f1);
      reset(f1);
{Перенос из первого во второй символов латинского алфавита}
  assign(f2,'c:\file2.dat');
    rewrite(f2);
  while not eof(f1) do
    begin
      read(f1,c);
     if c in ['a'..'z'] then
      write(f2,c);
    end;
     writeln('Новый файл');
     writeln;
      reset(f2);
{вывод второго файла}
while not eof(f2) do
    begin
    read(f2,c);
    write(c );
    end;
      close(f2);
      writeln('Нажмите любую клавишу');
    readln;
  erase(f1);
  erase(f2);
end.

Вот результат

Spoiler:

[close]

Где грабли О_о ? Если до утра не сделаю , будет мне *DEAD* .

ЗЫ.автозамена исправляет (с ) на ©

Сообщение отредактировал Skyriver - 20.1.2010, 20:32

[DmT]

Skyriver,
перепиши код с тегом [code]

[Skyriver]

DmT,
Переписал

[AlexKooper]

а ты файл1 смотрел, у тебя в него записывается текст?
или может eof глючит? может жестко циклом на 10 сделать для отладки?

Добавлено позже (21.1.2010, 16:46):
У тебя же с момента вывода первого файла на экран пошло всё не так?
может быть для указателя в начало не ресет сделать, а seek(0) или как оно там пишется?

[Skyriver]

Закройте , домучался , первый eof должен быть

Код

while c<>'.'