Другие языки программирования и технологии

Вопрос тем, кто знает Pascal! Как сделать так, чтобы результат программы, который выводится на экран,

автоматически сохранялся в каком-то текстовом редакторе, например в WordPad. И вообще можно ли так сделать? Вот к примеру моя программа Program help; uses crt; var A: array [1..15,1..15] of integer; i,j: integer; Begin clrscr; For i:=1 to 15 do A[i,1]:=1; For i:=2 to 15 do For j:=2 to 15 do A[i,j]:=A[i-1, j-1]+A[i-1,j]; For i:=1 to 15 do Begin For j:=1 to 15 do If A[i,j]<>0 then Write (A[i,j]:7); Writeln; End; Readkey; End. Надо, чтобы выводимый треугольник сохранился в WordPad
Для отго, чтобы перенаправить вывод программы с экрана в файл, существуют стандартные возможности ОС.
В командной строке нужно написать имя программы, знак "больше" и имя файла, в который нужно перенаправить вывод.
Например:
myprogram.exe >myfile.txt

PS. Возможно, нужно будет отключить crt - он здесь все равно не нужен.
И использование clrscr считается дурным тоном. Нередко крайне желательно сохранить на экране вывод нескольких программ, запускаемых последовательно, а clrscr этому препятствует.
Артем Щербаков
Артем Щербаков
11 765
Лучший ответ
Андрей Агафонов Попробовала, не получилось. Поясните, пожалуйста, для нас-неграмотных, где находится командная строка.
Сохранять в файл можно, в том числе и в обычный текстовый, читаемый блокнотом, т. е. с расширением ".txt". Можно создать этот файл в процессе выполнения программы. А можно и заранее, просто в любой папке его создать, а потом в программе указать его полное имя, т. е. например "d:\papka\papka\file.txt"
Но для начала надо разобраться с теорией. Поищите в учебниках, или может быть эта ссылка поможет:
http://www.pascal.helpov.net/index/files_pascal_programming
Но там говорится не только про текстовые файлы, которые Вас интересуют, но и про типизированные и нетипизированные, которые нельзя читать в блокноте.
Г2
Геннадий 22Rus
1 741
Делать запись в файл.

Program help;
uses crt;
var
A: array [1..15,1..15] of integer;
i,j: integer;
f: text;
Begin
clrscr;
assignfile(f,rez.txt);
rewrite(f);
For i:=1 to 15 do A[i,1]:=1;
For i:=2 to 15 do
For j:=2 to 15 do
A[i,j]:=A[i-1, j-1]+A[i-1,j];
For i:=1 to 15 do
Begin
For j:=1 to 15 do
If A[i,j]<>0 then
Write (f,A[i,j]:7);
Writeln(f);
End;
close(f);
Readkey;
End.

Как-то так.
Алексей Коваленко А где потом искать этот сохраненный файл?
Геннадий 22Rus Строчка "assignfile(f,rez.txt); " неправильная. Надо так:
assign ( f , ' rez.txt ' ) ;
пробелы обавила, чтобы лучше видно было, их можно убрать.

Похожие вопросы