Скажите, почему программа не видит input? Program objective1; var a:real; t:text; ...

Question

Скажите, почему программа не видит input?

Program objective1;

var

a:real;

t:text;

Begin

assign(t,'input.txt');

reset(t);

read(t,a);

close(t);



assign(t,'output.txt');

rewrite(t);

a:= 100/(a*2);

if frac(a)=0 then
writeln(t,a) else
begin
a:= int(a);
a:=a + 1;
writeln(t,a);
end;

write(t,a);


close(t);

End.

Comments

файл input, как правило, должен находиться в той же папке, что и файл с программой. Проверьте - так ли это.

Answer 1

Пропишите полный путь к файлу input.txt

Comments

Program objective1;

var

a:real;

t:text;

p: string;

Begin

p:= 'D:\Programms Olimpiada\input.txt';

assign(t,p);

reset(t);

read(t,a);

close(t);

assign(t,'output.txt');

rewrite(t);

a:= 100/(a*2);

if frac(a)=0 then
writeln(t,a) else
begin
a:= int(a);
a:=a + 1;
writeln(t,a);
end;


close(t);

End.

---

Код ошибки: PABCSystem.pas(5500) : Ошибка времени выполнения: Файл 'D:\Programms Olimpiada\input.txt' не найден.

---

скопируйте ошибку

---

Создайте просто файл D:\input.txt без папок

---

Пишет файл не найден (путь который вы указали) и если надо: f.sr := new StreamReader(f.fi.FullName, en);

---

StreamReader... поток... у вас D:\input.txt или D:/input.txt ?

---

И файл есть такой на диске D

---

Я создал файл и написал: assign(t,'D:\input.txt'); но нет.

---

Если я прямо вобью на D путь файла, файл немедленно откроется. Так что что то у меня с компьютером... ведь я написал и отправил, там приняло, но вот с остальными программами так не выйдет, да и времени нет.. нечестно! :с

---

Уберите открытие из файла input и сделайте ввод с клавиатуры. Посмотрите, где выдаст ошибку