Задана последовательность из N вещественных чисел...

[AZelensky]

Сообщение от ZX Spectrum-128

Вариант Сергея вовсе не этот. Это уж вы сами чего-то наструячили. А его вариант работает.

Можете тогда мой код отредактировать правильно?

Вот код:

USES CRT;
CONST
MaxElMass = 30;
Var
Mass: array [1..MaxElMass] of REAL;
number: REAL;
n: INTEGER;
i, minI: byte;
Begin
TextBackGround(White);
TextColor(Black);
CLRSCR;
write('Enter number: '); READ(number);
write('Enter max element: '); READ(n);
writeln('Enter values: ');
For i:= 1 to n Do begin
    write('Element[', i, '] = ');
    READLN(Mass[i]);
end;
writeln('The resulting array: ');
write('Array: [');
For i:= 1 to n Do begin
    write(',', Mass[i]:0:0);
end;
write(']');
ReadLN;
TextColor(20);
writeln('');
writeln('Press "ENTER" to continue...');
ReadLN;
TextColor(Black);
minI := 1;  {считаем, что 1й элемент ближе всего к заданному числу}
  For i:= 2 to n Do
     If ABS(number - Mass[i]) < ABS(Mass[minI] - Mass[i]) then
              minI := i;
writeln('The near element  index = ', minI);
ReadLN;
END.

[ZX Spectrum-128]

Нет, не рискну. Если уж вам код Сергея не подходит. То мне точно не стОит даже пытаться.

[AZelensky]

Сообщение от ZX Spectrum-128

Нет, не рискну. Если уж вам код Сергея не подходит. То мне точно не стОит даже пытаться.

Хорошо, я сам Вот так?:

USES CRT;
CONST
MaxElMass = 30;
Var
Mass: array [1..MaxElMass] of REAL;
number: REAL;
n: INTEGER;
i, minind: byte;
Begin
TextBackGround(White);
TextColor(Black);
CLRSCR;
write('Enter number: '); READ(number);
write('Enter max element: '); READ(n);
writeln('Enter values: ');
For i:= 1 to n Do begin
    write('Element[', i, '] = ');
    READLN(Mass[i]);
end;
writeln('The resulting array: ');
write('Array: [');
For i:= 1 to n Do begin
    write(',', Mass[i]:0:0);
end;
write(']');
ReadLN;
TextColor(20);
writeln('');
writeln('Press "ENTER" to continue...');
ReadLN;
TextColor(Black);
minind:= 1;
For i:= 2 to n Do
   If ABS(number - Mass[i]) < ABS(Mass[minind] - Mass[i]) then
      minind:= i;
writeln('The near element index = ', minind);
END.

[ZX Spectrum-128]

А работает? А работает правильно?
Если да, то все прекрасно и вы - молодец.

[AZelensky]

Сообщение от ZX Spectrum-128

А работает? А работает правильно?
Если да, то все прекрасно и вы - молодец.

Ввожу число 2.4 макс. элемент 3 и массив 1, 2, 3. Мне выводит 3. Правильно?

[ZX Spectrum-128]

Поставьте себя на место компилятора:

If ABS(number - Mass[i]) < ABS(Mass[minind] - Mass[i]) then
minind:= i;
I=2
|2.4-2|<|1-2| minind=2
I=3
|2.4-3|<|2-3| minind=3
А должно быть 2!

[AZelensky]

Сообщение от ZX Spectrum-128

Поставьте себя на место компилятора:

If ABS(number - Mass[i]) < ABS(Mass[minind] - Mass[i]) then
minind:= i;
I=2
|2.4-2|<|1-2| minind=2
I=3
|2.4-3|<|2-3| minind=3
А должно быть 2!

Тогда что не правильно в коде? Я уже и так и сяк пробовал. И как ты сказал, и как он сказал.

[ZX Spectrum-128]

Самый первый вариант, подправленный. Работает.

USES CRT;
Var
a: array [1..10] of REAL;
n, min: REAL;
i: byte;
ind: byte;
Begin
CLRSCR;

 write('N = '); readln(n);

  randomize;
  for i:=1 to 10 do begin
    a[i]:=random*10;
    write(a[i]:6:2);
  end;



  min := a[1];
  for i:=1 to 10 do begin

    if abs(a[i]-n) < min then begin

        min :=  abs(a[i]-n);
        ind := i;

    end;
  end;

  writeln;
  writeLN(ind);
  readln;
END.

[Serge_Bliznykov]

если стоит задача

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

то код неверен. попробуйте задать массив 1 2 3 4 и число number 10
попытайтесь угадать ответ!

но и мой код содержит ошибку.
я бы попробовал такой код:

USES CRT;
Var
a: array [1..10] of REAL;
n, min: REAL;
i: byte;
ind: byte;
Begin
CLRSCR;

 write('N = '); readln(n);

  randomize;
  for i:=1 to 10 do begin
    a[i]:=random*10;
    write(a[i]:6:2);
  end;



  ind := 1;
  for i:=1 to 10 do 
    if abs(a[i]-n) < ans(a[ind]-n) then ind := i;

  writeln;
  WriteLn(ind);
  readln;
END.

[ZX Spectrum-128]

то код неверен. попробуйте задать массив 1 2 3 4 и число number 10
попытайтесь угадать ответ!

Судя по ручной трассировке будет 0

А так замечательно на рандомных значениях работало