Правила форума
Прочтите прежде чем задавать вопрос!
Хочу создать типизированный файл в который будут писать числа типа real.
const n = 8;
{type numbers = record
num : real;
end;}
type numbers = file of real;
var fname : string;
i : integer;
sum, k : real;
ans : char;
f1 : numbers;
function fi(p: integer): real;
var i : integer;
sum : real;
begin
sum := sqrt(3 * p);
for i := p downto 1 do
if (i = 1) then
fi := sum
else
sum := sqrt(sum + 3 * (i - 1));
end;
procedure newfile(var f1 : numbers);
var s : string;
num : real;
{with num_ref do}
begin
rewrite(f1);
{write(f1, num_ref);}
for i := n downto 1 do
begin
if (i = 1) then
begin
num := sqrt(3);
writeln(f1, num);
break;
end
else
begin
writeln(f1, fi(i));
end;
end;
close(f1);
end;
procedure outputfile(var f1 : numbers; p : integer);
var s : string;
begin
reset(f1);
repeat
readln(f1, s);
write('f', p, '=');
writeln(s);
dec(p);
until eof(f1);
end;
begin
clrscr;
writeln('Create a new file?');
readln(ans);
ans := upcase(ans);
if (ans = 'Y') or (ans = 'YES') then
begin
writeln('Enter name a file');
readln(fname);
assign(f1, fname);
newfile(f1);
outputfile(f1, n);
end
else
begin
writeln('What file you want open?');
readln(fname);
assign(f1, fname);
outputfile(f1, n);
end;
readln;
end.
Пишет инвалидный тип файла. Помогите разобраться...
Сколько же можно тебе объяснять? Тебе поста №4 не хватило, чтобы догадаться зайти в Google и набрать IEEE? И посмотреть, ЧТО будет храниться в файле? Почему все время надо с ложечки кормить?
