Помогите решить

[Евгений]

Помогите решить

Начал учить Паскаль (самостоятельно, по книжечке). Познания, пока, не большие. Уперся в задачку. Скорее всего всё очень просто, но я чего-то не соображу.
Дан текстовый файл. Текст-столбик цифр. Нужно записать цифры в другой файл по порядку по 3 числа в строке.
У меня получается, что в строке прописывается 3 раза одна и та же цифра.

 

[Vladimir_S]

Начал учить Паскаль (самостоятельно, по книжечке). Познания, пока, не большие. Уперся в задачку. Скорее всего всё очень просто, но я чего-то не соображу.
Дан текстовый файл. Текст-столбик цифр. Нужно записать цифры в другой файл по порядку по 3 числа в строке.
У меня получается, что в строке прописывается 3 раза одна и та же цифра.

Ой, Женя, извини - как-то пропустил сообщение.
Я, конечно, могу написать программку, но будет лучше, если ты выложишь свой вариант. Посмотрим, разберемся, исправим ошибки.

 

[Евгений]

const
A= 'A.txt';
B= 'B.txt';
var InFile, OutFile: text;
N: integer;
begin
Assign( InFile, A); Reset( InFile);
Assign( OutFile, B); Rewrite( OutFile);
while not Eof(InFile) do begin
Readln(InFile, N);
Writeln(OutFile,N:6,N:6,N:6);
end;
Close( InFile); Close( OutFile);
end.

Я понимаю, что она делает. И даже понимаю почему. Я не пойму как её заставить записывать числа по порядку в одну строку.

 

[Vladimir_S]

Я не пойму как её заставить записывать числа по порядку в одну строку.

Да легко. Например, так:

const
 A= 'A.txt';
 B= 'B.txt';
var
 InFile, OutFile: text;
 N,k: integer;
begin
 Assign(InFile, A);
 Reset(InFile);
 Assign(OutFile, B);
 Rewrite(OutFile);
 k:=0;
 while not Eof(InFile) do
  begin
   Readln(InFile, N);
   Inc(k);
   if k=3 then
    begin
     Writeln(OutFile,N:6);
     k:=0;
    end
   else
    Write(OutFile,N:6);
  end;
 Close(InFile);
 Close(OutFile);
end.

 

[Евгений]

Спасибо.
Были у меня подозрения о Write, но не додумался.
А Writeln , получается, перекидывает на новую строку.
Ешё раз спасибо. Хороший урок.

 

[Vladimir_S]

А Writeln , получается, перекидывает на новую строку.

Конечно. Как и Readln при чтении. И вообще "ln" это сокращенное "line" - линия, строка.