|
Вопрос # 2 312/ вопрос открыт / |
|
Здравствуйте!
Дано 80 вещественных чисел. Найти порядковый номер того из них,которое наиболее близко к какому-нибудь целому числу.
 |
Вопрос задал: istra (статус: Посетитель)
Вопрос отправлен: 17 января 2009, 17:05
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 18 января 2009, 13:08; участников в обсуждении: 3.
|
Градов Ю.М. (статус: 8-ой класс), 17 января 2009, 18:17 [#1]:
var n,i,max: integer;
min: double;
A: array[0..79] of double;
begin
max:=100;
for i:=0 to 79 do
begin
A[i]:=(1+Random(max))/(2+Random(50));
end;
min:=max; n:=0;
Memo1.Clear;
for i:=0 to 79 do
begin
Memo1.Lines.Add(IntToStr(i+1)+' - ' +FloatToStr(A[i]));
if (Abs(A[i]-Int(A[i]))<min) then
begin
min:=Abs(A[i]-Int(A[i]));
N:=i+1;
end;
end;
Memo1.Lines.Add('Наиболее близкое к целому числу - число № '+ IntToStr(N));
end;
|
|
Паровоз (статус: 10-ый класс), 18 января 2009, 11:42 [#2]:
Для автора вопроса:
ошибку ищите в 15 строке
|
|
|
Градов Ю.М. (статус: 8-ой класс), 18 января 2009, 12:09 [#3]:
Пишу правильно: (Abs(A[i]-Int(A[i]))
т.е. (Abs(A[i]-Int(A[i]))<мин), а все перековыривается, в то, что мы видим. Если латынью меньше мин то редактор проглатывает эту фразу, хотя когда я ее редактирую, то нормально вижу.
Все нашел ошибку: нужно поставить галочку - Не обрабатывать HTML в этом сообщении
|
|
Мережников Андрей (статус: Абитуриент), 18 января 2009, 13:08 [#4]:
Переименуйте лучше min, хотя бы в min_. В Delphi есть функция min, может быть конфликт
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
