Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Bimatekk
0 / 0 / 0
Регистрация: 17.12.2012
Сообщений: 5
#1

Определение номера элемента в динамическом массиве - Delphi

31.12.2012, 11:47. Просмотров 476. Ответов 6
Метки нет (Все метки)

Дан массив А. Определить номер элемента, который равен 15.

Var
A:array of extended;
http://www.cyberforum.ru/delphi-beginners/thread682053.html
Begin
A[0]:=...

Помогите составить программу,я не понимаю! Очень срочно!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.12.2012, 11:47
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определение номера элемента в динамическом массиве (Delphi):

Поиск минимального значения элемента и определение порядкового номера наименьшего элемента
Дана непустая последовательность различных натуральных чисел. Определить...

Поменять три средних элемента с тремя последними в динамическом массиве
как поменять три средних элемента с тремя последними в динамическом массиве?...

Поменять местами три средних элемента с тремя последними в динамическом массиве
подскажите пожалуйста, как поменять местами три последних элемента с тремя...

Определение местоположения (координаты) максимального элемента в массиве.
Задача предусматривает создание программного проекта, обеспечивающего обработку...

Поиск символов в динамическом массиве строк
привет, мне нужно объяснение об поиском символом в динамичный строк массива. я...

6
OverDozero
99 / 99 / 50
Регистрация: 07.04.2011
Сообщений: 525
31.12.2012, 12:04 #2
Что именно ты не понимаешь?Определить индекс элемента,значение которого-15?Это?
0
angstrom
2470 / 1846 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
31.12.2012, 12:10 #3
Примерно так
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  A : array of Integer;
  I : Integer;
begin
  Randomize;
  SetLength(A, 20); // К примеру массив из 20 элементов
  for I := 0 to High(A) do
    A[I] := Random(20);
 
  for I := 0 to High(A) do
    if A[I] := 15 then
    begin
       ShowMessage('Номер элемента = ' + InToStr(I));
       Break;
    end;
end;
1
Bimatekk
0 / 0 / 0
Регистрация: 17.12.2012
Сообщений: 5
31.12.2012, 12:10  [ТС] #4
Видимо да. Сможете помочь?
0
OverDozero
99 / 99 / 50
Регистрация: 07.04.2011
Сообщений: 525
31.12.2012, 12:17 #5
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);
var
a:array of extended;
i,j:integer;
begin
SetLength(a,10);
randomize;
for i:=0 to high(a) do
 begin
  a[i]:=RandomRange(10,21);
  StringGrid1.Cells[i,0]:=FloatToStr(a[i]);
 end;
 for i:=0 to high(a) do
 begin
   if a[i]=15 then Label1.Caption:=Label1.Caption+IntToStr(i+1)+' ';
   end;
end;
Сделал вывод в стринггрид для наглядности.
1
Bimatekk
0 / 0 / 0
Регистрация: 17.12.2012
Сообщений: 5
31.12.2012, 12:35  [ТС] #6
Спасибо огромное за оба ответа, вы мне очень помогли!!! Все доступно и понятно!
0
droider
Universal
Эксперт Pascal/Delphi
4383 / 2431 / 762
Регистрация: 04.10.2012
Сообщений: 8,847
31.12.2012, 13:21 #7
Bimatekk, не забудьте в разделе uses подключить модуль Math, иначе RandomRange из 2-го варианта не сработает.
0
31.12.2012, 13:21
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.12.2012, 13:21
Привет! Вот еще темы с решениями:

Не полностью работает поиск в StringGrid в динамическом массиве
У меня не полностю работает поиск в стрингрид в динамическом масиве. Поиск...

В динамическом массиве А(N) найти максимальный элемент и определить его индекс
1. В динамическом массиве А(N) найти максимальный элемент и определить его...

Определение номера строки
Всем привет. Как в TMEmo или TRichEdit или TSynMemo определить номера строк,...

Определение номера строки
Я попытался создать прогу но наткнулся на весьма странную ошибку :wall: ! Вот...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru