Система задач и упражнений по языку программирования Pascal. Часть 2 - 26 стр.

UptoLike

ВУЗ: 

ЯГПУ им. Ушинского | Ярославль

Составители: 

Рубрика: 

26
11. Укажите ошибки:
(1) var f:file of integer;
i:integer;
x:array[1..100] of integer;
begin assign(f,'файл1'); rewrite(f); i:=1;
while not(eoln(f)) do bedin read(f,x[i]);
i:=i+1; end;
end.
(4) var f:file of real;
i:integer;
x:array of integer;
n:=1;
repeat reset(f); read(f,x[n]);
n:=n+1;
until eof(f); end.
(2) var f:file of integer;
i:integer;
x:array[1..100] of real;
begin assign(f,'файл1'); reset(f); i:=1;
while eof(f) do
begin read(f,x[n]);
i:=i+1; end;
end.
(5) var f:file of real;
i:integer;
x:array of real;
reset(f); i:=1;
repeat readln(f,x[i]);
until not(eof(f));
end.
(3) var f:file of integer;
i,x:integer;
reset(f,’файл1’); i:=1;
while not(eof(f)) do
begin readln(f,x[i]);
i:=i+1; end;
end.
(6) var f:file of integer;
i:integer;
a:array[1..100] of integer;
bagin assign(f,'файл1');rewrite(f); n:=1;
repeat
read(f,x[i]);
i:=i+1;
until eof(f);
12. Что делает данный фрагмент программы?
(1) var f:file of real;
i,j:integer;
begin assign(f,'файл1');
rewrite(f);
for i:=1 to 100 do
begin j:=sqr(i); write(f,j) end;close(f);
(4) type t=file of integer;
var f1,f2:t;
a:integer;
begin assign(f1,'файл1');
assign(f2,'файл2');
reset(f1); rewrite(f2);
while not(eot(f1)) do
begin read(f1, a); write(f2,a);end;
a:=100; write(f2,a); end; close(f2);
(2) var f:file of real;
s,i:integer;
r:real;
begin assign(f,'файл1');
reset(f); s:=0; i:=1;
while not eot(f) do
begin read (f,r); s:=sqr(r)+s;
i:=i+1;end;
(5) type t=file of integer;
var f1,f2:t;
a:integer;
begin
assign(f1,'файл1');assign(f2,'файл2');
reset(f1); rewrite(f2);
while not(eot(f1)) do
begin read(f1,a); write(f2,a);end;
close(f2);

Страницы