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.

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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