Технический форум

Технический форум (http://www.tehnari.ru/)
-   Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)
-   -   Помогите, пожалуйста, с массивом (http://www.tehnari.ru/f43/t86684/)

Руслана 22.03.2013 21:55

Помогите, пожалуйста, с массивом
 
Дан одномерный массив размером N, вводятся значения двух элементов Р и К, по этим значениям надо найти номер элемента. Т.е.,как я поняла:
a[i]:=P, i-?
a[b]:=K, b-?
Помогите пожалуйста.

Léon 22.03.2013 21:59

Язык программирования?

Teleka 23.03.2013 09:50

Заполняете массив, получаете значения P и K, затем делаете подобную проверку:
Код:

nomp:=-1;
nomk:=-1;
for i := 0 to N - 1 do
    begin
      if a[i]=P then nomp:=i;
      if a[i]=K then nomk:=i;
    end;

Если значения P и K есть в массиве, то их индексы будут записаны в переменные nomp и nomk, если нет - nomp, nomk останутся равными -1.

Руслана 23.03.2013 15:29

язык Pascal

Руслана 23.03.2013 15:30

спасибо большое)

Руслана 23.03.2013 15:38

Цитата:

Сообщение от Teleka (Сообщение 884891)
Заполняете массив, получаете значения P и K, затем делаете подобную проверку:
Код:

nomp:=-1;
nomk:=-1;
for i := 0 to N - 1 do
    begin
      if a[i]=P then nomp:=i;
      if a[i]=K then nomk:=i;
    end;

Если значения P и K есть в массиве, то их индексы будут записаны в переменные nomp и nomk, если нет - nomp, nomk останутся равными -1.

не работает((выдает: ошибка проверки диапазона

Vladimir_S 23.03.2013 19:57

Цитата:

Сообщение от Руслана (Сообщение 884997)
не работает((выдает: ошибка проверки диапазона

Вы, надеюсь, понимаете, что это лишь фрагмент программы? Приведите полный листинг, тогда разберемся, что там "не работает".


Часовой пояс GMT +4, время: 19:06.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.