Технический форум - Типизированные файлы на языке Pascal

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Типизированные файлы на языке Pascal

Файл А заполнен случайными числами. Сформировать файл В из элементов файла А кратных m, и файл С из элементов файла А кратных h. m и h – вводятся с клавиатуры.
помогите, пожалуйста..

var K:array[1..5] of integer;
A,B,C: file of integer;
h,m,g,i:integer;

begin
assign(A,'failA');
assign(B,'failB');
assign(C,'failC');

writeln ('введите m');
readln(m);
writeln ('введите h');
readln(h);

rewrite(B);
rewrite(C);
reset(A);
for i:=1 to 5 do
begin
readln(K[i]);
write(A,K[i]); end;
reset(A);

while not eof(A) do
read(A,g);
if (g mod m=0) then write(B,g);
if (g mod h=0) then write(C,g);

close(A);
reset(B);
reset(C);
writeln;
write('файл В(g/',m, '):');

while not eof(B) do begin
read(B,g);
write(g);
end;
writeln;
write('файл C(g/',h, '):');

while not eof(C) do begin
read(C,g);
write(g);
end;
close(B); close(C);
end.

Пожалуйста.
Ваша программа написана в принципе правильно, но крайне неряшливо с кучей ошибок. Поймите, программирование требует кинжальной точности, никаких "что-то типо" компьютер (и транслятор) не понимают, а потому каждый значок, каждый оператор и т.п. должны быть выверены.

Код:

Const

 N=38;



Var

 A,B,C: file of integer;

 h,m,g,i:integer;



Begin

 assign(A,'failA');

 assign(B,'failB');

 assign(C,'failC');



 write(' m = ');

 readln(m);

 write(' h = ');

 readln(h);

 writeln;



 rewrite(A);

 rewrite(B);

 rewrite(C);



 Randomize;



 for i:=1 to N do

  begin

   g:=Random(99)+1;

   write(A,g);

  end;

 Close(A);

 Reset(A);



 while not eof(A) do

  begin

   read(A,g);

   if (g mod m)=0 then write(B,g);

   if (g mod h)=0 then write(C,g);

  end;

 Close(B);

 Close(C);

 Reset(A);

 Reset(B);

 Reset(C);

 Writeln;

 Writeln('File A:');

 While not EoF(A) do

  begin

   Read(A,g);

   Write(g:4);

  end;

 Writeln;

 Writeln('File B:');

 While not EoF(B) do

  begin

   Read(B,g);

   Write(g:4);

  end;

 Writeln;

 Writeln('File C:');

 While not EoF(C) do

  begin

   Read(C,g);

   Write(g:4);

  end;



 Close(A);

 Close(B);

 Close(C);



 Readln

End.

очень вам благодарна)

я открываю файлы А, В и С, а там буквы вместо цифр. какая причина? как это исправить?

Цитата:

Сообщение от Олес (Сообщение 1196104)

я открываю файлы А, В и С, а там буквы вместо цифр. какая причина? как это исправить?

А не надо их вообще открывать! Уж такие они - типизированные файлы: информация в них закодирована. Читаются программой нормально? Вот так и читайте.
А если Вы хотите получить читабельные файлы, то используйте файловый тип TEXT. Но! если Вы посылаете в файл blablabla.txt последовательность чисел, то не забывайте записывать туда же пробелы между ними, иначе они сольются и файл к чтению станет непригодным.

спасибо большое)