


Кстати, если писать просто "Read;", а не "ReadLn;", то всё нормально.. Но я хочу именно ReadLn... =\
Юзаю обычный Turbo Pascal досовский
Спасибо за внимание.
begin
assign(input, 'a.txt'); rewrite(input);
write(input, 'just a test');
close(input);
readln;
end.
будет - и должен - вылетать именно по 104 ошибке (под TP7). Меня же интересует не это... Меня больше интересует в данной ситуации не то, почему НЕ отработал ReadLn, а то, почему при этом отработал Read...
begin
assign(input, 'a.txt'); rewrite(input);
write(input, 'just a test');
close(input);
readln;
end.
будет - и должен - вылетать именно по 104 ошибке (под TP7). Меня же интересует не это... Меня больше интересует в данной ситуации не то, почему НЕ отработал ReadLn, а то, почему при этом отработал Read...uses crt,dos;
var {здесь файловая переменная не задавалась}
procedure game_over;
begin
clrscr;
write('Game over. Press Enter to quit');
readln;
end;
begin
assign(input,'c.txt');
{$I-} reset(input); {$I+}
if IOResult <> 0 then Rewrite(input)
else
begin
for i:=1 to 5 do
readln(input,cha[i]);
a:=cha[1];
b:=cha[2];
c:=cha[3];
d:=cha[4];
f:=cha[5];
end;
close(input);
game_over;
end.
uses crt,dos;
var save: file of integer;
procedure game_over;
begin
clrscr;
write('Game over. Press Enter to quit');
readln;
end;
begin
assign(save,'c.txt');
{$I-} reset(save); {$I+}
if IOResult <> 0 then Rewrite(save)
else
begin
for i:=1 to 5 do
readln(save,cha[i]);
a:=cha[1];
b:=cha[2];
c:=cha[3];
d:=cha[4];
f:=cha[5];
end;
close(save);
game_over;
end.
uses crt,dos;
var {здесь файловая переменная не задавалась}
procedure game_over;
begin
clrscr;
write('Game over. Press Enter to quit');
readln;
end;
begin
assign(input,'c.txt');
{$I-} reset(input); {$I+}
if IOResult <> 0 then Rewrite(input)
else
begin
for i:=1 to 5 do
readln(input,cha[i]);
a:=cha[1];
b:=cha[2];
c:=cha[3];
d:=cha[4];
f:=cha[5];
end;
close(input);
game_over;
end.
uses crt,dos;
var save: file of integer;
procedure game_over;
begin
clrscr;
write('Game over. Press Enter to quit');
readln;
end;
begin
assign(save,'c.txt');
{$I-} reset(save); {$I+}
if IOResult <> 0 then Rewrite(save)
else
begin
for i:=1 to 5 do
readln(save,cha[i]);
a:=cha[1];
b:=cha[2];
c:=cha[3];
d:=cha[4];
f:=cha[5];
end;
close(save);
game_over;
end.
var X: integer;
begin
assign(input, 'a.txt'); rewrite(input);
write(input, 'just a test');
close(input);
read(X);
end.
var X: integer;
begin
assign(input, 'a.txt'); rewrite(input);
write(input, 'just a test');
close(input);
read;
end.
(не запуская программ, естественно)? Не забываем, что Read/Write НЕ являются процедурами (хотя Турбо-Паскалевские доки упорно утверждают обратное)...
procedure CursorOff; assembler;
asm
mov ah,1
mov cx,2020h
int 10h
end