Вопрос по DOSу. Вывод программы одновременно на экран и в файл

[roman_azn]

Написал програмку в паскале для расчета машинки, и хочу, чтобы через дос ее запускать и она одновременно работала на экране и все с экрана скидывалось в файл. писал в досе так:"proba.exe >d:\1.txt" но тогда все скидывается в файл, но не показывается на экране. Как сделать чтоб и туда и туда? И еще вопросик туда-же: как сделать, чтоб в том текстовом файле результаты сохранялись на русском языке(они крокозябрами печатаются) и чтоб он разрывы строк делал, а то печатает все подряд.
Заранее спасибо)

[s-andriano]

Сообщение от roman_azn

Как сделать чтоб и туда и туда?

Проще всего двумя операторами: один выводит на экран, другой - в файл.
Альтернативное решение - самому делать консоль с нужными свойствами.

И еще вопросик туда-же: как сделать, чтоб в том текстовом файле результаты сохранялись на русском языке(они крокозябрами печатаются)

Кракозябры в файле - это конкретный просмотрщик файла показывает его не в той кодировке.
Проще всего - сменить просмотрщик, которым смотрите файлы.
Ну, либо перекодировать перед выводом (если писать свою консоль, то эту задачу можно возложить на нее.)

и чтоб он разрывы строк делал, а то печатает все подряд.
Заранее спасибо)

Это зависит исключительно от Вас - как будете выводить, так и будет.
Либо опять проблемы с просмотрщиком.

[roman_azn]

Сообщение от s-andriano

Проще всего двумя операторами: один выводит на экран, другой - в файл.

А не подскажете операторы? Я в досе почти не разбираюсь.
Вот я писал уже: прописываю в командной строке "proba.exe >d:\1.txt" Вот первый оператор будет >d:\1.txt(вывод в файл). А второй какой? чтоб и на экран тоже.
С кодировками я разобрался.
А вот с переносами по строкам.

Сообщение от s-andriano

Это зависит исключительно от Вас - как будете выводить, так и будет.

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

[Serge_Bliznykov]

Вот я писал уже: прописываю в командной строке "proba.exe >d:\1.txt"

нет. так не получится.
Дело в том, что знак перенаправление вывода (значок "больше" в командной строке) это прерогатива исключительно операционной системы.

решить вашу проблему можно так (погоняйте данный код):

uses
  Crt;
var FOut : text;
label
  NotRedirected;
begin
  AssignCrt(FOut);
  Rewrite(FOut);
  asm
    mov ax, $4400
*   mov bx, 1
    int $21
{    sub ax, $42} {2 = Console output device}
    test  ax, 1 {2 = Console output device}
    jnz NotRedirected
  end;
  WriteLn('Было переопределение!!! [надпись на экран ВСЕГДА!!]');
  Assign(Output, '');
  Rewrite(Output);

NotRedirected:
  TextColor(White);
  WriteLn(Output,'Привет от Петросяна');
  WriteLn(Output,'Этот текст в зависимости от переопределения.');
  WriteLn(FOut,'А этот текст всегда на экран.');
end.

или так, как Вам предложил s-andriano:
везде, где у вас написано WriteLn(что-то ваше)
заменять на ДВЕ строчки кода:

  WriteLn(что-то ваше); {<----- это вывод на экран (если не испльзовать перенаправление вывода, конечно!}
  WriteLn(fOut, что-то ваше);  {вывод в текстовый файл.}

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

var 
  fOut : Text;
...
begin
   Assign(fOut, 'Log1.txt'); {назначение вывода в файл}
   Rewrite(fOut);   {перезаписать файл - старое содержимое будет стёрто}

   ....
   ....
   тут вывод в файл через WriteLn(fOut, 'Нужный текст вывода в файл');

   {обязательно нужно закрыть открытый файл}
   Close(fOut);
....
end.

[roman_azn]

Спасибо за ответы, в конце концов я просто writeln'ы продублировал.