Error 100 в программе с файлами Опции

[18192123]

мне нужно было написать программу, которая читает из типизированного файла целых чисел каждое число, вычисляет по нему тангенс и записывает полученное значение в другой типизированный файл

что я не делала, у меня после ввода значений появляется ошибка error 100

вот код

uses crt;
const
n = 5;
procedure save_file ( Filename : string );
var
f : file of integer;
x : integer;
i : byte;
begin
assign (f, filename);
rewrite (f);
for i := 1 to n do
begin
     read (x);
     write (f, x);
end;
close (f);
end;
procedure print_file( filename : string );
var
f : file of integer;
i : byte;
x : integer;
begin
assign (f, filename);
reset (f);
while not eof (f) do
begin
     read (f, x);
     writeln (x:4);
end;
close (f);
end;
procedure basis_part( fnin, fnout : string );
var
fin, fout : file of real;
x : real;
i : byte;
y : real;
begin
assign (fin, fnin);
assign (fout, fnout); reset ( fin);
rewrite (fout);
while not eof(fin) do
begin
read  (fin, x );
y := sin (x) / cos (x);
write ( fout, y );

end;
close (fin);
close (fout);
end;

BEGIN
clrscr;
save_file ( 'file2.bin' );
print_file ( 'file2.bin' );
basis_part ('file2.bin', 'file2_out.bin');
writeln ( '========================');
print_file ('file2_out.bin');
readkey;
end.

ума не приложу, что не так.... объясните пожалуйста!!!!

[Bokul]

которая читает из типизированного файла целых чисел каждое число

Не увидел...
Сделай такие изменения:

procedure basis_part( fnin, fnout : string );
var fout : file of real;
      fin: file of integer;{<---------}
      x : integer;{<---------}
      i : byte;
      y : real;
begin
assign (fin, fnin);
assign (fout, fnout); reset ( fin);
rewrite (fout);
while not eof(fin) do
begin
read  (fin, x );
y := sin (x) / cos (x);
write ( fout, y );

end;
close (fin);
close (fout);
end;

Не проверял, но ты должна понять принцип...

Сообщение отредактировано: Bokul - 11.12.2006 0:00