вопрос по файловому вводу в Паскале

[Elabrion]

Ребята,помогите пожалуйста. После того, как нажимаю выполнить, внизу пишется "программа выполняется" и все. Новый файл с результатами не создается, хотя при компилировании никаких ошибок нет. Вот код:

Program lab1; 
var 
 a,b,x,y,z:real; 
 Q,W:text; 
begin 
assign(Q,'lab1.dat'); 
assign(W,'lab1.res'); 
reset(Q); 
readln(a); 
readln(b); 
readln(x); 
rewrite(W); 
writeln(y); 
writeln(z); 
y:=(a*sqrt((b*b)*x+(ln(x)/ln(10))))/(exp(a*x)-abs(cos(x)))+exp(1/3*ln(x/a)); 
z:=ln(a*x*x*x+b)/ln(5)+sqr(sin(b*x+abs(2*a)))*sqr(sin(b*x+abs(2*a)))*sin(b*x+abs(2*a)); 
writeln(W); 
close(Q); 
close(W); 
end.

P.S. юзаю Паскаль ABC

[Alex11223]

writeln(y);
writeln(z);

Что вы хотите этим сказать?

readln(a);
readln(b);
readln(x);

Видимо это ввод из файла? Тогда должно быть readln(q, a) например. И в конце writeln(W) аналогично.

[Serge_Bliznykov]

в каком Паскале выполняете данную программу?
Попробуйте найти EXE файл и запускать его.

на 99% файл lab1.res создаётся. Но только он создаётся в той папке, которая является текущей в момент запуска программы (скорее всего в той папке, где создается EXE файл).

Если не сможете определить, где он создаётся, тогда задайте ПОЛНЫЙ путь к файлу, например:

assign(W,'c:\work\lab1.res');

разумеется, на диске C: в корню должна быть заранее создана папка work

ну и последнее... а зачем Вам файл Q - если вы его открываете на чтение, но ничегошеньки из него не читаете... просто так - "чисто по приколу"?!


с замечаниями Alex11223 полностью согласен!