Функция. Действительные числа. Опции

[Анна]

Написать ф-ию, которая для компонентного файла, состоящего из действительных чисел, возвращает кол-во компонентов, меньших нуля.

Получилось что-то вроде:

function calc(s:string):integer;
var b:real;
     i:integer;
     f:file of real;
begin

assign(f,s);
reset(f);
while not eof(f) do begin
 read(f,b);
 if b<0 then inc(i);
end;

close(f);
end;


var
s: string;

begin
writeln ('Введите имя файла: '); readln(s);
calc:=i;
end.

Как использовать самц ф-ию в программе???

[GoodWind]

Яж тебе говорил уже как:

writeln('blah-blah: ', calc('file.dat');

bи вообще твоя функция работать не будет, надо так:

function calc(filename : string):integer;
var b:real;
    count:integer;
    f:file of real;
begin
assing(f,filename);
reset(f);
while not eof(f) do
begin
read(f,b);
if b<0 then inc(count);
end;
calc:=count;
close(f);
end;

Сообщение отредактировано: GoodWind - 18.12.2005 21:08