процедура вывода и нахождения массивов, находящихся в типизированном файле - Помощь студентам

квак · 27.04.2009, 21:07

помогите пожалуйста-у меня не работает процедура вывода и нахождения массивов,находящихся в типизированном файле,которые не содержат нулей-что-то я сижу туплю:
FIL-ZERO.PAS

Код:

│║Procedure Zero(Var f:fil;n:integer;k:integer);
│║Var Q,i,j:integer; b:mas;a:mas;w:boolean;
│║Begin
│║reset(f);
│║For j:=1 to filesize(f) do read(f,a);
│║For i:=1 to k do Begin
│║
│║ For j:=1 to n do Begin
│║ If a[j]<>0 then Begin b[j]:=a[j];
│║ Q:=i;w:=true; ▒│║ end
│║ Else w:=false;
│║ end;
│║If w=true then Begin
│║writeln(' ',Q,'-i massiv:');
│║For j:=1 to n do write(b[j],' ');end
│║ end;
│║Close(f); end;

Serge_Bliznykov · 28.04.2009, 15:08

сразу:
вот эта строчка - просто безумна
For j:=1 to filesize(f) do read(f,a);
вы все массисы читаете в одну и ту же переменную.
на выходе из цикла там всегда будет последний записанный в файл массив...

Да. ещё. неплохо бы выкладывать программу целиком (описание типов данных, например, обязательно!)
и последнее, программу надо не чёрточками оформлять, а тегом [ CODE] ... [/ CODE]

27.04.2009, 21:07	#1
квак Новичок Джуниор Регистрация: 27.04.2009 Сообщений: 1	помогите пожалуйста-у меня не работает процедура вывода и нахождения массивов,находящихся в типизированном файле,которые не содержат нулей-что-то я сижу туплю: FIL-ZERO.PAS Код: `│║Procedure Zero(Var f:fil;n:integer;k:integer); │║Var Q,i,j:integer; b:mas;a:mas;w:boolean; │║Begin │║reset(f); │║For j:=1 to filesize(f) do read(f,a); │║For i:=1 to k do Begin │║ │║ For j:=1 to n do Begin │║ If a[j]<>0 then Begin b[j]:=a[j]; │║ Q:=i;w:=true; ▒│║ end │║ Else w:=false; │║ end; │║If w=true then Begin │║writeln(' ',Q,'-i massiv:'); │║For j:=1 to n do write(b[j],' ');end │║ end; │║Close(f); end;` Последний раз редактировалось Stilet; 28.04.2009 в 15:30.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
отсортировать информацию обменом в типизированном файле	rainbow	Помощь студентам	6	07.03.2009 09:26
Напишите функцию нахождения числа с = а^b	Настенька..Блонди	Помощь студентам	2	28.12.2008 15:21
Программа нахождения последовательностей	Влад-mego	Общие вопросы C/C++	4	21.12.2008 22:40
Расчет числа строк в типизированном файле	1234	Паскаль, Turbo Pascal, PascalABC.NET	6	20.05.2008 11:14
Методы нахождения корней уравнения	werser	Помощь студентам	8	20.02.2008 22:41

28.04.2009, 15:08	#2
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	сразу: вот эта строчка - просто безумна For j:=1 to filesize(f) do read(f,a); вы все массисы читаете в одну и ту же переменную. на выходе из цикла там всегда будет последний записанный в файл массив... Да. ещё. неплохо бы выкладывать программу целиком (описание типов данных, например, обязательно!) и последнее, программу надо не чёрточками оформлять, а тегом [ CODE] ... [/ CODE]