procedure

[Настя М]

Помогите найти ошибку, пожалуйста! (Переменные не менять)

Программа. Дано 80 вещественных чисел. Найти порядковый номер того из них, которое наиболее близко к какому-нибудь целому числу.
program lab7;
uses crt;
type
a1=array[1 .. 90] of real;
var
i1,m1,n1: integer;
c1,k1: real;
f1:text;

procedure qwe( var a: a1; n:integer; c,k: real; m: integer);
var
i: integer;
begin
for i:=1 to n do
begin
if frac(a[i])>=0.5 then k:=1-frac(a[i])
else k:=abs(0- frac(a[i]));
if k<c then
begin
c:=k;
m:=i;
end;
end;
end;

Begin
assign(f1,'c:\lab7b.txt');
reset(f1);
i1:=1;
c1:=1;
n1:=0;
while not eof(f1) do
begin
readln(f1,a1[i1]);
i1:=i1+1;
n1:=n1+1;
end;
qwe(n1,c1,k1,m1);
writeln(m1);
end.

[type_Oleg]

Что успел заметить:

Чтобы процедура вернула значение m, надо писать var А перед a - можно без var, даже лучше без.

procedure qwe(a: a1; n:integer; c,k: real; var m: integer);

И зачем вам c,k ?

И еще, почему всего 4 фактических параметра при вызове?

qwe(n1,c1,k1,m1);

[Настя М]

1.c,k - нужны для сравнения дробной части чисел. 2. А сколько должно быть?

[type_Oleg]

Сообщение от Настя М

А сколько должно быть?

Столько же, сколько и здесь

procedure qwe( var a: a1; n:integer; c,k: real; m: integer);

5
А что, нужно именно процедуру использовать? Функцию нельзя?
Например, так

function funm(a:a1;n,k:Integer):Integer; // возвращает порядк. номер ...
// n - размер массива, например 80 ,k - заданное целое число
var i,t:Integer;
    razn:Real;
begin
 razn:=Abs(a[1]-k);
 t:=1;
 for i:=2 to n do
   if Abs(a[i]-k)<razn then
    begin
     t:=i;
     razn:=Abs(a[i]-k);
    end;
 funm:=t;
end;

[Настя М]

Помогите, пожалуйста! Я уже 2 недели её переделываю.

[Настя М]

Сказали сделать через процедуру!

[type_Oleg]

procedure qwe(a:a1;n,k:Integer;var m:Integer);
var i:Integer;
    razn:Real;
begin
 razn:=Abs(a[1]-k);
 m:=1;
 for i:=2 to n do
   if Abs(a[i]-k)<razn then
    begin
     m:=i;
     razn:=Abs(a[i]-k);
    end;
end;

[Настя М]

Я и так попробовала всё равно выдаёт ошибку pas(33) : Нельзя обратиться к свойству index через тип.

[Настя М]

Я с массивом не правильно работаю? да?

[Настя М]

Или не правильно локальные переменные описываю?