Файл 'a.num' содержит следующую последовательность чисел: 1,2,3,4,5. Определить, где будет находиться
указатель текущего элемента в файле после выполнения следующих операторов :
program RR;
var
f : file of integer;
x, z : integer;
begin
assign(f,'a.num'); reset(f);
read(f,x); read(f,x); z:=0;
while not eof(f) do begin
read(f,x); z:=z+x;
end;
close(f); writeln(z);
end.
Калькулятор
/ - деление
\ - остаток
S - сумма
чисел от и до
P -
произведение чисел от и до
P.30.4
Определить содержимое файла xxx.zzz после выполнения следующей программы.
Program AA;
var
f : file of integer;
begin
assign(f,’xxx.zzz’); rewrite(f);
write(f,1);
write(f,2);
write(f,3);
close(f);
end.
Калькулятор
/ - деление
\ - остаток
S - сумма
чисел от и до
P -
произведение чисел от и до
P.30.5
Определить содержимое файла xxx.zzz после выполнения следующей программы.
Program AA;
var
f : file of integer;
begin
assign(f,’xxx.zzz’); rewrite(f);
write(f,2);
write(f,2);
write(f,3);
close(f);
end.
Калькулятор
/ - деление
\ - остаток
S - сумма
чисел от и до
P -
произведение чисел от и до
P.30.6
Определить содержимое файла xxx.zzz после выполнения следующей программы.
Program AA;
var
f : file of integer;
begin
assign(f,’xxx.zzz’); rewrite(f);
write(f,1);
write(f,1);
close(f);
end.
Калькулятор
/ - деление
\ - остаток
S - сумма
чисел от и до
P -
произведение чисел от и до
P.30.7
Определить содержимое файла xxx.zzz после выполнения следующей программы.
Program AA;
var
f : file of integer;
k : integer;
begin
assign(f,’xxx.zzz’); rewrite(f);
for k:=1 to 4 do write(f,k);
close(f);
end.
Калькулятор
/ - деление
\ - остаток
S - сумма
чисел от и до
P -
произведение чисел от и до
P.30.8
Определить содержимое файла xxx.zzz после выполнения следующей программы.
Program AA;
var
f : file of integer;
k : integer;
begin
assign(f,’xxx.zzz’); rewrite(f);
for k:=5 to 7 do write(f,k);
close(f);
end.
Калькулятор
/ - деление
\ - остаток
S - сумма
чисел от и до
P -
произведение чисел от и до
P.30.9
Определить содержимое файла xxx.zzz после выполнения следующей программы.
Program AA;
var
f : file of integer;
k : integer;
begin
assign(f,’xxx.zzz’); rewrite(f);
for k:=1 to 4 do write(f,6);
close(f);
end.
Калькулятор
/ - деление
\ - остаток
S - сумма
чисел от и до
P -
произведение чисел от и до
P.30.10
Определить содержимое файла xxx.zzz после выполнения следующей программы.
Program AA;
var
f : file of integer;
k : integer;
begin
assign(f,’xxx.zzz’); rewrite(f);
for k:=1 to 2 do write(f,10);
close(f);
end.
Калькулятор
/ - деление
\ - остаток
S - сумма
чисел от и до
P -
произведение чисел от и до
P.30.11
Определить содержимое файла xxx.zzz после выполнения следующей программы.
Program AA;
var
f : file of integer;
begin
assign(f,’xxx.zzz’); rewrite(f);
close(f);
end.
Калькулятор
/ - деление
\ - остаток
S - сумма
чисел от и до
P -
произведение чисел от и до
P.30.12
Hаписать программу создания файла целых чисел, содержащего 100 чисел 7.
Program AA;
var
f : file of boolean;
k, m, n : integer;
pr : boolean;
begin
assign(f,’xxx.zzz’); rewrite(f);
k:=0; m:=3; n:=7;
repeat
k:=k+1;
m:=m+k;
n:=n+k;
pr:=(m mod 2=0) or (n mod 5=0);
write(f,pr);
until k=10;
close(f);
end.
Какое число будет в переменной Sun в конце выполнения следующей программы.
Program AA;
var
i, j, k, nnn, Sun : integer;
f : file of integer;
begin
assign(f,’xxx.int’); rewrite(f);
for i:=1 to 3 do begin
j:=i*2-1;
write(f,j);
end;
close(f);
Sun:=0; nnn:=100;
assign(f,’xxx.int’); reset(f);
while not eof(f) do begin
read(f,i);
k:=nnn mod i;
Sun:=Sun+k;
end;
close(f);
end.
Какое число будет в переменной Sun в конце выполнения следующей программы.
Program AA;
var
i, Sun : integer;
f : file of integer;
begin
assign(f,’xxx.int’); rewrite(f);
for i:=2 to 5 do write(f,i);
close(f);
Sun:=3;
assign(f,’xxx.int’); reset(f);
while not eof(f) do begin
read(f,i);
Sun:=Sun+i;
end;
close(f);
end.
Исходный файл ‘aaa.dat’ содержит подряд все числа от 1 до 100. Определить, сколько чисел будет в файле
‘bbb.dat’ после выполнения следующей программы.
Program AA;
var
f1, f2 : file of integer;
xx : integer;
begin
assign(f1,’aaa.dat’); reset(f1);
assign(f2,’bbb.dat’); rewrite(f2);
while not eof(f1) do begin
read(f1,xx); write(f2,xx);
end;
close(f1); close(f2);
end.
Исходный файл ‘aaa.dat’ содержит подряд все числа от 1 до 100. Определить, сколько чисел будет в файле
‘bbb.dat’ после выполнения следующей программы.
Program AA;
var
f1, f2 : file of integer;
xx, n : integer;
begin
assign(f1,’aaa.dat’); reset(f1);
assign(f2,’bbb.dat’); rewrite(f2);
while not eof(f1) do begin
for n:=1 to 4 do read(f1,xx);
write(f2,xx);
end;
close(f1); close(f2);
end.
Исходный файл ‘aaa.dat’ содержит подряд все числа от 1 до 100. Определить, сколько чисел будет в файле
‘bbb.dat’ после выполнения следующей программы.
Program AA;
var
f1, f2 : file of integer;
xx, n : integer;
begin
assign(f1,’aaa.dat’); reset(f1);
assign(f2,’bbb.dat’); rewrite(f2);
while not eof(f1) do begin
read(f1,xx);
for n:=1 to 4 do write(f2,xx);
end;
close(f1); close(f2);
end.
Исходный файл ‘aaa.dat’ содержит подряд все числа от 1 до 100. Определить, сколько чисел будет в файле
‘bbb.dat’ после выполнения следующей программы.
Program AA;
var
f1, f2 : file of integer;
xx : integer;
begin
assign(f1,’aaa.dat’); reset(f1);
assign(f2,’bbb.dat’); rewrite(f2);
while not eof(f1) do begin
read(f1,xx);
if xx mod 2 = 1 then write(f2,xx);
end;
close(f1); close(f2);
end.
Исходный файл ‘aaa.dat’ содержит подряд все числа от 1 до 100. Определить, сколько чисел будет в файле
‘bbb.dat’ после выполнения следующей программы.
Program AA;
var
f1, f2 : file of integer;
xx : integer;
begin
assign(f1,’aaa.dat’); reset(f1);
assign(f2,’bbb.dat’); rewrite(f2);
xx:=0;
while xx<17 do begin
read(f1,xx);
write(f2,xx);
end;
close(f1); close(f2);
end.
Исходный файл ‘aaa.dat’ содержит подряд все числа от 1 до 100. Определить, сколько чисел будет в файле
‘bbb.dat’ после выполнения следующей программы.
Program AA;
var
f1, f2 : file of integer;
xx, n : integer;
begin
assign(f1,’aaa.dat’); reset(f1);
assign(f2,’bbb.dat’); rewrite(f2);
while not eof(f1) do begin
read(f1,xx);
for n:=1 to xx do write(f2,xx);
end;
close(f1); close(f2);
end.
Исходный файл ‘aaa.dat’ содержит подряд все числа от 1 до 100. Определить, сколько чисел будет в файле
‘bbb.dat’ после выполнения следующей программы.
Program AA;
var
f1, f2 : file of integer;
xx, Sum, n : integer;
begin
assign(f1,’aaa.dat’); reset(f1);
assign(f2,’bbb.dat’); rewrite(f2);
Sum:=0;
while not eof(f1) do begin
read(f1,xx);
Sum:=Sum+xx;
for n:=1 to Sum do write(f2,xx);
end;
close(f1); close(f2);
end.
Исходный файл ‘aaa.dat’ содержит подряд все числа от 1 до 100. Определить, сколько чисел будет в файле
‘bbb.dat’ после выполнения следующей программы.
Program AA;
var
f1, f2 : file of integer;
xx, n : integer;
begin
assign(f1,’aaa.dat’); reset(f1);
assign(f2,’bbb.dat’); rewrite(f2);
while not eof(f1) do begin
read(f1,xx);
for n:=1 to xx div 2 do write(f2,xx);
end;
close(f1); close(f2);
end.
Исходный файл ‘aaa.dat’ содержит подряд все числа от 1 до 100. Определить, сколько чисел будет в файле
‘bbb.dat’ после выполнения следующей программы.
Program AA;
var
f1, f2 : file of integer;
xx, old, n : integer;
begin
assign(f1,’aaa.dat’); reset(f1);
assign(f2,’bbb.dat’); rewrite(f2);
old:=1;
while not eof(f1) do begin
read(f1,xx);
for n:=1 to (xx * xx) div old do write(f2,xx);
old:=xx;
end;
close(f1); close(f2);
end.
