Дан файл вещественных чисел - Фриланс - Страница 2

bbs-serega · 06.07.2011, 14:23

Вот решение :
Program bbs;
uses crt;
var f:file of real;
n,i:integer;
a,b,c,d:real;
begin
randomize;
assign(f,'file');
rewrite(f);
write('Сколько чисел записать в файл n=');
read(n);
for i:=1 to n do
begin
a:=20*random;
write(f,a);
end;
writeln('Исходный файл:');
reset(f);
while not eof(f) do
begin
read(f,a);
write(a:0:2,' ');
end;
writeln;
for i:=1 to filesize(f)-2 do
begin
seek(f,i-1);
read(f,a);
seek(f,i);
read(f,b);
seek(f,i+1);
read(f,c);
d:=(a+b+c)/3;
seek(f,i);
write(f,d);
end;
writeln('Содержание измененого файла:');
seek(f,0);
while not eof(f) do
begin
read(f,a);
write(a:0:2,' ');
end;
close(f);
end.

Нужна еще блок схема ...

sheka · 06.07.2011, 14:38

Rififi, это круто!
bbs-serega, ща нарисую.

bbs-serega · 06.07.2011, 14:48

можите зделать блок - схему к задаче вот решение:
uses crt;
var f:file of real;
n,i:integer;
a,b,c,d:real;
begin
randomize;
assign(f,'file');
rewrite(f);
write('Сколько чисел записать в файл n=');
read(n);
for i:=1 to n do
begin
a:=20*random;
write(f,a);
end;
writeln('Исходный файл:');
reset(f);
while not eof(f) do
begin
read(f,a);
write(a:0:2,' ');
end;
writeln;
for i:=1 to filesize(f)-2 do
begin
seek(f,i-1);
read(f,a);
seek(f,i);
read(f,b);
seek(f,i+1);
read(f,c);
d:=(a+b+c)/3;
seek(f,i);
write(f,d);
end;
writeln('Содержание измененого файла:');
seek(f,0);
while not eof(f) do
begin
read(f,a);
write(a:0:2,' ');
end;
close(f);
end.

06.07.2011, 14:38	#12
sheka Босс Форумчанин Регистрация: 03.06.2009 Сообщений: 125	Rififi, это круто! bbs-serega, ща нарисую. Две одинаковые вложенные ошибки называются четной ошибкой и ошибкой не являются. Ася 255507394. Отзывы здесь.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных максимумов в порядке возрастания	zzz6	Помощь студентам	1	04.07.2011 12:59
Дан файл вещественных чисел.	dexter2145	Помощь студентам	7	08.06.2010 22:50
Дан файл вещественных чисел.	xilnurx	Помощь студентам	0	13.03.2010 12:43
Дан файл вещественных чисел с именем Name1. Создать....	Настенька..Блонди	Помощь студентам	3	26.02.2009 22:27

06.07.2011, 14:23	#11
bbs-serega Регистрация: 06.07.2011 Сообщений: 5	Вот решение : Program bbs; uses crt; var f:file of real; n,i:integer; a,b,c,d:real; begin randomize; assign(f,'file'); rewrite(f); write('Сколько чисел записать в файл n='); read(n); for i:=1 to n do begin a:=20*random; write(f,a); end; writeln('Исходный файл:'); reset(f); while not eof(f) do begin read(f,a); write(a:0:2,' '); end; writeln; for i:=1 to filesize(f)-2 do begin seek(f,i-1); read(f,a); seek(f,i); read(f,b); seek(f,i+1); read(f,c); d:=(a+b+c)/3; seek(f,i); write(f,d); end; writeln('Содержание измененого файла:'); seek(f,0); while not eof(f) do begin read(f,a); write(a:0:2,' '); end; close(f); end. Нужна еще блок схема ...

06.07.2011, 14:48	#13
bbs-serega Регистрация: 06.07.2011 Сообщений: 5	можите зделать блок - схему к задаче вот решение: uses crt; var f:file of real; n,i:integer; a,b,c,d:real; begin randomize; assign(f,'file'); rewrite(f); write('Сколько чисел записать в файл n='); read(n); for i:=1 to n do begin a:=20*random; write(f,a); end; writeln('Исходный файл:'); reset(f); while not eof(f) do begin read(f,a); write(a:0:2,' '); end; writeln; for i:=1 to filesize(f)-2 do begin seek(f,i-1); read(f,a); seek(f,i); read(f,b); seek(f,i+1); read(f,c); d:=(a+b+c)/3; seek(f,i); write(f,d); end; writeln('Содержание измененого файла:'); seek(f,0); while not eof(f) do begin read(f,a); write(a:0:2,' '); end; close(f); end.