// вводим число к котору ищем ближние
write('N = '); readln(n);
// заполняем массив
for i:=1 to 10 do begin
a[i]:=random(103)/7;
write(a[i]:6:3);
end;
// ищим ближ число
min := 1000;
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;
write(ind);
Задана последовательность из N вещественных чисел.
PascalЗадана последовательность из N вещественных чисел. Определить порядковый номер того из них которое ближе всего к заданному числу
порядковый номер того из них, которое ближе всего к заданному
числу
Цитата: Альберт Шайдуллин
Код:
// вводим число к котору ищем ближние
write('N = '); readln(n);
// заполняем массив
for i:=1 to 10 do begin
a[i]:=random(103)/7;
write(a[i]:6:3);
end;
// ищим ближ число
min := 1000;
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;
write(ind);
write('N = '); readln(n);
// заполняем массив
for i:=1 to 10 do begin
a[i]:=random(103)/7;
write(a[i]:6:3);
end;
// ищим ближ число
min := 1000;
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;
write(ind);
А почему при вводе любых чисел у меня выводится всё время ряд одинаковых чисел?
Цитата: AZelensky
Цитата: Альберт Шайдуллин
Код:
// вводим число к котору ищем ближние
write('N = '); readln(n);
// заполняем массив
for i:=1 to 10 do begin
a[i]:=random(103)/7;
write(a[i]:6:3);
end;
// ищим ближ число
min := 1000;
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;
write(ind);
write('N = '); readln(n);
// заполняем массив
for i:=1 to 10 do begin
a[i]:=random(103)/7;
write(a[i]:6:3);
end;
// ищим ближ число
min := 1000;
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;
write(ind);
А почему при вводе любых чисел у меня выводится всё время ряд одинаковых чисел?
впиши Randomize; // до заполнения массива