Задание с текстовыми файлами в Паскале

[Novenkaja]

Добрый день/вечер.

Задание у меня такое, связанное с текстовыми файлами.

Написать программу, которая создаёт текстовый файл. Из него сделать (создать) новый текстовой файл, который будет содержать в себе каждый третий символ.

Буду очень благодарна всем, кто откликнется)))

[Stilet]

Ну а что не бполучается?
Создаешь файлы file of char
после считываешь

i:=1;
while not eof(откуда) do begin
 read(откуда,c); if (i mod 3)=0 then write(куда,c);inc(i);
end;
...

Где i целое c - char;
Файлы откроешь на чтение и запись соответственно процедурами reset и rewrite
и закрыть не забудь

[Novenkaja]

program nolasisana;
uses crt;
var f1:text; c:char; str:string;
begin
     clrscr;
     write ('Ievadi faila nosaukumu: ');
     readln (str);
     assign (f1,str);
     reset (f1);
     while not eof(f1) do begin
           while not eoln(f1) do begin
                                 read (f1,c);
                                 write (c)
                                 end;
           readln (f1);
           writeln
           end;
     close (f1)
end.

а можешь как то это код переделать? изначально у меня было задание такое- составить программу, которая обеспечивает считывание информации из данных(файла) по одному символу.

А теперь как я понимаю фалов долдно быть два,первый который мы сами создаём,второй выводится из него таким образом,чтобы содержал он в себе каждый третий символ.

то у меня вышло,а как перейти из файла в файл не выходит

[Novenkaja]

кто-то знает,можно ли это код переделать под мое новое задание и если да,то как?

[Novenkaja]

я сделала вот такой код

Program tekstovoj_fail;
uses crt;
Var f1,f2:text;
    I,n: integer;
    S: string;
Begin
    clrscr;
    write('Введите название 1-ого файла:');
    readln(s);
    Assign(f1, 'file1.txt');
    Rewrite(f1);
    Readln(n);
    for i:=1 to n do
    begin
        readln(s);
        writeln(f1,s);
    end;
    close(f1);

    write('Введите название 1-ого файла:');
    readln(s);
    Reset(f1);
    Assign(f2, 'file2.txt');
    Rewrite(f2);

    While not eof(f1) do
    Begin
        Readln(f1,s);
        If (s[1]='A') or (s[1]='a') then
        Writeln(f2,s);
    End;
    Close(f2);


    Writeln;
    Writeln('Во второй файл записан каждый третий символ: ');
    Reset(f2);
    While not eof(f2) do
    Begin
        Readln(f2,s);
        Writeln(s);
    End;
End.

он компилирует,но когда выхожу в ран,то он меня от туда выкидывает и пишет exitcode=106

[Novenkaja]

кто-то знает как улучшить мой код или кто-то может составить свой и помочь с этим заданием?

[GetMax]

А что вам мешает сделать как предложил Stilet? Это будет выглядеть примерно так

Var f1,f2:file of char;
    I,n: integer;
    S:Char;
Begin
    Assign(f1, 'C:\file1.dat');
    Rewrite(f1);
    Readln(n);
    for i:=1 to n do
    begin
        readln(s);
        write(f1,s);
    end;
    close(f1);
    Assign(f1, 'C:\file1.dat');
    Reset(f1);
    Assign(f2, 'C:\file2.dat');
    Rewrite(f2);
    i:=1;
    Writeln;
    While not eof(f1) do
    Begin
        Read(f1,s);
        If i mod 3 = 0 then Write(F2,S);
        inc(i)
    End;
    Close(f1);
    Close(f2);
  Readln
End.