Добавил:
Glavniy_toksik_RTF
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
program labor3;
var
a, b, c, d : byte;
e : char;
file1 : file of byte;
file2 : text;
file3 : file;
poin1 : ^word;
poin2 : pointer;
begin
assign (file1, 'f1.txt');
rewrite(file1);
assign (file2, 'f2.txt');
rewrite(file2);
assign (file3, 'f3.txt');
rewrite(file3, 1);
append(file2);
c := 1;
b := 2;
d := 3;
write(file1, d);
reset(file1);
read(file1, a);
writeln(a);
write(file2, '12345');
reset(file2);
read(file2, e);
writeln(e);
blockwrite(file3, b, 1);
reset(file3, 1);
blockread(file3, a, 1);
writeln(a);
close(file1);
close(file2);
close(file3);
rename(file3, 'f4.txt');
erase(file3);
new(poin1);
poin1^ := 2;
dispose(poin1);
poin2 := poin1;
writeln(poin1^);
getmem(poin2, 1);
freemem(poin2, 1);
mark(poin1);
release(poin1);
writeln(maxavail);
writeln(memavail);
end.
var
a, b, c, d : byte;
e : char;
file1 : file of byte;
file2 : text;
file3 : file;
poin1 : ^word;
poin2 : pointer;
begin
assign (file1, 'f1.txt');
rewrite(file1);
assign (file2, 'f2.txt');
rewrite(file2);
assign (file3, 'f3.txt');
rewrite(file3, 1);
append(file2);
c := 1;
b := 2;
d := 3;
write(file1, d);
reset(file1);
read(file1, a);
writeln(a);
write(file2, '12345');
reset(file2);
read(file2, e);
writeln(e);
blockwrite(file3, b, 1);
reset(file3, 1);
blockread(file3, a, 1);
writeln(a);
close(file1);
close(file2);
close(file3);
rename(file3, 'f4.txt');
erase(file3);
new(poin1);
poin1^ := 2;
dispose(poin1);
poin2 := poin1;
writeln(poin1^);
getmem(poin2, 1);
freemem(poin2, 1);
mark(poin1);
release(poin1);
writeln(maxavail);
writeln(memavail);
end.