Другие языки программирования и технологии
Вопрос тем, кто знает 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 этому препятствует.
В командной строке нужно написать имя программы, знак "больше" и имя файла, в который нужно перенаправить вывод.
Например:
myprogram.exe >myfile.txt
PS. Возможно, нужно будет отключить crt - он здесь все равно не нужен.
И использование clrscr считается дурным тоном. Нередко крайне желательно сохранить на экране вывод нескольких программ, запускаемых последовательно, а clrscr этому препятствует.
Андрей Агафонов
Попробовала, не получилось. Поясните, пожалуйста, для нас-неграмотных, где находится командная строка.
Сохранять в файл можно, в том числе и в обычный текстовый, читаемый блокнотом, т. е. с расширением ".txt". Можно создать этот файл в процессе выполнения программы. А можно и заранее, просто в любой папке его создать, а потом в программе указать его полное имя, т. е. например "d:\papka\papka\file.txt"
Но для начала надо разобраться с теорией. Поищите в учебниках, или может быть эта ссылка поможет:
http://www.pascal.helpov.net/index/files_pascal_programming
Но там говорится не только про текстовые файлы, которые Вас интересуют, но и про типизированные и нетипизированные, которые нельзя читать в блокноте.
Но для начала надо разобраться с теорией. Поищите в учебниках, или может быть эта ссылка поможет:
http://www.pascal.helpov.net/index/files_pascal_programming
Но там говорится не только про текстовые файлы, которые Вас интересуют, но и про типизированные и нетипизированные, которые нельзя читать в блокноте.
Делать запись в файл.
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.
Как-то так.
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 ' ) ;
пробелы обавила, чтобы лучше видно было, их можно убрать.
assign ( f , ' rez.txt ' ) ;
пробелы обавила, чтобы лучше видно было, их можно убрать.
Похожие вопросы
- написать программу которая выводит на экран оцифрованную координатную сетку!Нужно решение через Турбо Паскаль!
- c++ цикл: for Написать программу, которая выводит на экран все числа в диапазоне указанном пользователем.
- Напишите программу, которая выводит на экран все делители числа N, (число N вводится с клавиатуры) абсПАСКАЛЬ ПОМОГИТЕ
- Вопросик по Pascal. Есть переменные A,B,C,D. Как сделать так, чтобы при вводе A выводилось цифра 1, B - 2, C-3, D-4?
- Срочно помгите в exel сделать что бы результат умножения выводился не как ошибка!
- Написать программу которая определяет количество учеников в классе,чей рост превышает средний(Turbo Pascal)
- Нужна программа которая читала все из Экселевого файла и выводила все на экран желательно на паскале
- Помагите пожайлуста найти программу. Подскажите программу которая снимает видео с экрана и веб камеры одновременно
- Вау, у меня есть вопрос =D . Часть знаю как решить а часть нет. Тогда задам подвопрос. Язык - C# C++ Pascal на выбор
- C++, почему не выводится на экран текст: Введенное Вами число - простое.