Как сделать что бы число бралось с файла а не вводилось с компьютера? программирования паскаль

jobmob, 156 просмотров

-1

Вот код
program 1;
uses crt;
type N = array[0..40] of integer;
var a,i,l,k:integer;
x:N;

procedure next(var x:N; var l:integer);
var i,j,s:integer;
begin
i:=l-1;
s:=x[l];
while (i>1) and (x[i-1]<= x[i]) do
begin
s:= s+x[i];
dec(i);
end;
inc(x[i]);
l:= i+s-1;
for j:=i+1to l do
x[j]:=1;
end;

begin
clrscr;
readln(a);
l := a;
for i := 1 to l do
x[i] := 1;
for i := 1 to a do
if i=l then write(x[i]) else write(x[i], '+');
writeln;
repeat
next(x, l);
inc(k);
for i := 1 to l do
if i=l then write (x[i]) else write(x[i], '+');
writeln;
until l = 1;
readkey;
end.
плиз помогите ! просто не вехал в тему когда было создания и редактирования файлов !

Ответы:

mascom

при объявлении переменных
var f:text;
В теле программы до чтения переменной нужно инициализировать файл
assign(f,'c:\1.txt'); {где c:\1.txt путь до файла и его имя}
Затем нужно его открыть для чтения (файл уже должен там быть)
reset(f);
Затем всё точно также как и обычно но в функциях read() и readln() нужно указывать сначала, что мы читаем из файла:
readln(f,a);
В твоём случае должно быть так:
program 1;
uses crt;
type N = array[0..40] of integer;
var a,i,l,k:integer;
x:N;
f:text;
procedure next(var x:N; var l:integer);
var i,j,s:integer;

TimeDaemon

Мой ответ скорее для ТС будет иметь только информативный характер, но все же.
В современных ОС есть понятие перенаправление потоков ввода и вывода:
Например, если команда
dir
выведет в консоль содержимое текущей директории, то команда
dir >out.txt
перенаправит вывод этой команды в файл out.txt (находящийся в текущем каталоге, при этом прежнее содержимое файла будет утеряно/перезаписано, можно использовать абсолюьные пути),
Также есть еще и другие методы перенаправления:
>> - дописать в файл,
< - перенаправить содержимое файла на стандартный ввод программы.
| - перенаправить вывод одной программы на ввод другой.
Чаще всего такие конструкции применяются как теория (в windows-программировании), либо как основа для написания скриптов (в unix операцинных системах).

13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.